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-REM € 
IDENTIFICATION 


PRODUCT CODE: AC-T8S3D-MC 

PRODUCT NAME: COKDADO KDJ11-8 CLUSTER DIAG. 
PRODUCT DATE: FEBRUARY, 1985 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1984,1985 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DECTAPE 
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SEQ 0003 
79 
80 i. PROGRAM ABSTRACT 
81 
82 **** =€§©6see special instructions for CACHE testing under APT, tok ee 
4 ***e §=section 9.2, and EEROM testing under APT, section 9.3 eee 
85 
86 This program tests out KDJ11-B CPU board, including the J1l chip set, 
87 on-board cache, on-board ROM'’s, including 16 bit and the 8 bit EEROM, 
+4 serial line unit, and line time clocks. 
90 The KDJ11-B8 is a PDP-11 CPU that incorporates the J1l chip set as the 
91 heart of the processor. It is a quad height Q22 bus module. It has 
92 on-board cache, some of the functionality of the cache is hidden inside 
93 the J1l and the rest of the functions implemented in two on-board gate 
94 erreays. The storage capacity of the cache is 4K bytes of RAM, called 
95 date RAM's. The cache is implemented as a direct mapped cache with 
96 address bits 21 through 13 stored in a different set of RAM'’s called 
97 tag store. 
98 The KDJ11-B also has two on-board ROM’s. One of them, the 16-bit 
99 addressable ROM, contains the self-test and the boot codes. The other 
100 ROM, the 8-bit addressable one, contains the base area with hardware 
101 selection parameters, optional bootstraps, optional UFD (User Friendly 
os Diagnostic) system desctiption area, and optional foreign language 
1 text. 
104 The Serial Line Unit is implemented thru a Dlert chip which provides 
105 the standard console interface to the CPU. It has internal loop back 
106 mode and provides with three clock lines: 800HZ, 60HZ, and SOHZ. 
107 The line time clock functions are implemented using those three lines 
108 and the BEVENT line. The line clock status register is implemented in 
109 one of the gate arrays. 
110 
111 
112 2. SYSTEM REQUIREMENTS 
113 
114 Hardware Requirements 
115 
116 To run successfully the diagnostic needs: 
117 
118 1. KDJ11-B CPU module 
119 2. console terminal 
120 3. at least 28K of memory 
121 
122 In DVT, and stage one manufacturing (module assembly) the Q22 Bus 
123 exerciser is needed to check Q22 Bus logic. 
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: SEQ 0004 
125 
oF 3. LOADING AND STARTING PROCEDURES 
4 To start-up this program: 
tt 1. Boot XXDP-+ 
132 2. Type "R NAME", where name is the name of the BIN or BIC 
aes file for this: program. 
135 The starting address of the program is 200. 
136 Note: if trying to restart the program in an arbitrary place after 
137 HALT on Break the following registers should be set up: 
138 17777572=0 to disable memmory management 
139 17777520=1000 to clear diagnostic mode (bit 8), but still save 
140 HALT on Break 
cos 17777746=400 to flush the cache 
143 
con 4. SPECIAL ENVIRONMENTS 
146 The program is APT compatible. It can also be run under the UFD monitor. 
147 In those cases none of the standard error printouts occur. Refer 
148 to corresponding documents on running procedures in APT and under 
oe UFD monitor. 
1 
151 *#e% = =8=©6©see special instructions for CACHE testing under APT, eee 
tf **e% = =©6section 9.2, and EEROM testing under APT, section 9. 3 Pitt) 
15 
154 5. PROGRAM OPTIONS 
155 
156 The Q22 Bus Exerciser is utilized if it is present in the system and 
157 the diagnostic is not running in UFD mode. 
158 Standard capabilities of looping on test and on error are provided. 
159 In order to run the extensive cache data RAM test bit 7 has to be set 
160 in the software switch register. To run the extensive cache tag RAM test 
161 bit 6 has to be set in the software switch register. 
162 
163 
164 SWITCH REGISTER SELECTION: 
165 BIT NUMBER USE 
166 15 HALT ON ERROR 
167 14 LOOP ON PRESENT TEST 
168 13 INHIBIT ERROR TYPEOUTS 
169 ee 12 EEROM subtest RUN switch 
170 11 INHIBIT ITERATIONS 
171 10 BELL ON ERROR 
172 9 LOOP ON ERROR 
173 8 LOOP ON TEST IN SWR<5-0> 
174 7 DO EXTENSIVE DATA RAM TEST 
175 6 DO EXTENSIVE TAG RAM TEST 
_ 5-0 Subtest number to loop on (BIT 8) 
178 **#* running with this test will change all but the first 109 bytes of 
179 EEROM data! be SURE to read instructions in sect. 9.3 
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SEQ 0005 


6. EXECUTION TIMES 


Without extensive RAM tests, the diagnostic runs in under 15 seconds. 
With them, it takes about 2 minutes. 


In addition, when the EEROM test bit is on, pass 1 takes an additional 
amount of time of 1 minute for 15MHZ J-11, to about 40 sec. for the 
20MHZ. version. These test times are for the 2K EEROM, for 8K perts, 
multiply by 4. If running under APT, the system manager must be sure 
the first pass run time allows adequate time for completion of this test! 
! 


7. ERROR INFORMATION 


In the case of errors, a failing PC and test numbers are given. 
Where it is possible, expected and received data are given. 
For an example, see section 8. 


8. EXAMPLES 


After booting XXDP+ and starting the program, the following 
will appear on the terminal: 


* KDJ11-B CPU DIAGNOSTIC - COKDADO « 
SWR = XXXXXX NEW = 


where XXXXXX correspond to present software switch register 
setting. 

After "NEW" an operator can do one of the es mom 

1) type in a new software switch register setting followed 
by carrige return or 

2 just type in carriage return in which case the software 
register will remain unchanged. 


Example of error printout: 
ERROR IN TAG STORE 
TEST ERROR ADDRESS ADDRESS 
% PC <21-16> <15-0> 
27 105620 66600 000000 
Note: this mey not correspona to the actual Program Counter. 
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SEQ 0006 
223 
224 9. PROGRAM DESCRIPTION 
225 
226 
227 9.1 J11 CODE 
228 This portion of the code tests out the J1l chip set. It is broken 
229 into 3 pieces: CPU tests, which verify different instructions in 
230 different modes and different trap conditions; MMU tests, which 
231 verify different functions of MMU; and FFP tests, which do 
232 different floating point instructions. 
233 This portion of the code have been written in close relationship 
234 with the J1l microcode. Therefore, even though not all possible 
235 instructions in all possible addressing mode have been tested, an 
at attempt has been made to exercise all of the microcode. 
238 
239 9.2 CACHE CODE 
240 This portion of the diagnostic verifies all cache functions. 
3 Date and tag RAM's tests are also included. 
243 EREEEEEEREEERE EERE ERE EEE EE ERE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEREEESD 
244 Note: in order to run extensive cache RAM's tests the corresponding 
245 bits in the software switch register should be set. See section 5. 
246 ----In particular, the number in $USWR (swere reg #2) should equal 
247 the “first pass run time” set up at installation---- (the exception 
248 is when $USWR is set to ZERO, no condition applies) 
249 EREEREEEEREEE REE EREEEEREE EERE EERE REE REE EEEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEE 
250 
251 TESTING CACHE FUNCTIONS UNDER APT 
252 
253 The testing of Cache related functions under APT is facilitated 
254 by use of $USWR containing a number which will indicate the number 
255 of passes with inclusive cache tests as follows: 
256 
257 Call numbers in decimal, $USWR loaded by APT manager ) 
258 
259 one pass with all subtests followed by 
260 default $USWR = 0 continuous testing of non-cache dependent 
261 setting subtests until APT Break is encountered 
262 CAPT system must not BREAK in for this 
263 “First Pass Run Time", now assumed to be 
264 approx 16 sec. ) 
265 
266 
267 $USWR < 16 ~_y non-cache dependent tests will be run 
268 APT may break anytime 
269 
270 $USWR = 16 same as $USWR = 0 
271 
272 $USWR > 16 $USWR is divided by 16 (pass time ) to get a 
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SEQ 0007 
274 number of passes which include all subtests 
275 Cincluding cache) After this number of passes, 
276 continuous testing with only non-cache depend- 
277 ent sub-tests is continued during which time 
Sh APT may break with no bad effects. 
280 In this case, the APT setup must not attempt to break for a length of time 
281 equal to $USWR contents, in seconds. The nominal 16 seconds per pass, and the 
282 actual pass time of about 10 seconds (which changes as tests may be added) 
283 allow a safty margin adding additional tests. The actual number of passes done 
aoe will be equal to $USWR divided by 16, (if not 0, or < 16 ). 
386 FERRER ESE DEB 
287 **ee% The guarrantee that APT will not attempt to break into the diagnostic 
288 for a given number of seconds is provided by the APT system manager loading 
289 the variable $PASTM with the same number $USWR received. 
co. If this is not done, the message "hung diagnostic” will likely be receivedeseeses 
teeter eetreee 
292 
be 9.3 ON-BOARD ROM AND EEROM CODE 
295 These tests verify the checksums of the 16-bit ROM and the base 
296 erea of the 8-bit EEROM, and a write and read of 1's and 0's to 
297 each location of the EEROM. The EEROM may be affected by multiole 
298 writes, (>10,000 cycles) so it is advisable to select this test 
299 with care. 
300 
301 The testing of the on-board EEROM is accomplished by the setting 
302 of bit 12 in the software switch mo which will see that the 
303 EEROM test is run once. (Pass 1) It should be noted that this bit 
304 may have another use in the SYSMAC macro $E0P, but is not so used 
305 within this program. The BCSR is also set for Halt on Break on 
306 during this test, as a troubleshooting aid in stand-alone modes. 
307 
308 *** WHEN RUNNING THIS TEST UNDER APT #e«« 
309 
310 After loading and starting the program with EEROM test switch 
3il on, APT must not (break) interrupt the test until the time 
312 given in section 6, EXECUTION TIMES, has passsed. 
313 
314 This test should never be “scripted” in a way which would cause 
315 the test to be run multiple times. It should be run instead 
316 once at the begining or end of a script. 
317 
318 EKEREESEEEREKEEEE 
319 
320 '! The contents of the EEROM are lost, except for the 109 (decimal) byte 
321 $3 representing the SETUP area, which are restored at the end of the EEROM 
322 Hi subtest. If the test is interrupted before these locations ere re- 
323 He stored, unpredictable results may occur. 
. } 
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325 
326 
327 
328 9.4 LINE TIME CLOCKS CODE 
329 This part of the program verifies the functions of all 4 clock 
330 lines: 3 of them from the serial line chip (SOHZ, 60HZ, 800HZ) 
331 and BEVENT line. 
332 Note: in UFD mode only functions corresponding to Boot Rom 
333 selection are checked. 
334 
335 
336 9.5 SERIAL LINE UNIT CODE 
337 These tests verify the functionality of the SLU chip utilizing the 
4 maintenance mode of the chip. 
340 
341 9.6 Q22BE CODE 
342 These tests verify interrupt arbitration of the KDJ11-8, DMA 
343 protocol, and cache functions related to the DMA activities, 
344 including PMG counter. 
345 
346 
347 9.7 LIST OF SUBTESTS PERFORMED 
348 The following list represents the sequential order of subtests 
349 performed in cokdacAO..... subtests which are subject to the APT 
= . qualifications of section 9.2 are indicated by a Cache-APT label. 
51 
4 TEST NO. TEST NAME/FUNCTION APT-CACHE sel NOTES. 
35 
354 test 1 base instruction set tests = ............. 
355 test 2 check (cache) register access yes 
356 test 3 CCR register bit test yes 
357 test 4 force miss test yes 
358 test 5 hit/miss register test pert 1 yes 
359 test 6 hit/miss register test yes 
360 test 7 byte allocation test yes 
361 
362 test 10 POR bit 15 (bypass) test yes 
363 test 11 flush cache test yes 
364 test 12 unconditional bypass test yes 
365 test 13 write wrong date parity test yes 
366 test 14 write wrong tag parity yes 
367 test 15 perity abort test yes 
368 test 16 parity interrupt test yes 
a4 test 17 miscellaneous parity test yes 
0 
371 test 20 memory system error register test yes 
372 test 21 check parity aborts blocked ...... yes 
373 test 22 multi-processing instruction yes 
374 test 23 data store ram, tests yes 
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tag store ram tests yes 
standalone mode tests yes 


moving inversions test data RAM yes 
moving inversions for tag store yes 


PCR read/write bits eae cect 
besr read/write bits rrr 
16 bit ROM checksum sinhwem 
8 bit EEROM checksum test ....... 
EEROM checkerboard mem test ....... 
LKS bit 7 “eee 
LKS interrupt priority ei i ci cert 


line clock disable = # ~_...... 


unconditional clock interupts  ....... 


resetting LKS ere 
line clock interrupts yes 


maintenance register Wee 8 bdwavar 
serial line unit registers ....... 
a eo 3 > TF ee ern 
RCSR bit 7 and XCSR bit 7 eee 
RESET and MOOR<2102 i pawwsec 


RESET and interrupt enable  ....... 
interrupt priority for SLU —_.......... 
Break condition a otal ac 
overrun condition kee 
e's G6 Geet fs Toa. - ee eaenede 
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SEQ 0009 


only done pass 1 
not CACHE dep, APT break sensitiv 


done once in APT 
first pass only 


done once in APT 
done only once 
done once in APT 


HOB on 
MEMORY mapping not done chain mode, APT, other than pass 1 


wrong parity abort test = ....... 


DMA TAG PARITY in standalone yes 


DMA tag parity w/o standalone yes 
DMA write hit cycles yes 
different levels of interrupts 
Arbitration bet PIRQ interrupt 

power down test 

arbitration between interrupt levels 
PMG counter yes 


HOB disabled 


not UFD, only if Q22BE found 
not UFD, only if Q22BE found 
not UFD, only if Q22BE found 
not UFD, only if Q22BE found 
not UFD, only if two Q22BE found 


as of july 1984, this is the list of subtests, any added subtests will require 
editing of this list.... 


note 1. 


in the SWR.... 


This test will only be run in first pass, and then only if bit 12 is set 
Running this test will DESTROY everything in the EEROM 
except the first 109 bytes...... UFD area, secondary boots, and local 
language area's would all need to be restored after running this test. 
The first pass run time must be adjusted accordingly when running under 


HOB on | 
HOB on 
1.0 
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SEQ oo10 =O! 
426 10. PROGRAM UPDATES AND MODIFICATIONS 
4 
428 1. CHANGES MADE BY HOWARD L. MARSHALL - DENOTED BY “$$$” 
429 IN COMMENT LINES OF ADDED OR CHANGED CODE, AS OF 2-22-85 
431 ADDED SUBROUTINE “DETFPA” (DETERMINE FLOATING POINT ACCELERATOR) 
433 THIS SUBROUTINE IS CALLED JUST PRIOR TO THE ERROR MACRO FOR ALL 
434 FLOATING POINT ERRORS. THIS SUBROUTINE PRINTS 1 OF 2 POSSIBLE 
435 ERROR MESSAGES. THEY ARE: 
437 A.) ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP. 
4 
439 B.) ERROR DETECTED IN J11 FLOATING POINT PROCESSOR. 
441 OF THE 2 ABOVE ERROR MESSAGES, THE ERROR MESSAGE THAT IS 
442 PRINTED IS DETERMINED BY THE STATE OF THE “FPA” FLAG, BIT 8, 
443 IN THE MAINTENANCE REGISTER. THIS BIT IS SET TO A 1 IF THE 
444 FLOATING POINT ACCELERATOR CHIP IS INSTALLED IN THE CPU BOARD. 
445 OTHERWISE, THE BIT IS CLEARED WHICH INDICATES THAT THE 
446 FLOATING POINT ACCELERTOR CHIP IS NOT INSTALLED. BASED SOLELY 
447 ON THIS DETERMINATION, IT IS LOGICAL TO ASSUME THAT MOST, IF 
448 NOT ALL FLOATING POINT ERRORS CAN BE ATTRIBUTED TO THE FPA 
449 CHIP IF THE “FPA” BIT IS SET OR TO THE FLOATING POINT PROCESSOR 
450 WITHIN THE J11 IF THE “FPA” BIT IS CLEARED. 
451 
452 é 
453 


| 
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469 


471 
472 
473 





167400 
000300 


000001 


000250 


177572 
177574 
177576 
172516 


177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 


177620 
177622 
177624 
177626 
177630 
177632 
177634 
177636 


177640 
177642 
177644 
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SEQ 0011 


-NLIST BEX ;DON'T EXPAND ALL THE ASCII. 
$SWR=167400 
$SWRMK=300 

-TITLE COKDADO KDJ11-B CLUSTER DIAG. 

:*COPYRIGHT (C) FEB 85 

s*DIGITAL EQUIPMENT CORP. 

s*#MAYNARD, MASS. 01754 


;* 
a BY DIAG. ENG. 


; *THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
“Yepene- (MAINDEC-11-DZQAC-C8), OCT, 1982. 


iTNea 

-SBTTL OPERATIONAL SWITCH SETTINGS 

;* 

;* SWITCH USE 

i ll er 

:* 15 HALT ON ERROR 

i* 14 LOOP ON TEST 

;* 13 INHIBIT ERROR TYPEOUTS 
3* 11 INHIBIT ITERATIONS 

;* 10 BELL ON ERROR 

3* 9 LOOP ON ERROR 

;* 8 LOOP ON TEST IN SWR<5:0> 
i* Z DO EXTENSIVE DATA RAM TEST 


i* DO EXTENSIVE TAG RAM TEST 
. SBTTL MEMORY MANAGEMENT DEFINITIONS 
;#KT11 VECTOR ADDRESS 

MMVEC= 250 

s#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 

SRi= 177574 

SR2= 177576 

SR3= 172516 

s#USER “I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 

UIPOR1= 177602 

UIPDR2= 177604 

UIPOR3= 177606 

UIPDR4= 177610 

UIPORS= 177612 

UIPOR6= 177614 

UIPDR7= 177616 

s*#USER “D” PAGE DESCRIPTOR REGISTORS 

UDPDRO= 177620 

UDPDRi= 177622 

UDPOR2= 177624 

UDPOR3= 177626 

UDPDR4= 177630 

UDPORS= 177632 

UDPOR6= 177634 

UDPDR7= 177636 

s*USER “I" PAGE ADDRESS REGISTERS 

UIPARO= 177640 

UIPARI= 177642 

UIPAR2= 177644 
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SEQ 00 
MEMORY MANAGEMENT DEFINITIONS = 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPAR6= 177654 
177656 UIPAR7= 177656 
s#USER “D” PAGE ADDRESS REGISTERS 
177660 UDPARO= 177660 
177662 UDPARi= 177662 
177664 UDPAR2= 177664 
177666 UDPAR3S= 177666 
177670 UDPAR4= 177670 
177672 UDPARS= 177672 
177674 UDPAR6= 177674 
177676 UDPAR7= 177676 
s*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
172200 SIPDORO= 172200 
172202 SIPDRi= 172202 
172204 SIPDR2= 172204 
172206 SIPOR3= 172206 
172210 SIPOR4= 172210 
172212 SIPORS= 172212 
172214 SIPOR6= 172214 
172216 SIPOR7= 172216 
s#SUPERVISOR "D” PAGE MESCRIPTOR REGISTERS 
172220 SDPORO= 172220 
172222 SDOPOR1= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SOPDOR4= 172230 
172232 SDOPORS= 172232 
172234 SDPOR6= 172234 
172236 SDPOR7= 172236 
s*#SUPERVISOR “I“ PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172242 SIPARI= 172242 
172244 SIPAR2= 172244 
172246 SIPAR3= 172246 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 
s*SUPERVISOR “D” PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDOPAR1= 172262 
172264 SDPAR2= 172264 
172266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
s*KERNEL “I” PAGE DESCRIPTOR REGISTERS 
172300 KIPDRO= 172300 
172302 KIPOR1= 172302 
172304 KIPOR2= 172304 
172306 KIPOR3= 172306 
172310 KIPOR4= 172310 
172312 KIPORS= 172312 
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172314 
172316 
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KIPOR6= 172314 

KIPOR7= 172316 

s*KERNEL “D" PAGE DESCRIPTOR REGISTERS 
KDPDRO= 172320 

KDPOR1= 172322 

KDPOR2= 172324 

KDOPOR3= 172326 

KDPOR4= 172330 

KDPORS= 172332 

KDPDR6= 172334 

KOPOR7= 172336 

s#KERNEL “I” PAGE ADDRESS REGISTERS 
KIPARO= 172340 

KIPARi= 172342 

KIPAR2= 172344 

KIPAR3= 172346 

KIPAR4= 172350 

KIPARS= 172352 

KIPAR6= 172354 

KIPAR7= 172356 

s#KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 

KDPARi= 172362 

KDPAR2= 172364 

KDPAR3= 172366 

KDOPAR4= 172370 

KDPARS= 172372 

KDPAR6= 172374 

KDPAR7= 172376 

-SBTTL BASIC DEFINITIONS 

s#INITIAL ADDRESS OF THE STACK POINTER ##* 1100 eee 
STACK= 1100 


ERROR= EMT 3;BASIC DEFINITION OF ERROR CALL 
SCCPE= IOT +sBASIC DEFINITION OF SCOPE CALL 
s*#MISCELLANEOUS DEFINITIONS 
HT= 11 3;CODE FOR HORIZONTAL TAB 
LF= i2 ;;CODE FOR LINE FEED 
CR= 15 3;CODE FOR CARRIAGE RETURN 
CRLF= 200 3sCODE FOR CARRIAGE RETURN-LINE FEED 
— acres 3sPROCESSOR STATUS WORD 
We 
STKLMT= 177774 33STACK LIMIT REGISTER 
PIRQ= 177772 3sPROGRAM INTERRUPT REQUEST REGISTER 
OSWR= 177570 s sHARDWARE SWITCH REGISTER 
ODISP= 177570 3; sHARDWARE DISPLAY REGISTER 
3*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= #0 s;GENERAL REGISTER 
Ri= #1 ) }GENERAL REGISTER 
R2= 82 3;GENERAL REGISTER 
R3= 83 3sGENERAL REGISTER 
R4= 84 ;sGENERAL REGISTER 
RS= 65 3sGENERAL REGISTER 
R6= 86 3;GENERAL REGISTER 
R7= Ss? 3;GENERAL REGISTER 
SP= 86 33STACK POINTER 
PC= 87 3sPROGRAM COUNTER 


s*PRIORITY LEVEL DEFINITIONS 
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34 
3*#"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 


PRO= 0 
PRi= 40 
PR2= 100 
PR3= 140 
PR4= 200 
PRS= 240 
PR6= 300 
PR7= 0 
SW15= 

SWi4= 40000 
SW13= 20000 
SWi2= 10000 
SWil= 4000 
SW10= 2000 
SWO9= 1000 
SWO8= 400 
SWO7= 200 
SWO6= 100 
SWOS= 40 
SWO4= 20 
SWO3= 10 
SWO2= 4 
SsWOl= 2 
SWOO= 1 
SW9= Swo9 
SW8= Swos 
SW7= Swo7 
SW6= SWO6 
SW5= Swos 
SW4= SWO4 
SW3= Swo3 
SW2= Swo2 
SWi= Swo1 
SWO= 

BIT1S5= 

BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITOS= 40 
BITO04= 20 
BITO3= 10 
BITO2= 4 
BITO1l= 2 
BITOO= 1 
BIT9= BITO9 
BIT8= BIT08 
BIT7= BIT07 
BIT6= BIT06 
BITS= BITOS 





ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
ssPRIORITY LEVEL 
;sPRIORITY LEVEL 
ssPRIORITY LEVEL 


NOU SWMrHO 


Swoo 
;#DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 





COKDADO KDJ11-B8 CLUSTER DIAG. 
BASIC DEFINITIONS 


475 
476 


485 


000174 
000176 


000200 
000204 


000220 
000226 


000052 


000024 


000232 


000020 
000010 


001160 
004024 


000777 
004024 











Ce 
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001160 


SEQ 0015 


BIT4= BIT04 
BIT3= B1T03 
BIT2= BITO02 
BITi= BITO1 


BITO= BITOO 

;*#BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 3sTIME OUT AND OTHER ERRORS 

RESVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC#=14 33"T" BIT 

TRTIVEC= 14 3s TRACE TRAP 

BPTVEC= 14 ; sBREAKPOINT TRAP (BPT) 

IOTVEC= 20 ss INPUT/OUTPUT TRAP (CIOT) **SCOPEss 

PWRVEC= 24 s;POWER FAIL 

EMTVEC= 30 ;sEMULATOR TRAP (EMT) #*#ERRORss« 

TRAPVEC=34 33"TRAP” TRAP 

TKVEC= 60 :3;TTY KEYBOARD VECTOR 

TPVEC= 64 :sTTY PRINTER VECTOR 

PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
1 ;FLAG FOR UFD 


UFDSET= 
- SBTTL o%¥ CATCHER 


;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 
;#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;#LOCATION © CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


.=174 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SUREG: .WORD 0 ;;SOFTWARE SWITCH REGISTER 

CLR $TMPO © 

UMP @eSTART 
.=220 

MOV #777, $TMPO 

JUMP @eOSTART 
.SBTTL ACT11 HOOKS 
3 tT dhe hachaaandhahadethettetadettd bib d bhp ppp piper ttitititi tit Ti tTitititti tit t 
sHOOKS REQUIRED BY ACT11 

#SVPC=. ;SAVE PC 

SENDAD 331)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E0P 

.WORD 0 ;;2)SET LOC.S2 TO ZERO 

.=$SVPC 33 RESTORE PC 
.SBTTL APT PARAMETER BLOCK 
3 FFSSSSSSSSSSSSSSSSSSSESS SSE SESE ESSERE SESE SESE SEERESESESECEESESE 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
3 FSSSSSSSSSSSSSSSSSS SESS SE SESS SE SSSSE SESE SE REEEEEESEEEEEEEEREEE 

.$X=, | ;;SAVE CURRENT LOCATION 

.*24 ;3SET POWER FAIL TO POINT TO START OF PROGRAM 

200 33FOR APT START UP 

244 ;:POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHOR ;;POINT TO APT HEADER BLOCK 

.=.$X | ;3RESET LOCATION COUNTER 
FF SSSSSSSSSSSSSSSSSES SES SSSSSSSSESRESESEEESEEEEESEESEEEEESEEEEESEEEESE 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
LINTERF ACE SPEC. 














D2 
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SEQ 0016 
APT PARAMETER BLOCK 

000232 000000 $HIBTS: .WORD 0 3sTWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

000234 001200 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

000236 000000 $TSTM: .WORD ssRUN TIM OF LONGEST TEST 

000240 000000 $PASTM: .WORD +sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

000242 000000 $UNITM: .WORD sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


; 
000244 000052 -WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLEC WORDS ) 











ooo | 


ae FD 
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SEQ 0017 
COMMON TAGS 
486 -SBTTL COMMON TAGS 
Taal chaahaahsdhachaahachahahahahech hahahah ddsdhdhdd ddd dddt Lt pLetLLLLL Ltd) 
s*FHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s*USED IN THE PROGRAM. 
001100 -*1100 
001100 $CMTAG: ;sSTART OF COMMON TAGS 
001100 000000 «WORD 0O 
001102 000 $TSTNM: .BYTE 0 s;CONTAINS THE TEST NUMBER 
001103 000 $ERFLG: .BYTE 0 s;CONTAINS ERROR FLAG 
001104 000000 $ICNT: .WORD 0 ;sCONTAINS SUBTEST ITERATION COUNT 
001106 000000 $LPADR: .WORD 0 ssCONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD 0 ssCONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 $ERTTL: .WORD 0 ;sCONTAINS TOTAL ERRORS DETECTED 
001114 000 $ITEMB: .BYTE 0 ssCONTAINS ITEM CONTROL BYTE 
001115 001 $ERMAX: .BYTE 1 ss;CONTAINS MAX. ERRORS PER TEST 
001116 000000 $ERRPC: .WORD 0 ;sCONTAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 $GDADR: .WORD 0 ssCONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 $BDADR: .WORD 0 ssCONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000000 $GDDAT: .WORD 0 ssCONTAINS ‘GOOD’ DATA 
001126 000000 $BDDAT: .WORD 0 ssCONTAINS ‘BAD’ DATA 
001130 000000 -WORD O ; sRESERVED--NOT TO BE USED 
001132 000000 -WORD O 
001134 000 $AUTOB: .BYTE 0 ; sAUTOMATIC MODE INDICATOR 
001135 000 $INTAG: .BYTE 0 ss INTERRUPT MODE INDICATOR 
001136 000000 -WORD O 
001140 177570 SWR: -WORD ODSWR ssADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 33TTY KBD STATUS 
001146 177562 $TKB: 177562 3sTTY KBD BUFFER 
001150 177564 $TPS: 177564 ssTTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 3;TTY PRINTER BUFFER REG. ADDRESS 
001154 000 $NULL: .BYTE 0 3 sCONTAINS NULL CHARACTER FOR FILLS 
001155 002 $FILLS: .BYTE 2 ss;CONTAINS # OF FILLER CHARACTERS REQUIRED 
001156 012 $FILLC: .BYTE 12 s;INSERT FILL CHARS. AFTER A “LINE FEED” 
001157 000 $TPFLG: .BYTE 0 33 "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
000002 -REPT 2 
001160 000000 $TMPO: .WORD 0 +sUSER DEFINED 
001162 000000 $TMP1: .WORD 0O +s;USER DEFINED 
001164 000000 $TIMES: O +sMAX. NUMBER OF ITERATIONS 
001166 000000 $ESCAPE:0 +sESCAPE ON ERROR ADDRESS 
001170 207 377 377 «$BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
001174 077 $QUES: .ASCII /?/ s+ ;QUESTION MARK 
001175 015 $CRLF: .ASCII <15> ssCARRIAGE RETURN 
001176 012 000 $LF: ASCIZ <i2> ;s;LINE FEED 
Eh ehhh dha bhhbh barre rrtititititititiiititiii tt ttt ttt ttt 
-SBTTL APT MAILBOX-ETABLE 
5 PERERA EEEE SESE EEEEE EEE EEEEEEEEEEEE EEE SEEEESEEEEEEEEEEEEEEE 
-EVEN 
001200 $MAIL: 3;APT MAILBOX 
001200 000000 $MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001202 000000 $FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001204 000000 $TESTN: .WORD ATESTN ;;TEST NUMBER 
001206 000000 $PASS: .WORD APASS ;;PASS COUNT 
001210 000000 $DEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001212 000000 $UNIT: .WORD AUNIT 33170 UNIT NUMBER 
001214 000000 $MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
001216 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 








COKDADO KDJ11-B CLUSTER DIAG. 


APT MAILBOX-ETABLE 


eee 


001220 
001220 
001221 
001222 
001224 
001226 


001230 
001231 











Fe 
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$ETABLE: 

$ENV: -BYTE AENV 
$ENVM: .BYTE AENVM 
$SWREG: .WORD ASWREG 
$USWR: .WORD AUSWR 
$CPUOP: .WORD ACPUOP 


$MAMS1: .BYTE AMAMS1 
$MTYP1: .BYTE AMTYP1 


$MADR1: .WORD AMADR1 


$MAMS2: .BYTE AMAMS2 
$MTYP2: .BYTE AMTYP2 
$MADR2: .WORD AMADR2 
$MAMS3: .BYTE AMAMS3 
$MTYP3: .BYTE AMTYP3 
$MADR3: .WORD AMADR3 
$MAMS4: .BYTE AMAMS4 
$MTYP4: .BYTE AMTYP4 
$MADR4: .WORD AMADR4 


$0DW15: .WORD ADDW1S 


SEQ 0018 


3;APT ENVIRONMENT TABLE 
; sENVIRONMENT BYTE 
3; sENVIRONMENT MODE BITS 
33APT SWITCH REGISTER 
;;USER SWITCHES 
;;CPU TYPE,OPTIONS 
BITS 15-11=CPU TYPE 
11/04201,11/05=02,11/20=03,11/40=04,11/45=05 
11/7006 ,PDQ=07 ,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;;HIGH ADDRESS,M.S. BYTE 
3:MEM. TYPE,BLK#@1 
MEM. TYPE BYTE -- (CHIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
; HIGH ADDRESS ,BLK#1 
MEM.LAST ADOR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
;;HIGH ADDRESS,M.S. BYTE 
3 ;MEM. TYPE ,BLK#2 
3;MEM.LAST ADDRESS ,BLK#2 
;;HIGH ADDRESS,M.S.BYTE 
33MEM. TYPE ,BLK#3 
3:MEM.LAST ADDRESS,BLK#3 
;;HIGH ADDRESS,M.S.BYTE 
33;MEM. TYPE ,BLK#4 
;3MEM.LAST ADDRESS ,BLK#4 
;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
;; INTERRUPT VECTOR#2BUS PRIORITY#2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
;;CONTROLLER DESCRIPTION WORD#1 
;;CONTROLLER DESCRIPTION WORD#2 
;;DEVICE DESCRIPTOR WORD#O 
;;DEVICE DESCRIPTOR WORD#1 
;;DEVICE DESCRIPTOR WORD#2 
;;DEVICE DESCRIPTOR WORD#3 
;;DEVICE DESCRIPTOR WORDS4 
;;DEVICE DESCRIPTOR WORD#S 
: ;DEVICE DESCRIPTOR WORD#6 
;;DEVICE DESCRIPTOR WORD#7 
;;DEVICE DESCRIPTOR WORD#8 
;;DEVICE DESCRIPTOR WORD#9 
;;DEVICE DESCRIPTOR WORD#10 
;;DEVICE DESCRIPTOR WORD#@11 
;;DEVICE DESCRIPTOR WORD#12 
;;DEVICE DESCRIPTOR WORD#13 
;;DEVICE DESCRIPTOR WORD#14 
;;DEVICE DESCRIPTOR WORD#15 





} 





G2 


SEQ 9 
ERROR POINTER TABLE _ 


-SBTTL ERROR POINTER TABLE 

s*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


S32 001426 135032 DH7 sTEST #, PC, ADDRESS ACCESSED, MSER 


| 
| 
COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14 
;*NOTE1: IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC). 
;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM +sPOINTS TO THE ERROR MESSAGE 
;* DH ;sPOINTS TO THE DATA HEADER 
;* OT ssPOINTS TO THE DATA 
;* OF ssPOINTS TO THE DATA FORMAT 
001324 $ERRTB: 
487 
488 
489 -SBTTL ERROR DEFINITIONS 
490 ITEM 1 
491 001324 127002 EM1 ;CPU ERROR 
492 001326 134621 DH1 ~ sTEST #, ERROR PC 
493 001330 136026 OT1 ;$TMP1, $ERRPC 
494 001332 000000 0 
495 sITEM 2 
496 001334 127036 EM2 s;MMU ERROR 
497 001336 134621 DH1 sTEST #, ERROR PC 
498 001340 136026 OT1 ;$TMP1, $ERRPC 
499 001342 000000 0 
500 sITEM 3 
501 001344 127050 EM3 ;FPP ERROR 
S02 001346 134621 DH1 sTEST #, ERROR PC 
503 001350 136026 OT1 ;$TMP1, $ERRPC 
504 001352 000000 0 
505 ;ITEM 4 f 
S06 001354 127062 EM4 sERROR IN READ-WRITE BITS OF CCR 
507 001356 134646 DH4 sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
S08 001360 136034 DT4 ;$TMP1, $ERRPC,R1,CCR 
509 001362 000000 ie) 
510 sITEM S 
511 001364 127122 EMS sFORCE MISS WRITES TO CACHE 
Si2 001366 134733 DHS sTEST #, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
513 001370 136046 OTS s$TMP1,$ERRPC, R2, R1, $GDDAT 
514 001372 000000 0 
515 ;ITEM 6 
516 001374 127155 EM6 sFORCE MISS WRITE INVALIDATES CACHE 
517 001376 134733 DHS sTEST @, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
518 001400 136046 DTS ;$TMP1,$ERRPC, R2, R1, $GDDAT 
519 001402 000000 0 
S20 sITEM 7 
S21 001404 127220 EM7 sUNEXPECTED PARITY INTERRUPT 
S22 001406 135032 DH7 sTEST #, PC, ADDRESS ACCESSED, MSER 
523 001410 136062 DOT7 3 $TMP1, $ERRPC, $BDADR,MSER 
S24 001412 000000 
S25 sITEM 10 
S26 001414 127254 EM10 sTAG PARITY ERROR 
S27 001416 135032 DH7 sTEST #, PC, ADDRESS ACCESSED, MSER 
528 001420 136062 DT7 ;$TMP1, $ERRPC, $BDADR,MSER 
529 001422 000000 0 
530 sITEM 11 
531 001424 127275 EM11 sDATA PARITY ERROR 











A EE ERED GREE 
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$33 


001430 


34 001432 


001434 
001436 
001440 
001442 


001444 
001446 
001450 
001452 


001454 
001456 
001460 
001462 


001464 


136062 
000000 


127317 
135032 
136062 
000000 


127345 
135032 
136062 
000000 


127374 
134646 
136074 
000000 


127417 
134733 
136046 
000000 


127453 
134733 
136046 
000000 


127520 
134646 
136106 
000000 


127564 
134621 
136026 
000000 


127617 
134621 
136026 
000000 


127662 
134621 
136026 
000000 


127721 
134733 
136046 
000000 


127775 
135105 
136120 
000000 
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sITEM 12 


;ITEM 13 


;ITEM 14 


;ITEM 15 


;ITEM 16 


sITEM 17 


sITEM 20 


sITEM 21 


s;ITEM 22 


sITEM 23 





SEQ 0020 _:~=Cs! 
;$TMP1, $ERRPC, $BDADR,MSER 


sLOW BYTE PARITY ERROR 
sTEST #, PC, ADDRESS ACCESSED, MSER 
;$TMP1, $ERRPC, $BDADR,MSER 


sHIGH BYTE PARITY ERROR 
sTEST #, PC, ADDRESS ACCESSED, MSER 
;$TMP1, $ERRPC, $BDADR,MSER 


sERROR DATA PATH 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, $ERRPC, $GDDAT, TSTLOC 


sFORCE MISS READS FROM CACHE 
sTEST #, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
s$TMP1,$ERRPC, R2, R1, $GDDAT 


sFORCE MISS READS FROM CACHE AND MISS 
sTEST #, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
;$TMP1,$ERRPC, R2, R1, $GDDAT 


sERROR IN RECORDING HITS IN HIT/MISS 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
3 $TMP1, $ERRPC, $GDDAT,RECDAT 


sWRITE BYTE ALLOCATES CACHE 
sTEST #@, PC 
;$TMP1, $ERRPC 


sWRITE BYTE HIT DOES NOT RECORD HIT 
sTEST @, PC 
;$TMP1, $ERRPC 


s;BYTES REVERSED ON WRITE CYCLES 
sTEST #@, PC 
;$TMP1, $ERRPC 


sCONDITIONAL BYPASS DOESN'T INVALIDATE CACHE 
sTEST @, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
;$TMP1,$ERRPC, R2, R1, $GDDAT 


sHITS RECORDED AFTER FLUSHING CACHE 
sTEST @, PC, NUMBER OF HITS 
3 $TMP1, $ERRPC,R3 








ade I2 
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ERROR DEFINITIONS 


$90 sITEM 25 

591 001564 130040 EM25 sBYPASS DOESN'T INVALIDATE CACHE 
S92 001566 134621 DH1i sTEST @, PC 

593 001570 136026 OT1 ;$TMP1, $ERRPC 

594 001572 000000 

595 sITEM 26 

596 001574 130100 EM26 sMSER DOES NOT CLEAR ON WRITE REFERENCE 
597 001576 134621 DH1 sTEST #, PC 

S98 001600 136026 OT1 ;$TMP1, $ERRPC 

$99 001602 000000 

600 sITEM 27 

601 001604 130147 EM27 sPARITY ERROR DON'T CAUSE A MISS 
602 001606 135151 DH27 sTEST #, PC, MSER, HIT/MISS 

603 001610 136130 OT27 ;$TMP1, $ERRPC,MSER,R3,0 

604 001612 000000 0 

605 ;ITEM 30 

606 001614 130207 EM30 sPARITY ERROR DON’T SET MSER WITH CCR<7>=0 
607 001616 135151 DH27 sTEST #, PC, MSER, HIT/MISS 

608 001620 136130 OT27 ;$TMP1, $ERRPC ,MSER,R3,0 

609 001622 000000 0 

610 sITEM 31 

611 001624 130261 EM31 sPARITY ERROR IGNORED 

612 001626 134621 OH1 sTEST #, PC 

613 001630 136026 OT1 ;$TMP1, $ERRPC 

614 001632 000000 0 

615 sITEM 32 

616 001634 130306 EM32 sPARITY ERROR IGNORED ON LOW BYTE 
617 001636 134621 DH1 sTEST #, PC 

618 001640 136026 DT1 ;$TMP1, $ERRPC 

619 001642 000000 0 

620 ;ITEM 33 

621 001644 130347 EM33 sPARITY ERROR IGNORED ON HIGH BYTE 
622 001646 134621 DH1 sTEST #, PC 

623 001650 136026 OT1 ;$TMP1, $ERRPC 

624 001652 000000 0 

625 ;ITEM 34 

626 001654 130411 EM34 sPARITY ABORT LOGIC DOESN'T WORK 
627 001656 134621 DH1 sTEST #@, PC 

628 001660 136026 OT1 ;$TMP1, $ERRPC 

629 001662 000000 0 

630 sITEM 35 

631 001664 130451 EM3S sMSER NOT SET PROPERLY 

632 001666 134646 DH4 sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
633 001670 136142 DT35 ;$TMP1, $ERRPC, $GDDAT ,MSER,O 

634 001672 000000 0 

635 sITEM 36 

636 001674 130477 EM36 sPARITY INTERRUPT DOESN'T WORK 
637 001676 134621 DH1 sTEST #, PC 

638 001700 136026 OT1 ;$TMP1, $ERRPC 

639 001702 000000 0 

640 sITEM 37 

641 001704 130543 EM37 sNXM AND PARITY ABORT DIN'T HAPPEN 
642 001706 134621 DH1 sTEST @, PC 

643 001710 136026 OT1 ;$TMP1, $ERRPC 

644 001712 000000 0 

645 sITEM 40 


sPARITY ABORT NOT BLOCKED BY NXM TRAP 


S 
3 
2 
g 
Z 
°o 





SEQ 002! 


— 
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001716 
001720 
001722 


001724 
001726 
001730 
001732 


001734 
001736 
001740 
001742 


001744 
001746 
001750 
001752 


001754 
001756 
001760 
001762 


001764 
001766 


134621 
136026 
000000 


130652 
135214 
136154 
000000 


130736 
134621 
136026 
000000 


130764 
135265 
136164 
000000 


131015 
134621 
136026 
000000 


131055 
134621 
136026 
000000 


131137 
135365 
136200 
000000 


131227 
135365 
136200 
000000 


131314 
135365 


136212 
000000 


131337 
134646 
136224 
000000 


131371 
131427 


134621 
136026 


s ITEM 


; ITEM 


;ITEM 


; ITEM 


;ITEM 


;ITEM 
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SEQ 0022 


sTEST #, PC 
;$TMP1, $ERRPC 


sMULTI-PROCESSOR HOOK INSTRUCTION DOESN'T CAUSE MISS 
sTEST #, PC, INSTRUCTION OPCODE 
;$TMP1, $ERRPC, $BDDAT 


sERROR IN PARITY LOGIC 
sTEST #, PC 
;$TMP1, $ERRPC 


sERROR IN CACHE DATA RAMS 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA, CACHE LOCATION 
;$TMP1, $ERRPC,R1,RECDAT, $BDADR 


s<RROR IN NXM IN STANDALONE MODE 
sTEST #, PC 
;$TMP1, $ERRPC 


sHITS NOT RECORDED PROPERLY THRU HIT/MISS 
sTEST #, PC 
;$TMP1, $ERRPC 


sHIT RECORDED FOR A LOCATION NOT IN CACHE 
sTEST #, PC, LOCATION ACCESSED 
;$TMP1, $ERRPC ,KIPAR6, $BDADR 


sMISS RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE 
sTEST #, PC, LOCATION ACCESSED 
;$TMP1, $ERRPC ,KIPAR6, $BDADR 


sERROR IN TAG STORE 
sTEST #, PC, ADDRESS 
;$TMP1, $ERRPC,R1,$BDADR 


sERROR PCR READ-WRITE BITS 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, $ERRPC, $GDDAT,PCR 


sERROR IN BCSR READ-WRITE BITS 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, $ERROC, $GDDAT,BCSR 


sRESET DOESN'T CLEAR BCSR<4> 
sTEST #, PC 
3 $TMP1, $ERRPC 
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000000 


131463 
134621 
136026 
000000 


131521 
134621 
136026 
000000 


131555 
134621 
136026 
000000 


131601 
134621 
136026 
000000 


131633 
134621 
136026 
000000 


131701 
134621 
136026 
000000 


131730 
134621 
136026 
000000 


132071 
135452 
136262 
000000 


132141 
134621 
136026 
000000 
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; ITEM 


; ITEM 


;ITEM 


; ITEM 


; ITEM 


;ITEM 


;ITEM 


; ITEM 


; ITEM 


; ITEM 


;ITEM 
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;CHECKSUM ERROR IN 16-BIT ROM 
sTEST #, PC 
:$TMP1, $ERRPC 


sCHCKSUM ERROR IN 8-BIT ROM 
sTEST #, PC 
;$TMP1, $ERRPC 


s TIMEOUT READING LKS 
sTEST #, PC 
;$TMP1, $ERRPC 


sLKS<07> DOES NOT BECOME 1 
sTEST #, PC 
+ $TMP1, $ERRPC 


s;WRITE REFERENCE DOESN’T CLEAR LKS<07> 
sTEST #, PC 
+ $TMP1, $ERRPC 


sILLEGAL LKS INTERRUPTS 
sTEST #, PC 
3 $TMP1, $ERRPC 


sPROCESSOR INTERRUPTS DON'T CLEAR LKS<07> 
sTEST #, PC 
+ $TMP1, $ERRPC 


sLKS READY DOESN'T GO LOW 
sTEST #, PC 
+ $TMP1, $ERRPC 


sWRONG NUMBER OF LKS INTERRUPTS 
sTEST #, PC 
;$TMP1, $ERRPC 


sLKS INTERRUPTS HAPPEN AT WRONG PRIORITY 
sTEST @, PC, PRIORITY 
+ $TMP1, $ERRPC, $GDDAT 


sBCSR<12> DOES NOT DISABLES LKS 
sTEST #, PC 
;$TMP1, $ERRPC 


SEQ o023_—CS! 


COKDADO KDJ11-B CLUSTER DIAG. 





ERROR DEFINITIONS 


002204 
002206 
002210 
002212 


002214 
002216 
002220 
002222 


132200 
134621 
136026 
000000 


132235 
134621 
136026 
000000 


132266 
134621 
136026 
000000 


132322 
135516 
136154 
000000 


132360 


132435 
134646 
136272 
000000 


132466 
134621 
136026 
000000 


132536 
134621 
136026 
000000 


132570 
134621 
136026 
000000 


132626 
134621 
136026 
000000 


132661 
134621 


MACRO YOS.02 


s;ITEM 


;ITEM 


; ITEM 


s ITEM 


; ITEM 


; ITEM 


;ITEM 


;ITEM 


; ITEM 








Le 


Wednesday 27-Feb-85 17:55 Page 14-5 


sBCSR<13> DOESN'T SET LKS<06> 
sTEST #, PC 
3 $TMP1, $ERRPC 


sRESET DOESN'T SET LKS<7> 
sTEST #, PC 
3 $TMP1, SERRPC 


sRESET DOESN'T CLEAR LKS<06> 
sTEST #, PC 
3 $TMP1, $ERRPC 


s TIMEOUT READING SLU REGISTERS 
sTEST #, PC, ADDRESS FAILED 
s$TMP1, $ERRPC, $BDDAT 


sXMIT READY DIDN'T GO LOW 
sTEST @, PC 
3 $TMP1, $ERRPC 


sRCSR DOESN'T BECOME 1 
sTEST #, PC 
;$TMP1, $ERRPC 


s;WRONG CHARACTER RECEIVED 
sTEST #, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, $ERRPC, $GDDAT, $BDDAT 


sRCSR<O7> NOT CLEARED AFTER READING RBUF 
sTEST #, PC 
3 $TMP1, $ERRPC 


sXCSR<O7> NOT SET ON RESET 
sTEST #, PC 
3 $TMP1, $ERRPC 


sRCSR<O7> NOT CLEARED ON RESET 
sTEST @, PC 
;$TMP1, $ERRPC 


sSLU INTERRUPTS HAPPEN AT 4 
sTEST #@, PC 
3 $TMP1, SERRPC 


sRESET DOES NOT CLEAR XCSR<6> AND RSCR<6> 
sTEST #@, PC 








SEQ 0024 














M2 
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ERROR DEFINITIONS 


SEQ 0025 


818 002340 136026 OT1 3 $TMP1, $ERRPC 

819 002342 000000 0 

820 sITEM 103 

821 002344 132743 EM103 s TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07> 
822 002346 134621 DH1 sTEST @, PC 

823 002350 136026 OT1 3 $TMP1, $ERRPC 

824 002352 000000 0 

825 sITEM 104 

826 002354 133016 EM104 sRECEIVE INTERRUPTS DON'T CLEAR RCSR<07> 
827 002356 134621 DH1 sTEST #, PC 

828 002360 136026 OT1 ;$TMP1, $ERRPC 

829 002362 000000 0 

830 sITEM 105 

831 002364 133066 EM105 sBREAK CONDITION DOES NOT SET RBUF PROPERLY 
832 002366 135562 DH105 sTEST @, PC, RBUF 

833 002370 136304 O0T105 3 $TMP1, $ERRPC ,RBUF 

834 002372 000000 0 

835 sITEM 106 

836 002374 133141 EM106 sRBUF WASN'T CLEARED ON NEXT CHAR. 

837 002376 135562 DH105 sTEST @, PC, RBUF 

838 002400 136304 0T105 3$TMP1, $ERRPC ,RBUF 

839 002402 000000 0 

840 sITEM 107 

841 002404 133217 EM107 sERROR IN WRITING TO XCSR<O> 

842 002406 134621 DH1 sTEST @, PC 

843 002410 136026 OT1 3 $TMP1, $ERRPC 

844 002412 000000 0 

845 sITEM 110 

846 002414 133253 EM110 sRESET DOES NOT CLEAR XCSR<00> 

847 002416 134621 DH1 sTEST @, PC 

848 002420 136026 OT1 3 $TMP1, $ERRPC 

849 002422 000000 0 

850 f sITEM 111 

851 002424 133315 EM111 sFIRST CHARACTER WAS NOT OVERRUN BY THE SECOND 
852 002426 134646 DH4 sTEST @, PC, EXPECTED DATA, RECEIVED DATA 
853 002430 136272 D0T75 s$TMP1, $ERRPC, $GDDAT , $BDDAT 

854 002432 000000 0 

855 sITEM 112 

856 002434 133373 EMil2 sOVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF 
857 002436 135562 DH105 sTEST @, PC, RBUF 

858 002440 136304 0T105 3 $TMP1, $ERRPC ,RBUF 

859 002442 000000 0 

860 sITEM 113 

861 002444 133456 EM113 sRBUF WAS NOT CLEARED ON THE NEXT CHARACTER 
862 002446 135562 DH105 sTEST @, PC, RBUF 

863 002450 136304 07105 3 $TMP1, $ERRPC ,RBUF 

864 002452 000000 0 

865 sITEM 114 

866 002454 133542 EM114 sERROR IN XCSR<2> 

867 002456 134621 DH1 sTEST @, PC 

868 002460 136026 OT1 3 $TMP1, $ERRPC 

869 002462 000000 0 

870 sITEM 115 

871 002464 133563 EM115 sERROR IN TAG STORE FROM STANDALONE MODE 
872 002466 135614 DH115 sTEST @, PC, MSER, ADDRESS ACCESSED 

873 002470 136314 grass 3 $TMP1, S$ERRPC, $BDDAT ,KIPARG, $BDADR 


| ee 

















CL tetera as a 
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ERROR DEFINITIONS _ 

875 sITEM 116 

876 002474 133633 EM11 s0MA TAG PARITY DOES NOT SET MSER<4> 

877 002476 134621 OH1 sTEST @, PC 

878 002500 136026 OT1i 3 $TMP1, $ERRPC 

879 002502 000000 0 ! 

880 sITEM 117 

661 133714 EM11 <r e a4 SET IN STANDALONE MODE 

882 002506 134621 OH1 sTEST @, P 

883 002510 136026 OT1 3 $TMP1, $ERRPC 

884 002512 000000 0 

885 sITEM 120 

886 002514 133757 EM1 :DMA WRITE HITS DON’T INVALIDATE CACHE 

887 002516 134621 OH1 sTEST @, PC 

888 002520 136026 OT1 3 $TMP1, $ERRPC 

889 002522 0 

890 sITEM 121 

891 002524 134025 EM121 3IN a MODE ON WRITE DMA HITS NOT EVERYTHING IS INVALIDATED 

892 002526 134621 OH1 sTEST @, PC 

893 002530 136026 OT1 ;$TMPi, $ERRPC 

894 002532 0 

895 sITEM 122 

896 002534 134123 EM122 sREAD OMA HIT IS MESSED UP 

897 002536 134621 DH1i sTEST @, PC 

898 002540 136026 OT1i 3 $TMP1, $ERRPC 

899 002542 (+) 

900 sITEM 123 

901 002544 134151 EM1i23 sERROR IN DMA CYCLES FROM Q22BE 

902 002546 134621 OH1 sTEST #, PC 

903 002550 136026 OT1 3 $TMP1, $ERRPC 

904 002552 0 

905 sITEM 124 

906 002554 134203 EM124 sPIRQ —- DON'T TAKE PRIORITY OVER Q@ BUS INTERRUPTS 

907 002556 134621 DOH1i sTEST #, PC 

908 002560 136026 OT1 ;$TMP1, $ERRPC 

909 002562 (+) 

910 sITEM 125 

911 002564 134275 EmM1i25 sNO POWER DOWN TRAP TO 24 OCCUR 

912 002566 134621 DH1 sTEST @, PC 

913 002570 136026 OT1i 3 $TMP1, $ERRPC 

914 002572 ° 

915 sITEM 126 

916 002574 134334 EM126 sERROR IN INTERRUPTS FROM Q22BE 

917 002576 134621 OH1 ;TEST #@, PC 

918 136026 OT1 3 $TMP1, $ERRPC 

919 002602 0 

920 sITEM 127 

921 002604 134371 EM127 sERROR IN PMG COUNTER 

922 002606 134621 OH1 sTEST @, PC 

923 002610 136026 OT1 3$TMP1, $ERRPC 

924 002612 000000 0 

925 sITEM 130 

926 002614 134433 EM130 sUNEXPECTED TIMEOUT 

927 002616 134621 1 sTEST @, PC 

928 002620 136330 0T130 3 $TMP1, SERRPC 

929 002622 0 

930 sITEM 131 

002624 134460 —mM131 sERROR WRITING TO LKS<6> 
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ERROR DEFINITIONS 


932 002626 134621 OH1 
933 002630 136026 OT1 
934 002632 000000 0 

935 sITEM 132 

936 002634 134510 EM132 
937 002636 134621 DH1 
938 002640 136026 OT1 
939 002642 000000 0 

940 sITEM 133 

941 002644 134546 EM133 
942 002646 134621 DH1 
943 002650 136026 OT1 
944 002652 000000 0 

945 sITEM 134 
946 002654 134567 EM134 
947 002656 135671 DH134 
948 002660 136336 07134 
949 002662 0 

950 

951 

952 

953 

954 002664 000000 CSR1: - WORD 
955 002666 000000 CSRe: - WORD 
956 002670 000000 BA: . WORD 
957 002672 000000 WC: - WORD 
958 002674 000000 DATA: - WORD 
959 002676 000000 VQBE1: .WORD 
960 002700 000000 V@PR1: .WORD 
24 002702 000000 SIMGOA: .WORD 
963 sREGISTERS FOR T 
964 002704 000000 CSR1i2: .WORD 
965 002706 000000 CSR22: .WORD 
966 002710 000000 BA2: - WORD 
967 002712 000000 WC2: - WORD 
968 002714 000000 DATA2: .WORD 
969 002716 000000 VQBE2: .WORD 
970 002720 000000 V@PR2: .WORD 
971 

972 002722 000000 LKSFL: .WORD 
973 002724 000000 ACTCHS: .WORD 
974 002726 000000 SAVPCR: .WORD 
975 002730 000000 SAVBR: .WORD 
976 002740 - 2740 

977 002740 TEMP : . WORD 
978 002742 -BLKW 
979 003000 000000 TIMOUT: .WORD 
oo 003002 000032 000012 000006 Q22EN: .WORD 
982 

983 177524 BCR= 
984 177524 BOR= 
985 177520 BCSR= 
986 177746 CCR= 
987 177752 HITMIS= 
988 177734 KMCR= 


oooo coooooo 


oro 


A cooooooo 
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5. 
32,12,6.2 








B3 


sTEST @, PC 
s$TMP1, $ERRPC 


sMAINTENANCE REGISTER ERROR 
sTEST @, PC 
+ $TMP1, $ERRPC 


s EEROM TYPE ERROR 
sTEST @, PC 
3 $TMP1, $ERRPC 


; ERROM WRITE/READ ERROR 
sTEST #, PC, ERROR COUNT, PATTERN, DATA READ, ADDRESS 
3 $TMP1, $ERRPC, $TMPO,R3, $BDDAT, $BDADR 


-SBTTL GLOBAL VARIABLES AND REGISTER NAMES 
sREGISTERS FOR THE FIRST Q22BE 


sCONTROL REGISTER 1 FOR Q22BE 
sCONTROL/STATUS REGISTER 2 

sDMA ADDRESS FOR Q22BE 

sWORD COUNT REGISTER 

sDMA DATA FOR Q22BE 

sADDRESS OF VECTOR FOR Q22BE 
sPRIORITY 

sSIMULTANEUOS GO ADDRESS REGISTER 


SECOND Q22BE 


sCONTROL REGISTER 1 FOR Q22BE 
sCONTROL/STATUS REGISTER 2 
sDMA ADDRESS FOR Q22BE 

sWORD COUNT REGISTER 

;DMA DATA FOR Q22BE 

sADDRESS OF VECTOR FOR Q22BE 
sPRIORITY 


sACTUAL CHECKSUM 


sRESERVED FOR BLOCK MODE TRANSFER 
sPRIORITY 7-4 FOR Q22BE 


sBOOT/DIAGNOSTICS CONFIGURATION 
sBOOT/DIAGNOSTICS DISPLAY 
sBOOT/DIAGNOSTICS STATUS 

sCACHE CONTROL REGISTER 

sHIT OR MISS REGISTER 

sUNIBUS CONFIGURATION REGISTER 


177524 
177524 
177520 
177746 
177752 
177734 





COKDADO KDJ11-B CLUSTER DIAG. 
GLOBAL VARIABLES AND REGISTER NAMES 


ree ee 


177546 
177750 
177744 
177522 
177772 
177562 
177560 
177566 
177564 


177766 


177572 
177574 
177576 
172516 
120001 
000000 





MACRO YOS.02 


LKS= 
MAIREG= 
MSER= 
PCR= 
PIR= 
RBUF = 
RCSR= 
XBUF = 
xCSR= 


CPEREG= 





C3 


177546 
177750 
177744 
177522 
177772 
177562 
177560 
177566 
177564 


177766 


-SBTTL GLOBAL DATA SECTION 


soe 
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SEQ 0028 


sCLOCK STATUS REGISTER 
sMAINTENANCE REGISTER 
sMEMORY SYSTEM ERROR 

sPAGE CONTROL REGISTER 
sPROGRAM INTERRUPT REQUEST 
sRECEIVER DATA BUFFER 
sRECEIVER STATUS REGISTER 

s TRANSMITTER DATA BUFFER 

s TRANSMITTER STATUS REGISTER 


s;CPU ERROR REGISTER 


sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 


Whe o 


; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


s IN MORE THAN ONE TEST. 


s THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 
sWHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
s;FROM THE DEFAULT RESPONCE. 


SLOCOO: .WORD 0 
SLOCO1: .WORD 0 


3 THESE ot Se ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA. 


LOWADD 0 
GOODAD: .WORD 0 
ERRCNT: .WORD 0 
TSTADD: .WORD 0 
NEWADD: .WORD 0 
FLAG: -WORD O 
CCHPAS: .WORD 0 
EEPAS: .WORD 0 
SAVSUP: .WORD 0 
SAVUSE: .WORD 0 
SAVMRO: .WORD 0 
SAVMR1: .WORD 0 
SAVMR2: .WORD 0 
SAVSWR: .WORD 0 
FLOAT: .BLKW 4 
FLO: -BLKW 4 
SEQ: -WORD O 
SPS: -WORD 0O 
SPSJ: -WORD 0O 
BTEXP: .BLKW 4 
BTRES: .BLKW 4 
COUNT: .WORD 0 
RECFEC: .BLKW 4 
RECST: .BLKW 4 





sSTORES LOW ADDRESS FOR RAM TESTS 

sSTORES GOOD ADDRESS FOR RAM TESTS 

s CONTAINS TOTAL NO. OF EEROM ERRORS 
sADDRESS STORE FOR RAM TESTS 

sADDRESS STORE FOR RAM TEST 

sUSED TO STORE “FLAG” CONDITIONS 

; fleg-counter for control of Cache subtests 
; flag-counter for control of EEROM subtest 
sUSED TO STORE SUPERVISOR STACK VALUE 
sUSED TO STORE USER STACK VALUE 

sUSED TO STORE MMU STATUS REGISTER 0 DATA 
sUSED TO STORE MMU STATUS REGISTER 1 DATA 
sUSED TO STORE MMU STATUS REGISTER 2 DATA 
; SAVE SFTWRE SWITCH REG DURING EEROM TEST 
sUSED TO STORE VALUES FOR MMU TESTS 

sUSED TO STORE VALUES FOR MMU TESTS 
sSTORES SEQUENCE NUMBER FOR JUMP TESTS 
sSTORES STACK POINTER FOR JUMP TESTS 
sSTORES STACK POINTER FOR JUMP TESTS 
sSTORES EXPONENT DURING BIT TESTS 

sSTORES RECIEVED DATA FOR BIT TESTS 
sERROR INDICATOR FOR FLOATING POINT TESTS 
sRECIEVED FLOATING POINT EXCEPTION CODE 
sRECIEVED FLOATING POINT STATUS 


— 





003142 


003152 
003154 


003156 
003160 


003162 
003164 


COKDADO KDJ11-B CLUSTER DIAG. 


| 
GLOBAL DATA SECTION 
7 
000001 
000000 
000000 


—- 








D3 
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RECOST: .BLKW 4 sDESTINATION ADDRESS FOR FLOATING POINT TESTS 
; THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 

ALLCTR: .WORD 0 

LOOPIN: .WORD 0 


s;SOME MORE TEMPORARY STORAGE FOR RAM TESTS 


SAVPOS: .WORD i?) ;STORES TEMPORARY BIT POSITIONS FOR RAM TESTS 
MASK: «WORD O ;STORES BIT MASK FOR ERROR ISOLATION 
fives IS IT. THE PROGRAM TEST LOCATION! !!!!isrereeeeeges 
Loc: . 
-BLKW 20.. 
;FPP REGISTER DEFINITIONS 
ACO= #0 
ACi= #1 
AC2= #2 
AC3= #3 
AC4= #4 
ACS= #5 
AC6= #6 
AC7= #7 
;FPP INTERRUPT VECTOR 
FPVEC=244 
STBOT= 1000 
TAB1: . WORD 123456 
-WORD 000000 
-WORD O 
. WORD 1 
TAB2: .WORD os5555 
. WORD 177777 
WORD 145671 
.- WORD 100000 
TABS: -WORD 0039000 
- WORD 123456 
-WORD 0O 
-WORD O 
TAB4: .» WORD 55555 
. WORD -1 
-WORD O 
-WORD 0O 
TABS: -WORD 43243 
-WORDB O 
.» WORD .¢) 
-WORD 0O 
TABSA: .WORD 162400 
-WORD 0O 
-WORD O 
-WORD O 
TABE: -WORD O 
-WORD O 





ee a ee 


COKDADO KDJ11-B8 CLUSTER DIAG. 
GLOBAL DATA SECTION 
1104 003320 000000 


000000 
1106 003324 047050 
1107 003326 010000. 
000000 


1109 003332 000000 
1110 003334 000200 
000000 


1127 003404 030000 003000 
000000 


1133 003434 030000 003000 


-_-_—-—- 








ES 
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000000 


000002 





TAB6A: 


TAB?: 


TABS: 


TABS: 
TAB10: 


TAB11: 


TAB1IA: . 


TAB12: 
TAB1i3: 


TAB13B: . 


TAB14: 


TABiS: 


TAB1i6: 


TAB17: 


TAB18: 


TAB21: 
TAB22: 
TAB23: 
TAB24: 
TAB2S: 
TAB26: 
TAB27: 
TAB28: 





30000 


SEQ 0030 


COKDADO KDJ11-B CLUSTER 


ee ——————— | 


GLOBAL DATA SECTION 


1181 


010100 
010100 


012706 
005026 
022706 
001374 
012706 


012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 


DIAG. 


004112 
000040 


177777 
000100 


177777 
000042 


000030 
000032 











rs 
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SEQ 0031 


TAB29: .WORD 10100,0,0,0 
TAB29A: .WORD 10100,0,2000,0 


U 

TAB30: .WORD 500,0,0,0 

TAB31: .WORD 100400,0,0,0 

TAB32: .WORD 16000,0,0,0 

TAB33: .WORD 11600,0,0,0 

TAB34: .WORD 640,0,0,0 

TAB40: .WORD 77600,0,0,0 

TAB41: .WORD 100200,0,0,1 

TAB42: .WORD 340,0,0,0 

TAB43: .WORD Tes 177777, 177777,177776 
TAB4S: .- WORD ne ter 

TAB46: .WORD 577,-1,0,0 

TAB47: .WORD 173737, 124242, 052525, 12346 
TAB47A: .WORD 0,0, 052525, 12346 

TAB48: .WORD 173737, 124242,0,0 
TAB49: .WORD 600,0,0,0 


START: 
3; LCP/ORION ROUTINE TO SAVE EMTULATOR AND PRIORITY 
EMTSAV: TST SAV30 3; FIRST TIME THROUGH ? 
BNE VMKOR 3; BRANCH IF BEEN HERE ALREADY 
BIT #BITS,a#S2 33; ARE WE IN UFD MODE ? 
BEQ VMKOR 33; LEAVE IF NOT 
MOV #-1,UFDFLG 33; SET UFD FLAG 
BIT *#BIT6,a#52 33 ARE WE IN QUIET MODE ? 
BEQ 1$ ;; BR IF NOT 
MOV #-1,UQUIET 33 SET QUIET MODE 
1$: EMT 42 33; GET ADDRESS OF XXDP DCA TABLE 
CLR 42(RO) 33 CLR XXDP+ “DRSERR" 
MOV 30,SAV30 33; SAVE EMULATOR ADDRESS 
MOV 32,SAV32 33 SAVE EMULATOR PRIORITY LEVEL 
BR VMKOR 3; GET AROUND TAG AREA 
SAV30: .WORD t¢) 33 PUT EMULATOR INFO HERE 
SAV32: .WORD c¢) 33 PUT PRIORITY LOCATION HERE 
UFDFLG: .WORD 0 3; USER FRIENDLY MODE FLAG 
a" - WORD i?) 33; UFD QUIET MODE FLAG 
Vv 8 


REP e tte PPT it tt ttt tt ttt TTT TTT TTT TTT TTT TTT Tee 
1$: 

-SBTTL INITIALIZE THE COMMON TAGS 

;;CLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV #$CMTAG ,R6 ;;FIRST LOCATION TO BE CLEARED 
CLR /CR6)+ ;;CLEAR MEMORY LOCATION 

CMP .@SWR,R6 ; ;DONE? 

BNE 1.76 ;;LOOP BACK IF NO 


MOV Pate oS ol s;SETUP THE STACK POINTER 
ssINITIALIZE A FEW VECTORS 

MOV #$SCOPE ,a®IOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 

MOV #340, ,Q@IOTVEC+2 ;;LEVEL 7 

MOV @$ERROR ,AVEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 

MOV #340, Q0EMTVEC+2 ;;LEVEL 7 

MOV @$TRAP,A@TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 

MOV #340, @OTRAPVEC+2;LEVEL 7 

MOV ‘ @$PWRON,@OPWRVEC ; ;POWER FAILURE VECTOR 

MOV #340, Q9@PWRVEC+2 ;;LEVEL 7 





COKDADO KDJ11-B8 CLUSTER DIAG. 
COMMON TAGS 


INITIALIZE THE 


uw 
uw 
ut 


013737 
005037 
005037 
112737 
012737 
012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 
012716 
000002 
012737 
012737 
012637 
005037 
132737 
001403 
012737 


013737 
012737 
012737 
012737 
012737 
012737 
012737 
005037 
032737 
001130 
012701 
012711 


005227 
001052 
022737 


000403 
112737 


000423 


004472 
177777 
177777 
140440 
004554 
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140400 


001115 
001106 
001110 


000004 
001140 
001142 
174622 


000042 


SEQ 0032 


MOV $ENDCT,$EOPCT  ;;SETUP END-OF-PROGRAM COUNTER 


CLR $TIMES ssINITIALIZE NUMBER OF ITERATIONS 

CLR $ESCAPE ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, $ERMAX ;sALLOW ONE ERROR PER TEST 

MOV #.,$LPADR ne te THE LOOP ADDRESS FOR SCOPE 


MOV #.,$LPERR s;SETUP THE ERROR LOOP ADDRESS . 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;sEQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV QSERRVEC, -(SP) ;;SAVE ERROR VECTOR 


MOV #30000$ , AVERRVEC 3;SET UP ERROR VECTOR 
MOV #DSWR , SWR 3sSETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,9SWR 3;TRY TO REFERENCE HARDWARE SWR 
BNE 30002$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3;AND THE HARDWARE SWR IS NOT = -1 

BR 30001$ ;;BRANCH IF NO TIMEOUT 

30000$: are #30001$, (SP) 3;SET UP FOR TRAP RETURN 

30001$: MOV @SWREG , SWR ssPOINT TO SOFTWARE SWR 


MOV #DISPREG , DISPLAY ’ 
30002$: MOV (SP)+,Q@@ERRVEC ;;RESTORE ERROR VECTOR 


CLR $PASS 3;CLEAR PASS COUNT 

BITB #APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 

BEQ 30003$ 3sYES,USE NON-APT SWITCH 
encane MOV #$SWREG, SWR 3sNO,USE APT SWITCH REGISTER 

MOV UFOFLG, UQUIET sABORT IN UFD ON ERROR 

MOV @TOUT,@@ERRVEC ;POINT TO TIMEOUT ROUTINE 

MOV #340, QERRVEC+2 ;AT PRIORITY 7 

MOV @RAMPAR,30114 ;POINT PARITY ABORT 

MOV #340 ,8#116 sAT PRIORITY7 

MOV @MMUTRP,8%250 ;POINT MMU TRAP VECTOR 

MOV #340 , 80252 ; 

CLR 80177766 sCLEAR CPU ERROR REGISTER 

BIT #BITO6 ,a#S2 sIN UFD QUIET MODE ? 

BNE LOOP sIF SO, SKIP PRINTOUT 

MOV #.*12,R1 sSTORE LOCATION POINTER 

MOV #-1,(R1) sMAKE SURE TO PRINT NOT ONLY AT FIRST TIME 


-SBTTL TYPE PROGRAM NAME 
3;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


INC #-1 ssFIRST TIME? 
BNE 30004 $ ; BRANCH IF NO 
CMP #@$ENDAD , 8042 3sACT-11? 
BEQ 30004 $ ;+;BRANCH IF YES 
TYPE , 30005$ sTYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST av42 3;ARE WE RUNNING UNDER XXDP/ACT? 
. BNE 30006 $ +;BRANCH IF YES 
CMPB SENV, #1 ;;ARE WE RUNNING UNDER APT? 
BEQ 30006 $ +;BRANCH IF YES 
CMP SWR , @SWREG +sSOFTWARE SWITCH REG SELECTED? 
BNE 30007$ ’ ;:;BRANCH IF NO 
GTSWR 3;GET SOFT-SWR SETTINGS 
BR 30007$ 
poseese MOVB #1, $AUTOB 3;SET AUTO-MODE INDICATOR 
BR 30004$ +sGET OVER THE ASCIZ 








COKDADO KDJ11-B8 CLUSTER DIAG. 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


004622 


1242 004742 


1246 004742 
1247 004744 
1248 004746 
1249 004750 


1255 004752 
| 1256 004754 


032737 
001002 
004737 


000277 
000244 
001401 
001001 


104001 
000257 


001220 
001224 


000017 


003032 
177777 
000001 
000000 


000200 
137070 


MACRO YOS.02 


000001 


003032 
003032 
003032 


000052 
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SEQ 0033 
3;30005$: -ASCIZ <CRLF>* KDJ11-B CPU DIAGNOSTIC - COKDADO *<CRLF> 
30004$: 
NOP ; debug aid 
CMPB SENV, #1 3; Punning under APT? 
BNE 20$ ; default no-APT initialization 
MOV $USWR ,RO ; work copy pass calculation 
TST RO ; if = 0 default value 
BEQ 25$ ; setup default value 
BIC #17,RO ; clear low order nibble 
CLC 3 assure no unknowns 
ROR RO ; 4 rotates = divide 
ROR RO ; by 16 (=pass time) 
ROR RO ; this area subroutined 
ROR RO ; with general purpose 
TST RO ; divide, this test to 
BEQ 30$ ; determine skip altogether 
MOV RO, CCHPAS sresidue = no. of desired passes 
BR $ 3 continue on 
208: ~ ————— ; largest number no apt mode?? 
253: oy —_— ; normal default = 1 
30$: MOV #0, CCHPAS ; no cache tests included 
35$: nop ; debug aid 
BIT #BITO7,a#S2 ;UFD MODE? 
BNE LOOP ;IF YES, BRANCH 
JSR PC, Q22SIZ ;SIZE FOR Q22BE 
LOOP: 
-DSABLE AMA 
5 EERE EERE REE EERE EERE EERE ER EREEEEEEEEEEEEEEEEEEEEEEREEEEEEERES 
TST1: SCOPE 
-SBTTL BASE INSTRUCTION SET TESTS 
5 EERE EEE EERE EES SEES EEE EEE EEE EEE EE EEE EE EEE EEEEEEEEEEEEEEEEE EERE EEE REESE 
EEE ETT TT i iT Titi Tir rir iri ttt ttt ttt TTT TTT TTT TTT TTT TTT Teer 
; BEGIN BASE INSTRUCTION SET TESTING 
5 REEEEEEEEEEE EE ESSE EEE SEES EEE EEE EERE EERE EES EOEEEEEEEEEEEEEEEEER ERE E EEO E EES 
§ ERE E REE ERE EERE ERE EERE ESSE EEE EEE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
FRSTST: 
;TEST BEQ BNE INSTRUCTIONS 
5 RRR REAR EERE EERE EEE EEE EE EEE EEEEEEEEEEEEEEEEEEERERERREEEEE 
; THESE Re BETIS ARE FUNDAMENTAL TO RECOGNIZING ERROR CONDITIONS 
CLZ ;CC=0100 - Z BIT CLEARED 
BEQ 1$ ;*TEST INSTR -TRY TO CAUSE A BEQ ERROR 
BNE 2s ;BRANCH IF GOOD 
;THE Z FLAG DIDNT CLEAR OR BRANCH FAILED. 
sFAILURE AT THIS LOCATION 
;COULD MEAN A BUS PROBLEM, MICRO-CODE PROBLEM 
sCONDITION CODE PROBLEM OR JUST ABOUT ANYTHING 
sELSE. 
1$: ERROR +1 ;CPU ERROR 
2s: ccc ? 
ee 





COKDADO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


004756 
004760 
004762 


004764 
004766 
004766 


000264 
001001 
001401 


104001 


012737 
022737 
001401 


104001 


012737 
023727 
001401 
104001 


125252 
125252 


052525 
000000 
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SEZ sCOND CODES = 0100 (ZERO) 
BNE 3$ s*#TEST INSTR* TRY TO BRANCH ON ZERO FLAG 
BEQ 4$ ;*TEST INSTR* BRANCH IF GOOD 
sBRANCH FAILURE WITH Z BIT SET 
ERROR +1 s;CPU ERROR 
sEND OF TEST 


TEST BRANCH ON CARRY 


bE EREREERERE EERE EEE EERE EEE EES EE EERE ESEEEEEEEEEEE SEES EEEEE EERE 
sTHIS IS A TEST TO SEE IF THE MODULE FORM ANTICIPATED IS FEASIBLE. 


1$: 
2$: 


3$: 
4$: 
M3: 


1$: 
2$: 


000000 
052525 


ccc ;CC=0000 
BCC 2s s*TEST INSTR* 

s;BRANCH CARRY CLEAR FAILED 
ERROR +1 ;CPU ERROR 
SEC sCC#1111 
BCS 4$ s;*TEST INSTR* 

; BRANCH CARRY SET FAILED 
ERROR +1 ;CPU ERROR 


TEST DATA PATHS 
CLR RO 


BNE i$ sTRY TO INSURE WE ARE TESTING 
THE DATA PATH AND NOT THE “CLR RO” INSTRUCTION 
CLR CRO) sFORCE LOCATION TO ZERO 
BNE i$ sTRY TO INSURE O=0 
TST avo sAGAIN, TRY TO INSURE THAT 0=0 
BEQ 2s sBRANCH IF GOOD 
sLOCATION O NOT SETUP PROPERLY 
ERROR +1 sCPU ERROR 


TEST DATA PATHS - ONES AND ZEROS 

MOV #125252 ,,900 :0=125252 

CMP #125252 ,8#0 sSEE IF DATA MADE IT 

BEQ 2¢ sBRANCH IF IF DATA IS GOOD 
sERROR! EITHER THE BUS IS BAD, 
;OR THE MOV OR COMPARE 
s INSTRUCTIONS FAILED 

ERROR +1 ;CPU ERROR 
sEND OF TEST 


TEST DATA PATHS - DATA 0'S AND 1'S 
MOV 


#052525 , #0 sSETUP DATA 
— rds s TEST FOR CORRECT DATA 
ERROR +1 ;CPU ERROR 


SEQ 0034 
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COKDADO KDJ11-B CLUSTER DIAG. 
SEQ 0035_—s! 


BASE INSTRUCTION SET TESTS 


1330 ; TEST DATA PATHS - 1'S 

1331 005062 005037 000000 CLR a#0 

1332 005066 005137 000000 COM ae0 ;SET UP MEMORY LOCATION O = 111111 
1333 005072 023727 000000 177777 CMP O40 , #177777 ; TEST DATA 

1334 005100 001401 BEQ 2s ;BRANCH IF NO ERROR 
1335 005102 104001 1$: ERROR +1 ;CPU ERROR 

1336 005104 2s: 

1337 

1338 3 

1341 005104 GPROTS: 

1342 ; RO BIT TESTS 

1343 005104 012700 177777 MOV #177777,RO ;RO=177777 

1344 005110 020027 177777 CMP RO, #177777 sDOES RO=177777 
1345 005114 001401 BEQ i$ :YES GO ON 

1346 :NO GO TO ERROR 
1347 005116 104001 ERROR +1 ;CPU ERROR 

1348 005120 005000 1$: CLR RO ;RO=0 

1349 005122 020027 000000 CMP RO, #0 ;DOES RO=0 

1350 005126 001401 BEQ 2s sYES GO ON 

1351 sNO GO TO ERROR 
1352 005130 104001 ERROR ol ;CPU ERROR 

1353 005132 012700 125252 2$: MOV #125252 ,RO0 ;RO=125252 

1354 005136 020027 125252 CMP RO, #125252 ;DOES RO=125252 
1355 005142 001401 BEQ 3$ :YES GO ON 

1356 sNO GO TO ERROR 
1357 005144 104001 ERROR ol ;CPU ERROR 

1358 005146 012700 052525 3$: MOV #52525 ,RO0 :RO=52525 

1359 005152 020027 052525 CMP RO, #52525 ;DOES RO=52525 
1360 005156 001401 BEQ 4$ ;YES GO ON 

1361 sNO GO TO ERROR 
1362 005160 104001 ERROR +1 ;CPU ERROR 

1363 005162 4$: 

1364 3 

1367 005162 GPRITS: 

1368 3 Ri BIT TESTS 

1369 005162 012701 177777 MOV #177777,R1 3;R1=177777 
1370 005166 020127 177777 CMP R1,#177777 ;DOES R1=177777 
1371 005172 001401 BEQ 1$ ;YES GO ON 

1372 ;NO GO TO ERROR 
1373 005174 104001 ERROR +1 ;CPU ERROR 

1374 005176 005001 1$: CLR Ri ;R1=0 

1375 005200 020127 000000 CMP R1,#0 ;DOES R1=0 

1376 005204 001401 BEQ 2¢ ;YES GO ON 

1377 sNO GO TO ERROR 
1378 005206 104001 ERROR +1 ;CPU ERROR 

1379 005210 012701 125252 2s: MOV #125252,R1 3R1=125252 

1380 005214 020127 125252 CMP R1, #125252 ;DOES R1i=125252 
1381 005220 001401 BEQ 3$ ;YES GO ON 

1382 sNO GO TO ERROR 
1383 005222 104001 ERROR +1 ;CPU ERROR 

1384 005224 012701 052525 3$: MOV #52525,R1 3R1=52525 

1385 005230 020127 052525 CMP R1, #52525 ;DOES R1=52525 
1386 005234 001401 BEQ 4$ ;YES GO ON 

1387 sNO GO TO ERROR 
1388 005236 104001 ERROR +1 ;CPU ERROR 

1389 005240 4$: 


ees 











| K3 
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SEQ 0036 
BASE INSTRUCTION SET TESTS 
1393 005240 GPR2TS: 
1394 F R2 BIT TESTS 
1395 005240 012702 177777 MOV #177777 ,R2 3R22177777 
1396 005244 020227 177777 CMP R2, 0177777 ;DOES R2=177777 
1397 005250 001401 BEQ 1$ ;YES GO ON 
1398 :NO GO TO ERROR 
1399 005252 104001 ERROR +1 ;CPU ERROR 
1400 005254 005002 1$: CLR R2 ;R2=0 
1401 005256 020227 000000 CMP R2,#0 ;DO0ES R2=0 
1402 005262 001401 BEQ 2s ;YES GO ON 
1403 sNO GO TO ERROR 
1404 005264 104001 ERROR +1 ;CPU ERROR 
1405 005266 012702 125252 2s: MOV #125252 ,,R2 ;R2=125252 
1406 005272 020227 125252 CMP R2, #125252 :DOES R2=125252 
1407 005276 001401 BEQ 3$ ;YES GO ON 
1408 sNO GO TO ERROR 
1409 005300 104001 ERROR ee | ;CPU ERROR 
1410 005302 012702 052525 3$: MOV #52525 ,R2 :R2=52525 
1411 005306 020227 052525 CMP R2, #52525 ;DOES R2=52525 
1412 005312 001401 BEQ 4$ :YES GO ON 
1413 ; ;NO GO TO ERROR 
1414 005314 104001 ERROR +1 ;CPU ERROR 
1415 005316 4$; 
1416 3 
1419 005316 GPR3TS: 
1420 3 R3 BIT TESTS 
1421 005316 012703 177777 MOV #177777 ,R3 3R3=177777 
1422 005322 020327 177777 CMP R3,0177777 sDOES R3=177777 
1423 005326 001401 BEQ i$ ;YES GO ON 
1424 ;NO GO TO ERROR 
1425 005330 104001 ERROR +1 ;CPU ERROR 
1426 005332 005003 i$: CLR R3 3R3=0 
1427 005334 020327 000000 CMP R3,#0 ;DOES R3=0 
1428 005340 001401 BEQ 2s ;YES GO ON 
1429 ;NO GO TO ERROR 
1430 005342 104001 ERROR ol ;CPU ERROR 
1431 005344 012703 125252 2s: MOV #125252 ,R3 3R3=125252 
1432 005350 020327 125252 CMP R3,#125252 ;DOES R3=125252 
1433 005354 001401 BEQ 3$ ;YES GO ON 
1434 sNO GO TO ERROR 
1435 005356 104001 ERROR +1 ;CPU ERROR 
1436 005360 012703 052525 3$: MOV #52525 ,R3 3R3=52525 
1437 005364 020327 052525 CMP R3, #52525 ;DOES R3=52525 
1438 005370 001401 BEQ 4$ ;YES GO ON 
1439 ;NO GO TO ERROR 
1440 005372 104001 ERROR +1 ;CPU ERROR 
1441 005374 4$: 
1442 3 
1445 005374 GPR4TS: 
1446 ; R4 BIT TESTS 
1447 005374 012704 177777 MOV #177777 ,R4 3R4=2177777 
1448 005400 020427 177777 CMP R4,0177777 sDOES R4=177777 
1449 005404 001401 BEQ i$ ;YES GO ON 
1450 :NO GO TO ERROR 
1451 005406 104001 ERROR +1 ;CPU ERROR 
1452 005410 005004 1$: CLR R4 3R4=0 
020427 000000 CMP R4,#0 ;DOES R4=0 


~ 
> 
vi 
w 
S 
rs 
~ 
~ 














f i aD ——————— 
| » : | 
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BASE INSTRUCTION SET TESTS 


1454 005416 001401 
1455 


1456 005420 104001 
1457 005422 012704 
1458 005426 020427 
1459 005432 001401 


1461 005434 104001 
1462 005436 012704 
1463 005442 020427 
1464 005446 001401 


1466 005450 104001 


1473 005452 012705 
1474 005456 020527 
1475 005462 001401 


1477 005464 104001 
1478 005466 005005 
1479 005470 020527 
1480 005474 001401 


1482 005476 104001 
1483 005500 012705 
1484 005504 020527 
1485 005510 001401 


1487 005512 104001 
1488 005514 012705 
1489 005520 020527 
1490 005524 001401 


1492 005526 104001 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 


2s: 


3$: 


1$: 


2s: 


3$: 


i$: 


2s: 


3$: 


BEQ 2s 


ERROR 1 
MOV #125252 ,R4 
CMP rca 


ERROR +1 
MOV #52525 ,R4 
CMP R4,#52525 
BEQ 4$ 


ERROR +1 


~ BIT TESTS 


OV #177777,R5 
CMP RS, #177777 
BEQ i$ 
ERROR +1 
CLR RS 
CMP RS, #0 
BEQ 2s 


+1 
MOV #125252 ,R5 
CMP acres 


+1 
MOV #52525,R5 
CMP > ircrraaae 


ERROR +1 


R6 BIT TESTS 


MOV #177777,R6 
CMP R6,0177777 
BEQ i$ 

ERROR +1 

CLR R6 

CMP R6, #0 

BEQ es 


+1 
MOV #125252 ,R6 
CMP aaa 


+1 
MOV #52525 ,R6 





;CPU 


;CPU 


3;CPU 


;CPU 


;CPU 


;CPU 


;CPU 


;CPU 


3;CPU 


3;CPU 


sYES GO ON 
sNO GO TO ERROR 


ERROR 


#R42125252 
sD0ES R4=125252 
sYES GO ON 
sNO GO TO ERROR 


ERROR 


3R4252525 

s;DO0ES R4=52525 
sYES GO ON 

sNO GO TO ERROR 


ERROR 


3RS5*177777 
sDOES RS*177777 
sYES GO ON 
sNO GO TO ERROR 


ERROR 


3R5=0 

;D0ES R5=0 

;YES GO ON 

sNO GO TO ERROR 


ERROR 


sR5=125252 
sDO0ES RS=125252 
sYES GO ON 
sNO GO TO ERROR 


ERROR 


sR5=52525 

sDOES R5=52525 
sYES GO ON 

sNO GO TO ERROR 


ERROR 


3R6*177777 
sDOES R6=177777 
:YES GO ON 
sNO GO TO ERROR 


ERROR 


3R6=0 

sDOES R6=0 

;YES GO ON 

sNO GO TO ERROR 


ERROR 


sR6=125252 
sDOES R6=125252 
sYES GO ON 
sNO GO TO ERROR 


ERROR 





sR6=*52525 


SEQ 0037 





COKDADO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1515 005576 
1516 005602 


020627 
001401 


104001 
012706 


012737 
022737 
001401 


104001 
005037 
022737 
001401 


104001 
012737 
022737 
001401 


104001 
012737 
022737 
001401 


104001 


052525 


001000 


000377 
000357 


177776 
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177776 
177776 


177776 


177776 
177776 


177776 
177776 


MS 


CMP R6, #52525 
as 
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sD0ES R6=*52525 
ON 


BEQ sYES GO 
sNO GO TO ERROR 
ERROR o1 ;CPU ERROR 
4$ MOV #STBOT RE sRESTORE SP 
3 
PSWBTS: 
3 PSW LOW BYTE BIT TESTS 
MOV 9377 ,80177776 3PS=357 T BIT SHOULDN'T SET 
CMP #357 ,80177776 ;DO0ES PS=357 
BEQ 1$ ;YES GO ON 
sNO GO TO ERROR 
ERROR o1 ;CPU ERROR 
1$: CLR 80177776 3PS=0 
CMP #0 ,80177776 sD0ES PS=0 
BEQ 2s ;YES GO ON 
sNO GO TO ERROR 
ERROR +1 ;CPU ERROR 
2s: MOV #105 ,80177776 3PS=105 
CMP #105 ,80177776 ;DOES PS=105 
BEQ 3$ sYES GO ON 
:NO GO TO ERROR 
ERROR ol ;CPU ERROR 
3$: MOV 252 ,80177776 3PS=252 
CMP #252 ,80177776 ;DOES PS=252 
BEQ 4$ ;YES GO ON 
sNO GO TO ERROR 
ERROR +1 ;CPU ERROR 
4$: 
MSPO: 
3 TEST SINGLE OPERAND INSTRUCTIONS- MODE 0 


Eh dcedadbdachdddehdttdhibibididdd dba bbbbbretLrrrea Lat TTii 
sTHE INC, oan, oS. AND DECREMENT INSTRUCTIONS ARE VERIFED. 


CLR siete R4 WITH DATA 
COM R4 
CLR R4 S eTEST INSTRUCTION 
BEQ 2$ ;BRANCH IF R4 CLEARED 
1$ ERROR o1 ;CPU ERROR 
2s COM R4 3*TEST COMPLIMENT INSTRUCTION 
INC R4 3*TEST INCREMENT INSTRUCTION 
BEQ 4$ sBRANCH IF R4 =0 
sCOMPLIMENT OR INCREMENT FAILED 
3$: ERROR +1 ;CPU ERROR 
4$: 
3 
MSPB: 
3 ya as OPS - EVEN BYTE OF CLRB, DECB, AND COMB 
COM R4 sSETUP TEST REGISTER 
CLRB R4 ;*TEST CLEAR BYTE INSTRUCTION 
BEQ 2s sBRANCH IF GOOD 


sCLEAR EVEN BYTE FAILED 





SEQ 0038 


. 
ee —— - | 
a a en 


COKDADO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 





005014 


MACRO YOS.02 


23: 








N3 
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SEQ 0039 


ERROR +1 sCPU ERROR 


DECB R4 s#TEST DECREMENT BYTE 
BPL 3$ sDECREMENT BYTE FAILED 
COMB R4 s*#TEST COMPLIMENT BYTE 
BEQ 43 sBRANCH IF GOOD 
sCOMPLIMENT OR DECREMENT FAILED TO WORK 
ERROR +1 sCPU ERROR 


an —— OPS - MODE 1 CLRB, COMB, AND INCB 


R 
CLR CR4) 
COM (R4) sSETUP TEST DATA 
CLR (R4) 3*#TEST INSTRUCTION 
BEQ 2s sBRANCH IF GOOD 
sMODE 1 FAILED 
ERROR o1 sCPU ERROR ~~ 
COM CR4) 3*#TEST INSTRUCTION 
BEQ 3$ sCO)SHOULD = -l 
BPL 3$ F 
INC (R4) s*#TEST INSTRUCTION 
BEQ 4$ sBRANCH IF GOOD 
3COM OR INC FAILED TO ALTER LOC O CORRECTLY 
ERROR 1 ;CPU ERROR 


My "yy OPS MODE1-EVEN BYTE-CLRB,COMB, INCB 
L 


CLR (R4) 

COM (R4) sSETUP TEST DATA 

CLRB (R4) s#TEST INSTRUCTION 

CLRB (R4) s#TEST INSTRUCTION 

BEQ 2s sBRANCH IF GOOD 
sCLEAR (0) EVEN BYTE FAILED 

ERROR +1 sCPU ERROR 

INCB (R4) s*TEST INSTRUCTION 

BMI 3$ s TEST FLAGS 

BEQ 3$ 

COMB (R4) s*#TEST INSTRUCTION 

INCB (R4) 

INCB (R4) 

BEQ as sBRANCH IF GOOD 
sCOMB OR INCB FAILED 

ERROR +1 sCPU ERROR 


TEST SINGLE OF 5 - ODD BYTE - CLRB, COMB, DECB 
CLR R4 
CLR (R4) 


COKDADO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 





005004 
105104 
005204 
005014 
005114 
105024 
001401 


104001 
005304 





MACRO YOS.02 


1$: 


1$: 


1$: 


Cc 


B4 
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R4 
R4 
(R4) 
(R4) 
(R4)+ 
1$ 


+1 
R4 


sSETUP TEST DATA 
sPOINT TO ODD BYTE 
s*#TEST INSTRUCTION 
sBRANCH IF GOOD 

sCLEAR OOD BYTE FAILED 


sCPU ERROR 

sPOINT TO EVEN BYTE 
sLOC 0-1 0 

sPOINT TO ODD BYTE 
3*#TEST INSTRUCTION 
sLOC O=-1 0 

sBRANCH IF ERROR 


3 
s*TEST INSTRUCTION 
;BRANCH IF GOOD 

sMODE 1, ODD BYTE FAILED 
;CPU ERROR 


= CLR, COM, INC 


3R4=400 
3400-0 


3400=-1 

s#TEST INSTRUCTION 
;BRANCH IF GOOD 
sMODE 2 CLEAR FAILED 
;CPU ERROR 


;R4=400 
;#TEST INSTRUCTION 
;BRANCH IF FAILURE 


3R4=400 

3*#TEST INSTRUCTION 
;BRANCH IF GOOD 
sMODE 2 FAILURE 
;CPU ERROR 


yy —_. COMB, DECB, MODE 2 - EVEN BYTE 
L 


3R4=400 


3400--1 

3*TEST INSTRUCTION 
;BRANCH IF GOOD 

;MODE 2 EVEN BYTE FAILED 
;CPU ERROR 


SEQ 0040 


COKDADO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1708 006172 
1709 006174 
1710 006176 
1711 006200 
006202 


006204 
006206 
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SEQ 0041 
DECB CR4)6 +*TEST INSTRUCTION 
BPL 2$ ;BRANCH IF BAD 
DEC R4 sPOINT TO EVEN BYTE 
COMB CR4)+ :*#TEST INSTRUCTION 
BEQ 3$ sBRANCH IF GOOD 
sMODE 2, EVEN BYTE FAILED 
: ERROR +1 ;CPU ERROR 
3 
MSPH: 
F TEST CLRB, COMB, INCB MODE 2 - ODD BYTE 
CLR R4 
COMB R4 
INC R4 3R4=400 
CLR CR4) 
COM CR4) 3400=-1 -1 
INC CR4) sPOINT TO ODD BYTE 
CLRB CR4)+ s*TEST INSTRUCTION 
BEQ 1$ sBRANCH IF GOOD 
sMODE 2,000 BYTE FAILED 
ERROR el ;CPU ERROR 
1$: DEC R4 sPOINT TO ODD BYTE 
DEC R4 
INCB CR4)+ 3400-1 0 
COMB CR4)+ 3*TEST INSTRUCTION 
BPL 2s ;BRANCH IF MODE 2 FAILED 
DEC R4 sPOINT TO ODD BYTE 
INCB CR4)+ 
BEQ $ ;BRANCH IF GOOD 
sMODE 2,000 BYTE FAILED 
2$: ERROR +1 ;CPU ERROR 
3$: 
H 
MSPI: 
; TEST CLR, COM, INC - MODE 3 
CLR R4 3 
CLR CR4) 30=0 
COMB (R4) 3 
INC CR4) :0=400 
CLR aC R4)+ ;*TEST INSTRUCTION 
BEQ i$ ;BRANCH IF GOOD 
sMODE 3 FAILED, 400 SHOULD=0 
ERROR ol ;CPU ERROR 
1$: DEC R4 
DEC 4 3;R4=0 
COM aC R4)+ :*TEST INSTRUCTION 
BPL $ ;BRANCH IF BAD 
DEC R4 
DEC 4 sREPOSITION POINTER 
INC AC R4)- ;*TEST INSTRUCTION 
BEQ $ ;BRANCH IF GOOD 
sMODE 3 FAILED 
2$: ERROR «1 ;CPU ERROR 








COKDADO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


005004 
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3$: 


3 
MSPU: 


1$: 


2$: 
3$: 


4$: 
5$: 





D4 
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La + aa COMB, INCB - MODE 3, EVEN/ODD BYTE 


CLR 3;R4=0 
CLR Ri 
COMB Ri 
INC R1 3R1=400 
CLR CR1) 
COM CR1)« 3400=-1 
CLR CR1) 3 
COMB CR1) :402=000 377 
CLR CR4) F 
COMB CR4) 3 
INC CR4) 302400 
CLRB @(R4)- :*TEST INSTRUCTION 400=377 000 
BEQ i$ ;BRANCH IF MODE 3 EVEN BYTE CLEARED 
; TEST INSTRUCTION FAILED 
ERROR +1 ;CPU ERROR 
DEC R4 sREPOSTION POINTER 
DEC R4 
—_— gpa ;*TEST INSTRUCTION 
DEC 4 sREPOSITION POINTER 
INCB ACR4)+ ;*TEST INSTRUCTION 
BEQ 3$ ;BRANCH IF GOOD 
sMODE 3, EVEN BYTE FAILED 
ERROR «1 ;CPU ERROR 
DEC R4 
DEC R4 
INC CR4) 3R4=401 
INCB @CR4)+ :*#TEST INSTRUCTION 
BNE 4$ ;BRANCH IF 402 NEQ O 
DEC R4 
DEC R4 3R4=401 
CLRB @CR4)+ 3401-0 
BEQ S$ ;BRANCH IF GOOD 
;000 BYTE FAILED 
ERROR +1 ;CPU ERROR 
DEC R4 
DEC R4 3R4=401 
COMB AC R4)-+ 3403=377 
DEC R4 
DEC R4 
INCB @(R4)- ;*#TEST INSTRUCTION 
BEQ 7$ ;BRANCH IF GOOD 
sMODE3 ODD BYTE FAILED. 
ERROR +1 ;CPU ERROR 
TEST CLR, COM, DEC - MODE 4 
CLR R4 


SEQ 0042 
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E4 


COKDADO KDJ11-B8 CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-24 
BASE INSTRUCTION SET TESTS 


1830 006434 105104 ‘COMB R4 

1831 006436 005204 INC R4 3R4=400 

1832 006440 005014 CLR CR4) ; 

1833 006442 005124 COM CR4)+ 3400=-1 

1834 006444 005014 CLR CR4) F 

1835 006446 005224 INC CR4)+ 3402=1 

1836 006450 005044 CLR -(R4) s*TEST INSTRUCTION 
1837 006452 001401 BEQ i$ ;BRANCH IF GOOD 
1838 sMODE 4 FAILED 

1839 006454 104001 ERROR +1 ;CPU ERROR 

1840 006456 005344 1$: DEC -(R4) ;*TEST INSTRUCTION 400=-2 
1841 006460 005114 COM (R4) 34001 

1842 006462 001405 BEQ 2s ;BRANCH IF BAD 

1843 006464 100404 BMI 2s ;BRANCH IF BAD 

1844 006466 005204 INC R4 

1845 006470 005204 INC R4 3R4=400 

1846 006472 005344 DEC -(R4) ;*TEST INSTRUCTION 
1847 006474 001401 BEQ 3$ ;BRANCH IF GOOD 
1848 sMODE 4 FAILED 

1849 006476 104001 2$: ERROR ol ;CPU ERROR 

1850 006500 3$: 

1851 

1852 3 

1855 006500 MSPM: 

1856 

1857 ; TEST COMB, INCB, CLRB - MODE 4, ODD BYTE 
1858 006500 005004 CLR R4 

1859 006502 105104 COMB R4 F 

1860 006504 005204 INC R4 3R4=400 
1861 006506 005044 CLR -(R4) 337620 

1862 006510 105114 COMB (R4) 

1863 006512 005224 INC (R4)+ 3376=001 000 

1864 006514 005014 CLR (R4) 

1865 006516 005124 COM (R4)+ 34001 

1866 006520 005204 INC R4 3R4=403 

1867 006522 105044 CLRB -(R4) ; TEST INST. CLEAR ODD BYTE (401) 
1868 006524 001401 BEQ 2s ;BRANCH IF GOOD 
1869 sMODE 4 BYTE FAILED 
1870 006526 104001 1$: ERROR ol ;CPU ERROR 

1871 006530 005204 2s: INC R4 

1872 006532 005204 INC R4 3R4=403 

1873 006534 105144 COMB -(R4) ; TEST INST. 401=377 
1874 006536 005304 DEC R4 

1875 006540 005304 DEC R4 

1876 006542 105244 INCB -(R4) ; TEST INST. 401=0 
1877 006544 001401 BEQ 4$ ;BRANCH IF GOOD 
1878 sMODE 4 ODD BYTE FAILED 
1879 006546 104001 3$: ERROR +1 ;CPU ERROR 

1880 006550 105344 4$: DECB -(R4) ;*TEST INST. 

1881 006552 001401 BEQ 6$ ;BRANCH IF GOOD 
1882 sMODE 4 DECREMENT ODD BYTE FAILED 
1883 006554 104001 5$: ERROR +1 ;CPU ERROR 

1884 006556 6$: 

1885 

1886 F 

1889 006556 MSPN: 


3 








SEQ 0043 
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BASE INSTRUCTION SET TESTS 


1891 ; TEST CLR, COM, INC - MODE 5 

1892 006556 005004 CLR R4 

1893 006560 005014 CLR CR4) 

1894 006562 105114 COMB CR4) 

1895 006564 005224 INC CR4)+ 30=400 

1896 006566 005054 CLR a-(R4) :*TEST INST. 400=0 
1897 006570 001401 BEQ i$ ;BRANCH IF GOOD 
1898 sMODE S FAILED 
1899 006572 104001 ERROR +1 ;CPU ERROR 

1900 006574 005204 1$: INC R4 

1901 006576 005204 INC R4 sRESET POINTER TO 0 
1902 006600 005154 COM @-(R4) ;*TEST INST. 376=1 
1903 006602 001407 BEQ 2s ;BRANCH IF BAD 
1904 006604 005204 INC R4 

1905 006606 005204 INC R4 sREPOSITION POINTER 
1906 006610 005354 DEC @-(R4) s*TEST INST. 376=0 
1907 006612 001403 BEQ 2s :BRANCH IF BAD 
1908 006614 005224 INC CR4)+ :0=401 R4=2 

1909 006616 105254 INCB a-(R4) ;*TEST INST. ,400= 0 376 
1910 006620 001401 BEQ 3$ ;BRANCH IF GOOD 
1911 sMODE 5 FAILED 
1912 006622 104001 23: ERROR +1 ;CPU ERROR 

1913 006624 3$: 

1914 

1915 H 

1918 006624 MSPO: 

1919 

1920 ; TEST NEG MODE 5 

192i 006624 005004 CLR R4 

1922 006626 105104 COMB R4 

1923 006630 005204 INC R4 3R4=400 

1924 006632 005001 CLR Ri 

1925 006634 105101 COMB R1 

1926 006636 005301 DEC Ri 3;R1=376 

1927 006640 005002 CLR R2 ;R2=0 

1928 006642 005012 CLR (R2) :0=0 

1929 006644 005014 CLR CR4) F 

1930 006646 005114 COM (R4) 3400=-1 

1931 006650 005011 CLR C(R1) 3376=0 

1932 006652 005454 NEG a-(R4) 3:0=0 

1933 006654 001401 BEQ 2s ;BRANCH IF GOOD 
1934 sNEG FAILED 

1935 006656 104001 1$: ERROR +1 ;CPU ERROR 

1936 006660 005334 2$: DEC ACR4)+ ;0=-1 

1937 006662 005454 NEG a-(R4) 3;0=1 

1938 006664 001403 BEQ 3$ ;BRANCH IF BAD 
1939 006666 102402 BVS 3$ ;BRANCH IF BAD 
1940 006670 100401 BMI 3$ ;BRANCH IF BAD 
1941 006672 103401 BCS 4$ ;BRANCH IF GOOD 
1942 ;NEG FAILED 

1943 006674 104001 3$: ERROR +1 ;CPU ERROR 

1944 006676 005334 4$: DEC @(R4)+ ; TEST RESULT OF NEGATE 
1945 006700 001401 BEQ 6$ ;BRANCH IF GOOD 
1946 sRESULT OF NEGATE BAD 
1947 006702 104001 S$: ERROR +1 ;CPU ERROR 

1948 006704 105212 6%: INCB (R2) 30-1 


1949 006706 005454 NEG @-(R4) 3O=-1 





SEQ 0044 
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BASE INSTRUCTION SET TESTS 


1950 006710 001403 
1951 006712 102402 
1952 006714 103001 
1953 006716 100401 


1955 006720 104001 
1956 006722 105212 
1957 006724 001401 
1958 006726 104001 
1959 006730 


1980 006760 005064 000376 


1983 006770 005364 000376 
1984 006774 005164 000400 


1986 007002 005264 000400 
1987 007006 005264 000400 


1991 007016 005261 177776 


i) 
So 
r= 
So 
8 
N 
e 
o 
s 
vi 
- 
= 
> 


MACRO YOS.02 





i$: 
2s: 


BEQ 7$ 
BVS 7$ 
BCC 7$ 
BMI 8$ 
ERROR +1 
INCB (R2) 
BEQ 10$ 
ERROR +1 


Cc 

INC R4 
INC R4 
CLR Ri 
COMB R1 
INC Ri 
CLR CR1) 
COM CR1)+ 
CLR (Ri) 
INC CR1) 
CLR R2 
CLR (R2) 
CLR 376(R4) 
BEQ 2s 
ERROR o1 


DEC 376(R4) 
COM 400(R4) 


BEQ 3$ 
INC 400(R4) 
INC 400(R4) 
BEQ 4$ 
ERROR +1 


INC -2(R1) 
6$ 


ERROR +1 


TEST NEG MODE 6 
CLR R1 


CLR R4 
COMB R4 
INC R4 
CLR (R4) 
COM C(R4) 
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; 

;BRANCH IF GOOD 
;BAD NEGATE 
;CPU ERROR 

30=0 

;BRANCH IF GOOD 
;CPU ERROR 


TEST CLR, COM, INC - MODE 6 
LR R4 


;R4=2 


+R1=400 


i" 

:400=-1 
3R1=402 

3402-1 

;R2=0 

30-0 

;400=0 

;BRANCH IF GOOD 
;CPU ERROR 
3400=-1 
3402=-1 
;BRANCH IF BAD 
3402=-2 


sBRANCH IF GOOD 

sMODE 6 FAILED 
;CPU ERROR 
;400=0 
s;BRANCH IF GOOD 

sINC MODE 6 FAILED 
;CPU ERROR 


3;R1=0 


3R4=400 
° 
3400=-1 





SEQ 0045 


A 


COKDADO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


2011 007042 
2012 007044 
2013 007046 
2014 007050 
2015 007054 
2016 007056 
2017 007060 
2018 007062 


2020 007064 
2021 007066 
2022 007072 


2024 007074 
2025 007076 
2026 007102 


2028 007104 
2029 007106 
2030 007112 
2031 007114 
2032 007116 
2033 007120 


2035 007122 
2036 007124 
2037 007130 


2039 007132 
2040 007134 


000002 


000002 


000374 


103401 
104001 
105261 
001401 


104001 


000374 


2045 007134 . 


2048 007134 
2049 007136 
2050 007140 
2051 007142 
2052 007144 
2053 007146 
2054 007150 


000401 


f' 
& 
wo 
s 
~ 
f 
= 
LS) 


i$: 
2s: 


3$: 
4$: 


5$: 


2s: 
34: 








H4 


TEST CLR, COM, INC - MOD 
CLR R1 

CLR R4 

COMB R4 

INC R4 

CLR CR1) 
COMB CR1) 

INC CR1) 

INC CR1) 

INC CR1) 

CLR CR4) 

CLR 2C(R4) 
COM 2(R4) 
CLR 8-400(R4) 
BEQ 2s 

ERROR o1 

COM aoc Ri) 
BMI 4$ 

ERROR o1 

COM R4 

INC 8401(R4) 
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SEQ 0046 


3376=0 

; 

3374=1 R4=376 
3400= 

sNEGATE FAILED 


;BRANCH IF GOOD 

sNEGATE FAILED 

;CPU ERROR 

; TEST RESULT OF NEGATE 
;BRANCH IF GOOD 

sRESULT OF NEGATE FAILED 
;CPU ERROR 

3*0=0 

; BRANCH IF GOOD 
sNEGATE FAILED 

;CPU ERROR 

337420 377 

: 


;BRANCH IF GOOD 
sNEGATE FAILED 
;CPU ERROR 
3374=0 

;BRANCH IF GOOD 
sNEGATE FAILED 
;CPU ERROR 


E 7 


;R1=0 
; 


i 
3R4=400 


3:0=402 
3400=0 


é 

3402=-1 

3402=0 

;BRANCH IF GOOD 
;CPU ERROR 

s INSTRUCTION FAILED 
3402=-1 

;BRANCH IF GOOD 
;CPU ERROR 


3402=0 








r--- -- ey 


| 14 





COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-28 


BASE INSTRUCTION SET TESTS 


2070 007216 001401 BEQ 6$ ;BRANCH IF GOOD 
2071 007220 104001 S$: ERROR +1 ;CPU ERROR 
2072 sMODE 7 FAILED 
2073 007222 ‘ 6$: 
2074 
2075 : 
2078 007222 MSPS: 
2079 
2080 ; TEST NEG MODE 7 
2081 007222 005004 CLR R4 
2082 007224 005014 CLR CR4) 30=0 
2083 007226 005002 CLR R2 ; 
2084 007230 105102 COMB R2 
2085 007232 005202 INC R2 ;R2=400 
2086 007234 005012 CLR CR2) :400=0 
2087 007236 005472 177400 NEG 8-400(R2) sNEG OF 0=0 
2088 007242 103401 BCS peek 
2089 007244 001401 BEQ 2$ ;BRANCH IF GOOD 
ote 007246 104001 1$: ERROR +1 ;CPU ERROR 
3 
2092 007250 005314 2s: DEC CR4) 3;0=-1 
2093 007252 005474 000400 NEG @+400(R4) ;0=1 
2094 007256 001403 BEQ 3$ :BRANCH IF ERROR 
2095 007260 102402 BVS 3$ 3 
2096 007262 100401 BMI 3$ 3 
2097 007264 103401 BCS 4$ ;BRANCH IF GOOD 
2098 007266 104001 3$ ERROR +1 ;CPU ERROR 
2099 sNEGATE MODE 7 FAILED 
2100 007270 4$ 
2101 
2102 3 
2105 007270 MSPT: 
2106 
2107 3 TEST SINGLE OPERAND MODE 2 REG 7 
2108 007270 005004 CLR R4 
2109 007272 105104 COMB R4 
2110 007274 005204 INC R4 ;R4=400 
2111 007276 005027 CLR CR7)+ ;CLEAR NEXT LOCATION 
2112 007300 177777 1$ WORD -1 ;SETUP INITIAL DATA 
2113 007302 001401 BEQ 3$ ;BRANCH IF GOOD 
2114 007304 104001 2$ ERROR +1 ;CPU ERROR 
2115 007306 3$ 
2116 
2117 3 
2119 
2121 007306 MSPU: 
2122 
2123 F TEST TST MODE O 
2124 007306 005004 CLR R4 3;R4=0 
2125 007310 000277 scc sCONDITION CODES =1111 
2126 007312 000244 CLZ ;CC=1011 
2127 007314 005704 TST R4 ;*TEST INSTRUCTION 
2128 007316 103403 BCS i$ 
2129 007320 102402 BVS 1$ 
2130 007322 100401 BMI i$ ;BRANCH IF ERROR 
2131 007324 001401 BEQ 2s ;BRANCH IF GOOD 


| 2132 007326 104001 1$: ERROR +1 





;CPU ERROR 





SEQ 0047 
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SEQ 0048 =! 
BASE INSTRUCTION SET TESTS . 
2133 ;TST MODE © FAILED 
2134 007330 005304 2s: DEC R4 ;R4=-1 
2135 007332 000277 Scc 
2136 007334 000250 CLN ;CC#0111 
2137 007336 005704 TST R4 ;#TEST INSTRUCTION MODE 0 
2138 007340 103403 BCS 3$ ;BRANCH IF ERROR 
2139 007342 102402 BVS 3$ 
2140 007344 001401 BEQ 3$ 
2141 007346 100401 BMI 4$ ;BRANCH IF GOOD 
2142 007350 104001 3$: ERROR 1 ;CPU ERROR 
2143 ;TST FAILED 
2144 007352 43 
2145 
2146 ; 
2149 007352 MSPVO: 
2150 
2151 : TEST TST MODE 0 BYTE 
2152 007352 005004 LR 4 
2153 007354 105104 COMB eaR4 ;0=000 377 
2154 007356 000277 scc 
2155 007360 000250 CLN ;CC#0111 
2156 007362 105704 TSTB RG ;*TEST INSTRUCTION ON EVEN BYTE 
2157 007364 102403 BVS 1$ ;BRANCH IF ERROR 
2158 007366 103402 BCS 1$ ; 
2159 007370 102401 BVS 1$ : 
2160 007372 100401 BMI 2$ ;BRANCH IF GOOD 
2161 007374 104001 1$: ERROR +1 ;CPU ERROR 
Hy 
2163 007376 005204 2s: INC R4 ;POINT TO 1 
2164 007400 105704 TSTB RG ; TEST INSTRUCTION 
2165 007402 001401 BEQ 4$ ;BRANCH IF GOOD 
2166 007404 104001 3¢: ERROR +1 ;CPU ERROR 
2167 ;TST FAILED ON BYTE 
2168 007406 4s 
2169 
2170 F 
2173 007406 MSPV: 
2174 
2175 : TEST TST MODE 1 
2176 007406 005004 L Ra. 
2177 007410 005014 CLR (R4) ;0=0 
2178 007412 000277 SCC 
2179 007414 000244 CLZ ;CC=1011 
2180 007416 005714 TST (R4) ;*TEST INSTRUCTION IN MODE 1 
2181 007420 103403 BCS 1$ ;BRANCH IF ERROR 
2182 007422 102402 BVS 1$ 
2183 007424 100401 BMI 1$ : 
2184 007426 001401 BEQ 2$ ;BRANCH IF GOOD 
2185 007430 104001 1s: ERROR +1 ;CPU ERROR 
2187 007432 005214 2%: INC (R4) ;0=1 
2188 007434 000277 Scc 
2189 007436 005714 TST (R4) ; TEST INSTRUCTION 
2190 007440 001403 BEQ 3$ ;BRANCH IF ERROR 
2191 007442 102402 BVS 3$ 
2192 007444 103401 BCS 3$ 


| 2193 007446 100001 BPL 4s s;BRANCH IF GOOD 
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BASE INSTRUCTION SET TESTS 


si38 007450 104001 3$: ERROR +1 
2196 007452 4$: 

2197 

2198 F 

2201 007452 MSPX: 

2202 

2203 3 TEST TST MODE 1 BYTE 
2204 007452 005004 CLR R4 
2205 007454 005014 CLR (R4) 
2206 007456 105114 COMB CR4) 
2207 007460 005214 INC CR4) 
2208 007462 000277 Scc 

2209 007464 000244 CLZ 

2210 007466 105714 TSTB CR4) 
2211 007470 103403 BCS $ 
2212 007472 102402 BVS 1$ 
2213 007474 100401 BMI 1$ 
2214 007476 001401 BEQ 2s 
te 007590 104001 1$: ERROR +1 
2217 007502 005204 2s: INC R4 
2218 007504 000277 SCC 

2219 007506 105714 TSTB CR4) 
2220 007510 001403 BEQ $ 
2221 007512 100402 BMI 3$ 
2222 007514 102401 BVS 3$ 
2223 007516 103001 BCC 4$ 
2224 007520 104001 3$ ERROR 1 
2225 

2226 007522 4$ 

2227 

2228 3 

2231 007522 MSPY: 

2232 

2233 3 TEST TST MODE 2 
2234 007522 005004 CLR R4 
2235 007524 005024 CLR (R4)+ 
2236 007526 005014 CLR CR4) 
2237 007530 005114 COM (R4) 
2238 007532 005004 CLR R4 
2239 007534 000277 Scc 3 
2240 007536 000244 CLZ ;CC=1011 
2241 007540 005724 TST CR4)+ 
2242 007542 103403 BCS i$ 
2243 007544 102402 BVS i$ 
2244 007546 100401 BMI 1$ 
2245 007550 001401 BEQ 2s 
see 007552 104001 i$: ERROR +1 
2248 007554 005724 2s: TST (R4)+ 
2249 007556 103403 BCS 3$ 
2250 007560 102402 BVS 3$ 
2251 007562 001401 BEQ 3$ 
2252 007564 100401 BMI 4$ 
2253 007566 104001 3$; ERROR +1 
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;CPU ERROR 
;TST FAILED MODE 1 


3R4=0 


:0=001 000 


;CC=1011 

+*TEST INTRUCTION 
sBRANCH IF ERROR 
; 


sBRANCH IF GOOD 
;CPU ERROR 


;R4=1 
; TEST INSTRUCTION 
;BRANCH IF ERROR 


s;BRANCH IF GOOD 
;CPU ERROR 
; 


3 
3;0=0 


322-1 
;R4=0 


; TEST INSTRUCTION 
sBRANCH IF ERROR 


sBRANCH IF GOOD 
;CPU ERROR 

sMODE 2 TEST FAILED 
sTST LOC2 


s;CPU ERROR 
sMODE 2 FAILED 














Pgs a 
| 
L4 
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BASE INSTRUCTION SET TESTS 


2255 007570 4$: 

2256 

2257 ; 

2260 007570 MSPZ: 

2261 

2262 ; TEST TST MODE 2 BYTE 

2263 007570 005004 CLR R4 

2264 007572 005024 CLR CR4)+ ; 

2265 007574 105144 COMB -(R4) 30=377 000 

2266 007576 005304 DEC R4 sR4=0 

2267 007600 000277 scc 

2268 007602 000244 CLZ ;CC=1011 

2269 007604 105724 TSTB C(R4)+ ; 

2270 007606 102403 BVS S sBRANCH IF ERROR 

2271 007610 103402 BCS i$ 

2272 007612 100401 BMI 1$ 

2273 007614 001401 BEQ 2$ sBRANCH IF GOOD 

2274 007616 104001 1$: ERROR +1 ;CPU ERROR 

2275 sMODE 2 EVEN BYTE FAILED 

2276 007620 000277 2s: scc 

2277 007622 000250 CLN :CC=0111 

2278 007624 105724 TSTB CR4)+ ; 

2279 007626 001403 BEQ 3$ ; 

2280 007630 103402 BCS 3$ 

2281 007632 102401 BVS 3$ 5 

2282 007634 100401 BMI as s;BRANCH IF GOOD 

2283 007636 104001 3$ ERROR +1 ;CPU ERROR 

2284 sMODE 2 ODD BYTE FAILED 

2285 007640 4$: 

2286 

2287 ; 

2290 007640 MSPAA: 

2291 

2292 ; TEST TST MODE 3 

2293 007640 005004 CLR R4 

2294 007642 005014 CLR (R4) 

2295 007644 105114 COMB (R4) 

2296 007646 005214 INC (R4) 30=400 

2297 007650 005034 CLR a(R4)+ 3400=0 

2298 007652 005004 CLR a sR4=0 

2299 007654 000277 scc 

2300 007656 000244 CLZ sCC=1011 

2301 007660 005734 TST aC R4)+ ; TEST MODE 3 

2302 007662 103403 BCS $ sBRANCH IF ERROR 

2303 007664 102402 BVS 1$ : 

2304 007666 100401 BMI 1$ 

2305 007670 001401 BEQ + sBRANCH IF GOOD 

2306 007672 104001 1$: ERROR +1 s;CPU ERROR 

2307 sMODE 3 FAILED 

2308 007674 005304 2s: DEC R4 

2309 007676 005304 DEC 4 sR4=0 

2310 007700 005334 DEC @CR4)+ 3400=-1 

2311 007702 005004 CLR 4 

2312 007704 000277 scc 

2313 007706 000250 CLN sCC=0111 

2314 007710 005734 TST AOC R4)+ ; TEST INSTRUCTION 
103403 BCS 3$ ; 


| 2315 007712 





SEQ o0so~—C i! 





BASE INSTRUCTION SET TESTS 


g M4 
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2316 007714 001402 BEQ 3$ ;3RANCH IF ERROR 
2317 007716 102401 BVS 3$ 3 
2318 007720 100401 BMI 4$ ;BRANCH IF GOOD 
2319 sERROR MODE 3 
2320 007722 104001 3$: ERROR ol ;CPU ERROR 
2321 007724 4$: 
2322 
2323 3 
2326 007724 MSPBB 
2327 
2328 ; TEST TST MODE 3 AUTO-INC 
2329 007724 005004 L 4 
2330 007726 005014 CLR CR4) 3020 
2331 007730 105114 COMB CR4) 3 
2332 007732 005214 INC CR4) 302400 
2333 007734 005001 CLR Ri 
2334 007736 105101 COMB Ri 
2335 007740 005201 INC R1i ;R1=400 
2336 007742 005011 CLR CR1) 3400=0 
2337 007744 000277 scc 
2338 007746 005734 TST AC R4)+« 340020 
2339 007750 103403 BCS i$ sERROR IF CARRY 
2340 007752 102402 BVS i$ sERROR IF OVERFLOW 
2341 007754 100401 BMI 1$ sERROR IF MINUS 
2342 007756 001401 BEQ es _sERROR IF NOT EQUAL 
2343 007760 104001 1$: ERROR 1 ;CPU ERROR 
2344 ;CC SHOULD = 0100 
2345 007762 005304 2s: DEC R4 
2346 007764 005304 DEC R4 
2347 007766 005704 TST R4 ;SEE IF AUTO-INC WORKED 
2348 007770 001401 BEQ 4$ sERROR IF R4 NE O 
2349 007772 104001 3$: ERROR ol ;CPU ERROR 
2350 ; AUTO-INC FIALED 
2351 007774 4$ 
2352 
2353 
2356 007774 MSTB3 
2357 
2358 3 TEST TST MODE 3 BYTE 
2359 007774 005004 CLR R4 
2360 007776 005014 CLR CR4) 
2361 010000 105114 COMB CR4) 
2362 010002 005214 INC CR4) 
2363 010004 005214 INC CR4) 30=401 
2364 010006 005001 CLR R1 
2365 010010 105101 COMB Ri 
2366 010012 005201 INC R1 3R1=400 
2367 010014 005011 CLR CR1) 
2368 010016 005111 COM (R1) 
2369 010020 105011 CLRB CR1) 34002377 000 
2370 010022 105734 TSTB a(R4)-+ 3#* TEST INSTRUCTION 
2371 010024 001403 BEQ 1$ sERROR IF EQUAL 
2372 010026 1063402 6cSs i$ sERROR IF CARRY SET 
2373 010030 102401 BvS 1$ ;ERROR IR OVERFLOW 
2374 010032 100401 BMI 2s ;BRANCH IF MINUS 
2375 010034 104001 1$: ERROR o1 ;CPU ERROR 

| 2376 3CC ERROR 





nnn nnn nr SS SSS 





SEQ 0051 





COKDADO KDJ11-B CLUSTER DIAG. 


BASE INSTRUCTION SET TESTS 


2406 010102 104001 
2407 010104 


2412 010104 


MACRO YOS.02 


2s: 


3%: 
4$: 








N4 
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SEQ 9052 
DEC R4 
DEC R4 
BEQ 43 sBRANCH IF AUTO-INC WORKED 
ERROR +1 CPU ERROR 


; 
sAUTO-INC FAILED 


TEST TST MODE 4 
CLR R4 


CLR CR4) 3020 
INC R4 
INC R4 3R422 
scc 
CLZ 3€C#1011 
TST -(R4) _ s*#TEST INTRUCTION 
BCS 1$ sERROR IF CARRY 
BVS i$ sERROR IF OVERFLOW 
BMI i$ sERROR IF MINUS 
BEQ 2s sBRANCH IF GOOD 
ERROR +1 sCPU ERROR 
;CC WRONG 
TST R4 sINSURE CORRECT AUTO-DEC 
BEQ 4$ sBRANCH IF GOOD AUTO-DEC 
sBAD AUTO-DEC 
ERROR «1 sCPU ERROR 


R 
CLR (R4) 
COM (R4) 
COMB C(R4) :0=377 000 
SCC 
INC R4 
INC R4 sR4=2 
TSTB -C(R4) s#*#TEST INSTRUCTION 
BEQ 1$ sERROR IF EQUAL TO 0 
BCS 1$ sERROR IF CARRY 
BVS i$ sERROR IF OVERFLOW 
BMI es sBRANCH IF MINUS 
ERROR +1 sCPU ERROR 

sCC SHOULD EQUAL 0100 

TSTB -(R4) s#*TEST EVEN BYTE 
BEQ ag sBRANCH IF GOOD 
ERROR +1 ERROR 


3;CPU 
sCC SHOULD EQUAL 0100 AND R4=-1 


TEST TST MODE 5S 


COKDADO KDJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


2440 
2441 
2442 


010144 
010146 
010150 
010152 
010154 
010156 
010160 
010162 
010164 
010166 


010170 
010172 
010174 


010176 


010176 


010176 


005004 
005024 
000277 


000244 
005754 
103403 
102402 
100401 
001401 
104001 


005704 
001401 
104001 


177400 


MACRO YOS.02 


1$: 
2s: 


CLR 


C(R4) 





BS 


Wednesday 27-Feb-85 17:55 Page 14-34 


; 
3020, R4=2 
3CC=#1011 





s TEST INSTRUCTION 


sERROR IF CARRY 


sERROR IF OVERFLOW 


sERROR IF MINUS 
sBRANCH IF GOOD 
s;CPU ERROR 

sCC WRONG, SHOULD = 0100 


sBRANCH IF AUTO-DEC WORKED 


;CPU ERROR 
sAUTO-DEC FAILED 


TEST TST MODE S BYTE 
L R4 


:0=400 
3400=0, R4=2 


; 
:400=377 000 R4=2 


s*#*#TEST INSTRUCTION 


sERROR IF CARRY 
sERROR IF MINUS 


sERROR IF OVERFLOW 


sBRANCH IF GOOD 
:CPU ERROR 

sCC SHOULD = 0100 
:0=401 


3##TEST INSTRUCTION 


sBRANCH IF GOOD 


sEVEN BYTE FAILURE 


;CPU ERROR 


30=0 
3R4=400 
3400=-1 


3*#*#TEST LOCATION O 


sERROR IF CARRY 


sERROR IF OVERFLOW 


sERROR IF MINUS 
sBRANCH IF ZERO 





—— 


ee eee 


COKDADO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


2501 010270 
2502 


2503 010272 
2504 010274 
2505 010300 
2506 010302 
2507 010304 


2509 010306 


2514 010306 


2550 010362 


2553 010362 
2554 010364 
2555 010366 
2556 010370 
2557 010372 
2558 010374 
2559 010376 
2560 010400 


~ 
s 


104001 


005004 
005764 
001401 
100401 
104001 


005004 
005001 
005101 
010104 
001402 
102401 
100401 
104001 


000400 


177402 


177402 








C5 
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SEQ 0054 
1$: ERROR o1 ;CPU ERROR 
;CC ARE WRONG 
2s: CLR R4 3 
TST 400(R4) ;TST LOCATION 400 
BEQ 3$ sERROR IF EQUAL 
BMI 4$ sBRANCH IF MINUS 
3$: ERROR ol ;CPU ERROR 
;CC ERROR 
4$: 
F 
MST7: 
3 TEST TST MODE 7 
CLR R4 
CLR (R4) 
COM CR4)-< 30=-1 
CLR CR4) 3220 
CLR R2 ;R2=0 
CLR R4 
COMB R4 
INC R4 3R4=400 
CLR CR4) 3400-0 
TST 8-376(R4) ;**#TEST LOCATION O 
BCS 1$ sERROR IF CARRY 
BVS i$ sERROR IF OVERFLOW 
BEQ 1$ sERROR IF ZERO 
BMI 2$ sBRANCH IF GOOD 
1$: ERROR +1 ;CPU ERROR 
sERROR IN CC 
2s: INC C(R2)+ 30=-2 R2=2 
TST 8-376(R4) 3*#* CHECK CONTENTS OF LOCATION 2 
BMI 3$ sERROR IF MINUS 
BEQ 4$ ;BRANCH IF GOOD 
3$: ERROR ol ;CPU ERROR 


sCC SHOULD = 0100 


-SBTTL *#eeee¢eeeee DOUBLE OPERAND TESTS seeseseaseseceece 
3 


MDMO: 
; TEST MOVE MODE 0 
CLR R4 3;R4=0 
CLR R1 
COM R1 ;Ri=-1 
MOV R1,R4 3**#TEST MOVE INSTRUCTION 
BEQ i$ sERROR IF R4=0 
BVS 1$ ;ERROR IF OBERFLOW 
BMI 2s ;BRANCH IF MINUS 
1$: ERROR ol ;CPU ERROR 


sCC SHOULD = 100-, R4 SHOULD=-1 








ee a ee 


DS 
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SE 
*¢eeeeeeeeee DOUBLE OPERAND TESTS eaceceececcaceaee 7 
2562 010402 005204 2s: INC R4 3R4 SHOULD =0 
2563 010404 001375 BNE i$ ;ERROR IF R4 NE O 
2564 
2565 3 
2568 010406 MDAO: 
2569 
2570 3 TEST ADD MODE 0 
2571 010406 005004 CLR R4 3R4=0 
2572 010410 005001 CLR R1 
2573 010412 005101 COM Ri ;Ri=-1 
2574 010414 060104 ADD R1,R4 3** TEST ADD OF R1 TO R4 
2575 010416 001403 BEQ i$ sERROR IF ZERO 
2576 010420 103402 BCS i$ sERROR IF CARRY 
2577 010422 102401 BVS 1$ sERROR IF OVERFLOW 
2578 010424 100401 BMI 2s ;BRANCH IF MINUS 
2579 010426 104001 1$: ERROR +1 ;CPU ERROR 
2580 ;CC SHOULD = 1000 , R4=-1 
2581 010430 005204 2s: INC R4 :R4 SHOULD =0 
2582 010432 001401 BEQ 4$ sBRANCH IF R4=0 
2583 010434 104001 3$: ERROR ol ;CPU ERROR 
2584 ;R4 SHOULD = 0 
2585 010436 4$ 
2586 
2587 
2590 010436 MDSO 
2591 
2592 F TEST SUB MODE 0 
2593 010436 005004 R R4 
2594 010440 005001 CLR Ri 
2595 010442 005201 INC Ri sR1i=1 R4=0 
2596 010444 160104 SUB R1,R4 s**TEST OF R4-R1, R4=-1 
2597 010446 102403 BVS i$ sERROR IF V SET 
2598 010450 103002 BCC i$ sERROR IF NO CARRY 
2599 010452 001401 BEQ 1$ sERROR IF =0 
2600 010454 100401 BMI 2s ;BRANCH IF MINUS 
2601 010456 104001 i$: ERROR ol ;CPU ERROR 
2602 :CC SHOULD = 1001 
2603 010460 005101 2s: COM R1 3;Ri=1 
2604 010462 005201 INC R1 ;GET TWO’S COMPLIMENT, Ri=-1 
2605 010464 160104 SUB R1,R4 ;**#TEST R4-R1 (1- 1= 0 
2606 010466 001401 BEQ 4$ ;BRANCH IF ZERO 
2607 010470 104001 3$; ERROR +1 ;CPU ERROR 
2608 ;CC SHOULD = 0100 
2609 010472 4$ 
2610 
2611 3 
2614 010472 MDM27 
2615 
2616 ; TEST MCV MODE 27,00 
2617 010472 000257 ccc :CC=0000 
2618 010474 012704 125252 MOV #125252 ,R4 :*#*TEST MOVE 
2619 010500 001401 BEQ 1$ sERROR IF = 0 
2620 010502 100401 BMI 2s ;BRANCH IF MINUS 
2621 010504 104001 1$: ERROR oi ;CPU ERROR 
2622 ;CC SHOULD = 1000 
2623 010506 012701 052525 2$: MOV #052525,R1 :*#*TEST MOVE 


2624 010512 100401 BMI 3$ sERROR IF MINUS 


-— ———— _—e 


2625 010514 
2626 010516 


2628 010520 
2629 010522 
2630 010524 


2632 010526 
2633 010530 


2638 010532 


2641 010532 
2642 010534 
2643 010536 
2644 010542 
2645 010546 
2646 010550 
2647 010552 
2648 010554 
2649 010556 
2650 010560 
2651 010562 


2653 010564 
2654 010566 
2655 010570 


2657 010572 


001001 
104001 


060104 
100401 
104001 


005204 
001375 


005004 
005104 
012701 
012702 
000261 
040104 
103003 
102402 
001401 
100001 
104001 


020402 
001401 
104001 


005301 
050201 
100401 
104001 


005201 
005201 
005201 


001373 


012701 
012704 
012702 
030401 
001401 
100401 
104001 


020401 
001402 
103001 
100401 
104001 


| COKDADO KDU11-8 CLUSTER DIAG. 
*eeeeeeeeeee DOUBLE OPERAND TESTS «eaccecaccacaaeae 


125252 
052525 


125252 
100000 
052525 


MACRO YOS.02 


3$: 
4$: 
S$: 
6$: 


1$: 
2$: 
3%: 
4$: 


5$: 
6$: 


1$: 
2s: 


3$: 





BNE 
ERROR 


ADD 
BMI 
ERROR 


INC 
BNE 


BMI 
ERROR 


4$ 
+1 


R1,R4 
6$ 
+1 


R4 
S$ 


TEST sees wes MODE 0,0 


R4 
#125252,R1 
#052525 ,R2 


R4,R2 
4$ 


+1 


na BIT, CMP MODE 0,0 


OV #125252,R1 
MOV #100000 ,R4 
MOV #052525 ,R2 
BIT R4,R1 
BEQ i$ 
BMI 2$ 
ERROR +1 
CMP R4,R1 
BEQ 3$ 
BCC 3$ 
BMI 4s 
ERROR +1 
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;BRANCH IF NE 0 
;CPU ERROR 
;CC SHOULD = 0000 
3R1+R4=-1 
;BRANCH IF MINUS 
;CPU ERROR 
sMOV FAILED 
3R4+1=0 
sERROR IF NOT ZERO 


;R4=-1 
;SETUP Ri TEST DATA 
sR2=COMPLIMENT OF Ri 


3**TEST BIC WITH CARRY SET 
sERROR IF NO CARRY 
sERROR IF OVERFLOW 
sERROR IF O 
;BRANCH IF PLUS 
sCPU ERROR 
:CC SHOULD = 0001 
sCOMPARE CONTENTS OF R4 AND R2 
s;BRANCH IF EQUAL 
;CPU ERROR 
3R4 AND R2 SHOULD BE EQUAL 
3R1=125251 
sBIS 052525 AND 125251=177775 
s;BRANCH IF MIUS VALUE 
;CPU ERROR 
;BAD BIS OPERATION 


;R1=0 
sERROR IF NE O 


7R1=125252 
3R4=100000 
;R22052525 
:**#TEST OF BIT ,CC=1000 
sERROR IF EQ O 
sBRANCH IF GOOD 

;CPU ERROR 

;CC SHOULD = 1000 
+*#TEST 100000-125252=25252 
sERROR IF EQUAL O 
sERROR IF CARRY CLEARED 
;BRANCH IF GOOD 

;CPU ERROR 


SEQ 0056 








ra 
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SEQ 0057 

*eeeeeee¢ee0%e DOUBLE OPERAND TESTS eaceceacecaeccese 

2686 ;CC SHOULD = 0010 

2687 010650 020104 4$: CMP R1,R4 3125252-100000 = 25252 

2688 010652 001403 BEQ 5$ sERROR IF EQUAL 

2689 010654 103402 BCS 5$ sERROR IF CARRY 

2690 010656 102401 BVS S$ sERROR IF OVERFLOW 

2691 010660 100001 BPL 6$ sBRANCH IF GOOD 

2692 010662 104001 S$: ERROR +1 ;CPU ERROR 

2693 :CC SHOULD =0001 

2694 010664 005004 6$: CLR R4 

2695 010666 005204 INC R4 ;R4=1 

2696 010670 000277 Scc 

2697 010672 030401 BIT R4,R1 ;R4 t R1 = 2 

2698 010674 001401 BEQ 8&$ ;BRANCH IF GOOD 

2699 010676 104001 7$: ERROR ol ;CPU ERROR 

2700 ;CC SHOULD = 0101 

2701 010700 8$ 

2702 

2703 3 

2706 010700 MM1i1 

2707 

2708 3 TEST MOV, MOVB MODE 1,1 AND SIGN EXT ON MOVB TO GPR 

2709 010700 012704 000400 MOV #400 ,R4 3R4=400 

2710 010704 012701 000402 MOV #402,R1 ;R1=402 

2711 010710 005014 CLR (R4) ; 

2712 010712 005114 COM CR4) 3400=-1 

2713 010714 005011 CLR (Ri) 3 

2714 010716 105111 COMB CR1) :402=000 377 

2715 010720 005002 CLR R2 ;R2=0 

2716 010722 012703 000405 MOV #405,R3 3R3=405 

2717 010726 000277 scc ;CC=1111 

2718 010730 011412 MOV CR4),CR2) ;MOV 400 T0 O ,0=-1 

2719 010732 001403 ; BEQ 1$ sERROR IF O 

2720 010734 102402 BVS 1$ sERROR IF OVERFLOW 

2721 010736 103001 BCC 1$ sERROR IF NO CARRY 

2722 010740 100401 BMI 2s ;BRANCH IF GOOD 

2723 010742 104001 1$: ERROR +1 ;CPU ERROR 

2724 :CC SHOULD =1001 

2725 010744 005212 2$: INC (R2) 3:0=0 

2726 010746 001004 BNE 3$ ;ERROR IF NOT O 

2727 010750 000257 ccc :CC=0000 

2728 010752 111113 MOVB CR1),CR3) 3405=377 

2729 010754 001401 BEQ 3$ sERROR IF EQUAL 

2730 010756 100401 BMI 4$ ;BRANCH IF GOOD 

vee 010760 104001 3$: ERROR +1 ;CPU ERROR 

2 3 

2733 010762 105213 4$; INCB CR3) . :405=0 

2734 010764 001375 BNE 3$ sERROR IF 405 NOT O 

2735 ;CHECK THAT SIGN EXTENSION OCCURS ON A MOVB TO GENERAL REGISTER. 

2736 010766 005002 CLR R2 sINIT R2 TO ZERO. 

2737 010770 111102 . MOVB (R1i),R2 sMOVE 377 TO Re 

2738 010772 100005 BPL S$ ;ERROR! BIT 15 SHOULD BE SET. 

2739 010774 102404 BVS 5$ ;V BIT SHOULD BE CLEARED 

2740 010776 103403 BCS 5$ ;CARRY BIT SHOULD BE UNAFFECTED 

2741 011000 022702 177777 CMP #177777,Re2 :TEST R2 

2742 011004 001401 BEQ 6$ ;SIGN EXTENDED THROUGH UPPER BYTE 

2743 ;ERROR! BYTE SHOULD HAVE 


sSIGN EXTENDED THROUGH UPPER BYTE 


é 








(oo 


G5 
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SEQ 0058 

**eeeeeeee%% DOUBLE OPERAND TESTS seeaeucaceacacees 

2745 011006 104001 S$: ERROR ol ;CPU ERROR 

2746 011010 6$: 

2747 

2748 3 

2751 011010 MA11: 

2752 

2753 ; TEST ADD MODE 1,1 

2754 011010 012704 000400 MOV #400 ,R4 3R4=400 

2755 011014 012701 000402 MOV #402,R1 3R1=402 

2756 011020 012714 177753 MOV #-25,(R4) 3400=-25 

2757 011024 012711 000024 MOV #24,(R1) 3402=24 

2758 011030 061114 ADD CR1),CR4) 3-25+242-1 

2759 011032 001404 BEQ 1$ sERROR IF O 

2760 011034 103403 BCS 1$ sERROR IF CARRY 

2761 011036 100002 BPL i$ sERROR IF POSITIVE RESULT 

2762 011040 005214 INC CR4) 3-1+1=0 

2763 011042 001401 BEQ 2$ :BRANCH IF GOOD 

2764 011044 104001 1$: ERROR +1 ;CPU ERROR 

2765 ;CC SHOULD = 1000 

2766 011046 2$: 

2767 

2768 3 

2771 011046 MS11: 

2772 

2773 3 TEST SUB MODE 1,1 

2774 011046 012704 000400 MOV #400 ,R4 3R4=400 

2775 011052 012701 000404 MOV #404 ,R1 ;R1=404 

2776 011056 012714 000003 MOV #3,(R4) 340023 

2777 011062 012711 000006 MOV #6,(R1) 3406=6 

2778 011066 000277 scc 3;CC=1111 

2779 011070 161411 SUB CR4),(R1) 36-3=3 

2780 011072 001402 BEQ 1$ sERROR IF O 

2781 011074 100401 BMI i$ ;ERROR IF MINUS 

2782 011076 103001 BCC 2$ ;BRANCH IF GOOD 

2783 011100 104001 1$: ERROR +1 ;CPU ERROR 

2784 ;CC SHOULD = 0000 

2785 011102 161411 2s: SUB CR4),CR1) 33-3=0 

2786 011104 001375 BNE 1$ ;ERROR IF NOT O 

2787 

2788 ; 

2791 011106 MBB11: 

2792 

2793 3 TEST BIC, BIS MODE 1,1 

2794 011106 012704 000400 MOV #400 ,R4 ;R4=400 

2795 011112 012701 000402 MOV #402,R1 ;R1=402 

2796 011116 012714 052525 MOV #052525, (R4) 3400=052525 

2797 011122 012711 125252 MOV #125252,(R1) 3402=125252 

2798 011126 051411 BIS CR4),CR1) sR4V R1 = -1 

2799 011130 001401 BEQ 1$ ;ERROR IF O 

2800 011132 100401 BMI 2s ;BRANCH IF GOOD 

2801 011134 104001 1$: ERROR +1 ;CPU ERROR 

2802 ;CC SHOULD = 1000 

2803 011136 005211 2$: INC CR1) 3402=0 

2804 011140 001401 BEQ 4$ ;BRANCH IF GOOD 

2805 011142 104001 3$: ERROR +1 ;CPU ERROR 

2806 ;CC SHOULD = 0100 


| 2807 011144 005311 4$: DEC (R1) 3402=-1 








ny 
' 


a ee ee 


COKDADO KDJ11-B CLUSTER DIAG. 
*eeeeeeeeee¢ DOUBLE OPERAND TESTS seescacacccacaeceese 


2808 011146 
2809 011150 
2810 011152 
2811 011154 


2613 011156 
2614 011160 
2815 011162 
28616 011164 


2618 011166 
2623 011166 


2826 011166 
2827 011172 
2628 011176 
2829 011202 
2830 011206 
2831 011210 
2832 011212 
2833 011214 
2834 011216 


2836 011220 
2837 011222 
2838 011224 
2839 011226 
2840 011230 
2841 011232 


2843 011234 
2844 011236 
2845 011240 
2846 011242 
2847 011244 


2849 011246 


2854 011246 


| 2868 011302 


041411 
001401 
100401 
104001 


005111 
041114 
001401 
104001 


021411 
001403 
103002 
102001 
100401 
104001 


005014 
005214 
031114 
001401 
104001 


103002 
102401 


125252 


000400 
000402 
000005 


MACRO YOS.02 


1%: 
23: 





H5 
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BIC 
BEQ 
BMI 
ERROR 


COM 


TEST BIT, CMP MODE 1,1 
MOV 


ERROR 


BMI 
ERROR 


CLR 
INC 


ERROR 


(R4),(R1) sR1=125252 
S$ sERROR IF O 
6$ s;BRANCH IF GOOD 
+1 ;CPU ERROR 

;CC SHOULD = 1000 
CR1) 3402*052525 
CR1),(R4) 3400-0 
8$ sBRANCH IF GOOD 
+1 ;CPU ERROR 


3;CC SHOULD = 0100 


#400 ,R4 
#052525, (R4) 
#402 ,R1 
#125252, (R1) 


C(R4),CR1) 
1$ 

2$ 

+1 
CR4),(R1) 
3$ 

3$ 

3$ 

4$ 
+1 

CR4) 

(R4) 
CR1),CR4) 
6$ 


+1 


TEST MOV MODE 2,2 
MOV 04 


0 00,R4 
MOV #402,R1 
MOV #5,(R4) 
CLR C(R1)+ 
CLR (R1) 
COM (R1) 
TST -(R1) 
Scc 
MOV CR1)+,CR4)+ 
BMI 1$ 
BCC 1$ 
BVS i$ 


;R4=400 
:400=052525 
;R1-402 
3402=125252 
;CLEAR CARRY 
3 **0525251t125252=0 
sERROR IF CARRY 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD = 0100 
3400-402=125253 
sERROR IF ZERO 
sERROR IF NO CARRY 
sERROR IF NO OVERFLOW 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD = 1000 


3400-1 
3125252t1=0 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD= 0100 


3R4=400 
3R1=402 
3400-5 
3402=0 


: 

3404=-1 

;R1=402 

;CC=1111 

:400=0 R4=402 R1=404 
sERROR IF MINUS 
sERROR IF NO CARRY 
sERROR IF OVERFLOW 








SEQ 0059 








pte I5 





COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-41 


**eeee0¢0¢¢¢ DOUBLE OPERAND TESTS «eeaceeeaceceaaee 
2869 011304 001401 BEQ 2s 


sBRANCH IF GOOD 


2870 011306 104001 i$: ERROR +1 ;CPU ERROR 

2871 ;CC SHOULD= 0101 

ode 011310 005244 2s: INC -(R4) 3400=1 R4=400 

2874 011312 061411 ADD CR4),CR1) s1+ -1 =0 

2875 011314 001401 BEQ 4$ ;BRANCH IF GOOD 

2876 011316 104001 3$: ERROR ol ;CPU ERROR 

2877 :CC SHOULD = 0100 

2878 011320 4$: 

2879 

2880 ; 

2883 011320 MS22: 

2884 

2885 F TEST SUB MODE 2,2 

2886 011320 012704 000400 MOV #400 ,R4 3R4=400 

2887 011324 012701 000402 MOV #402 ,R1 3R1=402 

2888 011330 012714 177760 MOV #177760, (R4) ;400=177760 
2889 011334 012711 177750 MOV #177750,(R1) 3402=177750 
2890 011340 162421 SUB CR4)+,CR1)+ 3R1=177770 
2891 011342 001403 BEQ 1$ ;ERROR IF ZERO 
2892 011344 102402 BVS i$ sERROR IF OVERFLOW 
2893 011346 103001 BCC 1$ sERROR IF NO CARRY 
2894 011350 100401 BMI 2s ;BRANCH IF GOOD 
2895 011352 104001 1$: ERROR +1 ;CPU ERROR 

2896 :CC SHOULD=1000 

2897 011354 005241 2s: INC -(R1) 3R1=1777771 
2898 011356 162721 177771 SUB #177771,(R1)+ ;R1=0 

2899 011362 100401 BMI 3$ sERROR IF MINUS 
2900 011364 001401 BEQ 4$ ;BRANCH IF GOOD 
2901 011366 104001 3$: ERROR +1 ;CPU ERROR 

2902 ;CCSHOULD = 0100 

2903 011370 4$: 

2904 

2905 8 

2921 011370 MBB22: 

2922 

2923 3 TEST BIC, BICB, BIS, BISB MODE 2,2 

2924 011370 012704 000400 MOV #400,R4 3R4=400 

2925 011374 012701 000402 MOV #402 ,R1 3R1=402 

2926 011400 012702 000404 MOV #404 ,R2 3R2=404 

2927 011404 012714 141401 MOV #141401, (R4) 3400=303 001 

2928 011410 012711 177405 MOV #177405,(R1) :402=377 005 

2929 011414 012722 000070 MOV #70,CR2)+ 340422070 

2930 011420 012722 177777 MOV #-1,CR2)+ 3406=-1 

2931 011424 042421 BIC CR4)+,CR1)+ 3402=074004 

2932 011426 001401 BEQ i$ sERROR IF ZERO 

2933 011430 100001 BPL 2s ;BRANCH IF GOOD 

2934 ;CC SHOULD = 1000 

2935 011432 104001 1$: ERROR ol ;CPU ERROR 

2936 011434 052421 2s: BIS CR4)+,CR1)+ 3404=074074 

2937 011436 142421 BICB (R4)+,C(R1)+ 3406=074 

2938 011440 005301 DEC R1 :R4=405 R1=406 

2939 011442 152421 BISB (R4)+,CR1)+ 3406=-1 R4=406 R1=407 
2940 011444 100401 BMI 4$ ;BRANCH IF GOOD 

2941 3406 SHOULD=-1 


| 2942 011446 104001 3%: ERROR +1 





;CPU ERROR 














eae: JS 
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SEQ 0061 

*eeeee¢eeee¢ DOUBLE OPERAND TESTS seeseacevecceeces 

2943 011450 005214 4$: INC CR4) 3406 SHOULD=0 

2944 011452 001401 BEQ 6$ ;BRANCH IF GOOD 

2945 sERROR! 406 NE O 

2946 011454 104001 5$: ERROR o1 ;CPU ERROR 

2947 011456 6$: 

2948 

2949 3 

2952 011456 MBC22: 

2953 

2954 ; TEST BIT, CMP MODE 2,2 

2955 011456 012704 000400 MOV #400 ,R4 3R4=400 

2956 011462 012701 000402 MOV #402 ,R1 3R1=402 

2957 011466 012714 125252 MOV #125252, (R4) :400=125252 

2958 011472 012721 100001 MOV #100001,(R1)+ :402=100001 

2959 011476 01271i 100002 MOV #100002, (R1) :404=100002 

2960 011502 005741 TST -(R1) 3R1=402 

2961 011504 132421 BITB CR4)+,CR1)+ ;**ANDED RESULT= 000 

2962 011506 100401 BMI 1$ sERROR IF MINUS 

2963 011510 001401 BEQ 2s ;BRANCH IF GOOD 

2964 011512 104001 1$: ERROR +1 ;CPU ERROR 

2965 ;CC SHOULD = 0100 

2966 011514 132124 2s: BITB CR1)+,CR4)+ ;** ANDED RESULT = 200 

2967 011516 001401 BEQ 3$ sERROR IF EQUAL 

2968 011520 100401 BMI 4$ ;BRANCH IF GOOD 

2969 011522 104001 3$: ERROR +1 ;CPU ERROR 

2970 ;CC SHOULD= 1000 R4=402 R1=404 

2971 011524 022421 4$: CMP CR4)+,CR1)+ sRESULT =e1 

2972 011526 001402 BEQ 5$ sERROR IF EQUAL 

2973 011530 103001 BCC 5$ sERROR IF NO CARRY 

2974 011532 100401 BMI 6$ ;BRANCH IF GOOD 

2975 011534 104001 S$: ERROR +1 ;CPU ERROR 

2976 ;CC SHOULD = 0000 

2977 011536 005341 6$: DEC -C(R1) ;404=100001 

2978 011540 005741 TST -C(R1) 3R4=404 R1=402 

2979 011542 022124 CMP CR1)+,CR4)+ sRESULT =0 

2980 011544 001401 BEQ 8$ ;BRANCH IF GOOD 

2981 ;CC SHOULD = 0100 R1=404 R4=406 

2982 011546 104001 7$: ERROR S| ;CPU ERROR 

2983 011550 8$: 

2984 

2985 3 

2988 011550 MS33: 

2989 

2990 ; TEST SUB MODE 3,3 

2991 011550 005004 CLR R4 3;R4=0 

2992 011552 012701 000002 MOV #2,R1 sRi=2 

2993 011556 012702 000400 MOV #400 ,R2 ;R2=400 

2994 011562 012714 000400 MOV #400, (R4) :0=400 

2995 011566 012711 000402 MOV #402,(R1) 327402 

2996 011572 012722 000200 MOV #200, (R2)+ 3400=200 

2997 011576 012712 054320 MOV #54320, (R2) 3402=54320 

2998 011602 163431 SUB @(R4)+,A(R1)+ 354320 - 200=54120 

2999 011604 001402 BEQ 1$ sERROR IF ZERO 

3000 011606 103401 BCS 1$ sERROR IF CARRY 

3001 011610 100001 BPL 2s ;BRANCH IF GOOD 

3002 011612 104001 1$: ERROR o1 ;CPU ERROR 


| 3003 :CC SHOULD =0001 








COKDADO KDJ11-B CLUSTER DIAG. 
*seeeeeeee0ee DOUBLE OPERAND TESTS seeeeeeeccacecees 


3008 011624 
3009 011630 


3015 011634 


3018 011634 
3019 011640 
3020 011644 
3021 011650 
3022 011654 
3023 011656 
3024 011660 


3026 011662 
3027 011664 
3028 011666 
3029 011670 
3030 011672 
3031 011674 
3032 011676 


3034 011700 
3035 011702 
3036 011704 
3037 011706 
3038 011710 


3040 011712 
3041 011714 


3045 011714 


3048 011714 
3049 011720 
3050 011724 
3051 011730 
3052 011734 
3053 011740 
3054 011744 
3055 011746 
3056 011750 
3057 011752 
3058 011754 


3060 011756 
3061 011762 
3062 011764 


f 
3004 011614 
3005 011620 
3006 011622 
3063 011766 


022712 
001401 
104001 


005067 
005067 


054120 


166150 
166146 


000400 
000402 
125366 
173001 





MACRO YOS.02 


2$: 
3$: 
4$: 


1$: 
2$: 


3$: 
4$: 


1$: 
2s: 


3$: 





CMP 
BEQ 
ERROR 


CLR 
CLR 


MOV 
MOV 





KS 


#54120,(R2) 
46 
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SEQ 0062 


s TEST R4 AUTO-INC AND RESULT 
sBRANCH IF GOOD 


+1 ;CPU ERROR 
;CC SHOULD = 0100 R4=2 R1=4 
0 sRESTORE VECTORS 
2 3 
TEST CMP, BIT MODE 4,4 
MOV #400 ,R4 3R4=400 
#402 ,R1 ;R1=402 
#125366,(R1)+ 3402=125366 R1=404 
#173001,(R4)-+ 3400=173001 R4=402 
-C(R4),-CR1) 3173001 - 125366=045603 CC=0000 
i$ sERROR IF CARRY 
2$ ;BRANCH IF GOOD 
;BAD COMPARE 
+1 ;CPU ERROR 
R4 
Ri 3R1=403 
:SET CARRY 
3173t1=0 


as 


+1 


TEST ADD MODE 5,5 
MOV 


#400 ,R4 
#1,(R4)+ 
#-2,CR4)< 


@-(R4),a-(R1) 
1$ 


04,R4 
@-(R1),8-(R4) 
4$ 


o1 


:C SHOULD REMAIN SET 

sBRANCH IF GOOD 

s INCORRECT COMPARE R4=400 R1=402 
;CPU ERROR 

3R4=402 

3R1=403 

3173 - 17320 

;BRANCH IF GOOD 

;BAD COMPARE 
;CPU ERROR 


3400-1 
3402=-2 
3404=400 
3406=402 R4=406 
3R1=410 
sie -2= -1 
sERROR IF ZERO 
sERROR IF PLUS 
;BRANCH IF GOOD 
;CPU ERROR 
;BAD ADD 
3R4=410 
s-l +120 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD= 0100 R4=406 R1=402 
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3065 


011770 


011770 


011770 
011772 
011776 
012002 
012006 
012012 
012020 


012022 
012024 
012032 
012034 


012036 
012040 


012040 


012102 
012104 
012112 
012114 


012116 
012122 


012126 


005004 
012701 
012721 
012721 
012721 
036461 
001401 


104001 
136461 
001401 
100401 


104001 


000405 


000400 


177776 
177777 
000400 


000402 
177372 


177777 


165656 
165654 


177774 


177772 


000403 


177776 
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SEQ 0063 
4$: 
3 
3 
) 
3 lien ee ee ee ee a ee a ee a ee ee 
sTEST DOP BITC(B) MODE 6,6 
3 
8 
F 
3 
MB66: 
3 TEST BIT, BITB MODE 6,6 
CLR R4 3R4=0 
MOV #400,R1 F 
MOV #125252,(R1)+ 3400=125252 
MOV #1,CR1)+ 340221 
MOV #100000, (R1)+ 340421000000 R1=406 
BIT 400(R4),-4(R1) 3€400)t(402)=0 
BEQ 2s sBRANCH IF GOOD 
:CC SHOULD = 0100 
1$: ERROR 1 ;CPU ERROR 
2s: BITB 405(R4),-6(R1) 3(€405)t(400)=200 
BEQ 3$ sERROR IF ZERO 
BMI 4$ sBRANCH IF GOOD 
;CC SHOULD = 1000 
3$: ERROR +1 ;CPU ERROR 
4$: 
F 
MS77: 
: TEST SUB MODE 7,7 
MOV #400 ,R4 F 
CLR Ri 
MOV #-2,(R4)- 3400=-2 
MOV #-1,(R4)< 3402=-1 
MOV #400, (R4)+ 3404=400 R4=406 
MOV #402,(R1) :0=402 
INC Ri ;R1=1 
SUB 8-406(R4),8403(R1) s-2 - -1 = -1 
BEQ 1$ sERROR IF ZERO 
BMI 2s sBRANCH IF GOOD 
;CC SHOULD=1000 
1$: ERROR vl ;CPU ERROR 
2s: SUB 8-1(R1),8-2(R4) s-1 - -1 =0 
BEQ 4$ ;BRANCH IF GOOD 
3$: ERROR ol ;CPU ERROR 
sERROR ON SUBTRACT 400-0 
4$: CLR 0 sRESTORE VECTORS 
CLR 2 $ * 
3 
MRLO: 














M5 


COKDADO KDJ11-B8 CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-45 
SEQ 0064 
eeeeeeeeeees DOUBLE OPERAND TESTS eeeeeecusececsene . 


my 


3128 3 TEST ROL, ROLB MODE 0 

3129 012126 012704 125252 MOV #125252 ,R4 3R42125252 

3130 012132 000277 scc 3CC#1111 

3131 012134 006104 : ROL R4 sR4=052525 WITH CARRY SET 
3132 012136 102004 ‘a BVC i$ sERROR IF V CLEAR 

3133 012140 103003 BCC i$ sERROR IF CARRY CLEAR 
3134 012142 022704 052525 CMP 9052525 ,R4 sSEE IF RO = EXPECTED 
3135 012146 001401 BEQ 2s sERROR IF R4& NE EXPECTD 
3136 012150 104001 i$: ERROR 1 ;CPU ERROR 

3137 sROL FAILED, CC SHOULD=0011 

3138 012152 012704 125252 2s: MOV #125252 ,R4 3R4=125252 

3139 012156 000257 ccc :CC=0000 

3140 012160 106104 ROLB R4 sROTATE EVEN BYTE 

3141 012162 103005 BCC 3$ sERROR IF NO CARRY 

3142 012164 102004 BVC 3¢ sERROR IF NO OVERFLOW 
3143 012166 100403 BMI sERROR IF MINUS 

3144 012170 022704 125124 CMP #125124 ,R4 ;SEE IF R4 = EXPECTED 
3145 012174 001401 BEQ 4 ;BRANCH IF GOOD 

3146 012176 104001 3$: ERROR ol ;CPU ERROR 

3147 sROLB FAILED, CC SHOULD=1011, R4=125125 
3148 012200 4$: 

3149 

3150 3 

3153 012200 MRLB1: 

3154 

3155 ; TEST ROL, ROLB MODE 1 

3156 012200 005004 CLR R4 3R4=20 

3157 012202 012714 052525 MOV #52525, (R4) 30252525 

3158 012206 006114 ROL (R4) 3#*#TEST INSTRUCTION, 02125252 
3159 012210 100005 BPL i$ sERROR IF PLUS 

3160 012212 102004 BVC is sERROR IF NO OVERFLOW 
3161 012214 103403 BCS i$ sERROR IF CARRY 

3162 012216 021427 125252 CMP C(R4), #125252 sSEE IF R4*EXPECTED 

3163 012222 001401 BEQ 2s sBRANCH IF GOOD 

3164 ;BAD ROL ,CC SHOULD=1010 
3165 012224 104001 i$: ERROR + ;CPU ERROR 

3166 012226 012714 125252 2$: MOV #125252,(R4) 302125252 

3167 012232 005204 INC R4 3RG=1 

3168 012234 000277 sScc 3CC=1111 

3169 012236 106114 ROLB (R4) 3*#*TEST INSTRUCTION 

3170 012240 100406 BMI 3$ sERROR IF RESULT IS POSITIVE 
3171 012242 103005 BCC 3$ sERROR IF NO CARRY 

3172 012244 102004 BVC 3$ sERROR IF V CLEAR 

3173 012246 005304 DEC R4 3R4=20 

3174 012250 022714 052652 CMP #52652, (R4) sERROR IF O NE EXPECTED 
3175 012254 001401 BEQ 4 ;BRANCH IF GOOD 

3176 012256 104001 3$: ERROR ol ;CPU ERROR 

3177 ;BAD ROLB ODD BYTE,CC SHOULD=1011 
3178 012260 4$: 

3179 

3180 3 

3183 012260 MRL2: 

3184 

3185 3 TEST ROL, ROLB MODE 2 

3186 012260 005004 CLR R4 3;R4=20 

3187 012262 012714 100000 MOV #100000, (R4) :0=100000 

3188 012266 000257 ccc :CC=0000 








NS 
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SEQ 0065 


3189 012270 006124 ROL CR4)-+ s*#TEST INSTRUCTION 
3190 012272 103002 BCC 1$ sERROR IF NO CARRY 
3191 012274 102001 BVC i$ sERROR IF NO OVERFLOW 
3192 012276 001401 BEQ 2s sBRANCH IF GOOD 
3193 sROL FAILED ,CCSHOULD= 0100 
3194 012300 104001 i$: ERROR 1 ;CPU ERROR 
3195 012302 005304 2%: DEC R4 
3196 012304 005304 DEC R4 
3197 012306 001012 BNE 3$ sERROR IN AUTO-DEC 
3198 012310 012714 004040 MOV #4040, (R4) 30=4040 
3199 012314 000241 cLC 
3200 012316 106124 ROLB CR4)« s*#*#TEST INSTURCTION 
3201 012320 103405 Bcs 3$ sERROR IF CARRY SET 
3202 012322 102404 BVS 3$ sERROR IF V 
3203 012324 005304 DEC R4 
3204 012326 022714 004100 CMP #04100, (R4) sSEE IF O= EXPECTED RESULT 
3205 012332 001401 BEQ 4$ sBRANCH IF GOOD 
3206 012334 104001 3$: ERROR 1 ;CPU ERROR 
3207 ;BAD ROL 
3208 012336 4$: 
3210 
3213 012336 MRL3 
3214 
3215 ’ TEST ROL, ROLB MODE 3 
3216 012336 005004 CLR R4 3R420 
3217 012340 012714 052525 MOV #052525, (R4) 30*52525 
3218 012344 000277 scc 3CC#1111 
3219 012346 006137 000000 ROL a°0 3#*#TEST INSRUCTION MODE 3 WITH PC 
3220 012352 100005 BPL 1$ sERROR IF PLUS 
3221 012354 102004 BVC 1$ sERROR IF NO OVERFLOW 
3222 012356 103403 BCS i$ sERROR IF CARRY 
3223 012360 022714 125253 CMP #125253, (R4) sCOMPARE RESULT WITH EXPECTED 
3224 012364 001401 BEQ 2$ sBRANCH IF GOOD 
3225 ;BAD ROL CC SHOULD=1010 
3226 012366 104001 1$: ERROR o1 ;CPU ERROR 
3227 012370 012714 125252 2s: MOV #125252, (R4) 302125252 
3228 012374 000261 SEC 3CC#---1 
3229 012376 106137 000000 ROLB ae0 3*##TEST INSTRUCTION 
3230 012402 100402 BMI 3$ sERROR IF MINUS 
3231 012404 103001 BCC 3$ sERROR IF NO CARRY 
3232 012406 102401 BVS 4$ sBRANCH IF OVERFLOW 
3233 012410 104001 3%: ERROR o1 ;CPU ERROR 
3234 ;BAD ROL, CC SHOULD=1011 
3235 012412 4$: 
3236 
3237 3 
3240 012412 MRL4: 
3241 
3242 F TEST ROL MODE 4 
3243 012412 005001 CLR R1 sR1=0 
3244 012414 012704 000002 MOV 62,R4 3R422 
3245 012420 012711 054321 MOV 054321,(R1) 3054321 
3246 012424 000277 scc 3CC#1111 
3247 012426 006144 ROL -(R4) s@eTEST INSTRUCTION 
3248 012430 100007 BPL is sERROR IF PLUS 
3249 012432 102006 BvC is sERROR IF NO OVERFLOW 


— pune eee 











3250 012434 
3251 012436 
3252 012442 
3253 012444 
3254 012446 


3256 012450 
3257 012452 


3262 012452 


3276 012510 


3278 012512 
3279 012514 


3284 012514 


3304 012552 


3307 012552 
3308 012556 
3309 012562 
3310 012570 
3311 012574 
3312 012576 
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000400 
123456 


047135 


000400 
032525 
177400 


065253" 





000400 


1$: 
2s: 


1$: 
2s: 


CLR 


B6é 
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SEQ 0066 
i$ sERROR IF CARRY 
#130643,(R1) sSEE IF EXPECTED RESULT 
1$ sBRANCH IF ROL FAILED 
R4 sSEE IF AUTO-DEC WORKED 
2s sBRANCH IF GOOD 
sERROR! BAD ROL INST 
+1 sCPU ERROR 
MODE 5 
R4 3R4=0 
#400, (R4) 302400 
#123456 , AC R4)+ 3400=123465, R4=2 
3CC#1111 
@-(R4) 3*#*TEST INSTRUCTION 
1$ sERROR IF RESULT IS MINUS 
1$ sERROR IF NO CARRY 
1$ sERROR IF NO OVERFLOW 
R4 sSEE IF AUTO-DEC WORKED 
i$ sERROR OF AUTO-DEC 
#47135 ,80400 ;SEE IF CORRECT RESULT 
sBRANCH IF GOOD 
;BAD ROL MODE 5 
+1 ;CPU ERROR 


TEST ROL MODE 6 
MOV #4 


00,R4 3R4=400 

Ri sR1=0 

#32525,(R1) 30=32525 

-400(R4) s#*#TEST INSTRUCTION 

1$ sERROR IF MINUS 

1$ sERROR IF CARRY 

1$ sERROR IF OVERFLOW 

#65253, (R1) . sSEE IF CORRECT RESULT 

2s ;BRANCH IF GOOD 
;BAD ROL MODE 6 

ol s;CPU ERROR 


TEST ROL MODE 7 








3R4=400 

3402=0 

:0=100000 

3#@TEST INSTRUCTION 
sERROR IF MINUS 
;ERROR IF NOT ZERO 











| Se C6 


COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-48 
eeeeeeeneeee DOUBLE OPERAND TESTS eeeeeecueecececen 


SEQ 0067 


3313 012600 103004 BCC i$ sERROR IF NO CARRY 
3314 012602 102003 BVC i$ sERROR IF NO OVERFLOW 
3315 012604 005737 000000 TST a#0 ;CHECK RESULT 
3316 012610 001401 BEQ 2s sBRANCH IF GOOD 
3317 ;BAD ROL MODE 7 
3318 017612 104001 1$: ERROR ol ;CPU ERROR 
3319 012614 2s: 
3320 
3321 
3382 012614 MSW37 
3383 
3384 3 TEST SWAB MODE 37 
3385 012614 012704 000400 MOV #400 ,R4 3R4=400 
3386 012620 012714 040700 MOV #40700, (R4) 3400= 101 300 
3387 012624 000337 000400 SWAB 84400 3400 SHOULD = 300 101 
3388 012630 100406 BMI 1$ sERROR IF MINUS 
3389 012632 022714 140101 CMP #140101, (R4) ;SEE IF EXPECTED RESULT 
3390 012636 001003 BNE i$ ;BRANCH IF BAD 
3391 012640 000337 000400 SWAB 89400 :400=101 300 
3392 012644 100401 BMI 2s ;BRANCH IF GOOD 
3393 sERROR! BAD SWAB MODE 37 
3394 012646 104001 1$: ERROR +1 ;CPU ERROR 
3395 012650 2$: 
3396 
3397 
3400 012650 MRRO 
3401 
3402 F TEST ROR MODE 0 
3403 012650 012704 052525 MOV #52525,R4 3R4=52525 
3404 012654 000257 ccc :CC=0000 
3405 012656 006004 ROR R4 3R4 SHOULD = 25252 WITH CARRY 
3406 012660 103003 BCC 1$ sERROR IF NO CARRY 
3407 012662 022704 025252 CMP #25252 ,R4 ;SEE IF R4= EXPECTED 
3408 012666 001401 BEQ 2s ;BRANCH IF GOOD 
3409 sROR MODE O FAILED 
3410 012670 104001 1$: ERROR +1 ;CPU ERROR 
3411 012672 2$: 
3412 
3413 3 
3416 012672 MRRB1: 
3417 
3418 ; TEST —_ P aaa i 
3419 012672 005004 CLR 3R4=0 
3420 012674 012714 000001 MOV i. C(R4) 3;0=1 
3421 012700 000277 scc :CC=1111 
3422 012702 106014 RORB CR4) 30=000200, NO C 
3423 012704 103004 BCC 1$ sERROR IF NO CARRY 
3424 012706 100003 BPL i$ sERROR IF PLUS 
3425 012710 022714 000200 CMP #200, (R4) ;CHECK RESULT 
3426 012714 001401 BEQ 2s ;BRANCH IF GOOD 
3427 012716 104001 i$: ERROR «1 ;CPU ERROR 
3428 ;BAD RESULT 
3429 012720 2s: 
3430 
3431 3 
3433 
012720 MJ: 


: 
uw 
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012720 
012726 
012732 
012734 
012742 


012744 
012746 
012752 
012754 


013076 
013102 
013106 


013112 
013114 
013120 
013122 


013124 
013132 
013134 


012737 


022701 
001401 
104001 


005237 
012701 
000141 


000000 
022701 
001401 
104001 


023727 
001401 
104001 


005237 
012701 
000161 


000240 
022701 
001401 
104001 


023727 
001401 
104001 


000001 
012772 
003072 


012736 


003072 
012770 


003072 


003072 
012734 


003072 
012772 
003072 
013114 
013150 


003072 


003072 
013145 
000005 


013112 


003072 
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003072 


000002 


000001 


000003 


000005 


000004 


MJU2: 


1$: 


MJU2A: 


2$: 


MJU2B : 


MJe: 
MJU1: 


3$: 


MJUILA: 


MJU3: 
4$: 


6$: 


MJUSA: 


7$: 
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TEST JMP 
Vv 


- ALL MODES 


#MJ2+2,R1 
MJU3B 
+1 


aeSEQ 
@MJU4+2,R1 
-C(R1) 


#MJS ,R1 
MJUSA 
+1 


@eSEQ, #5 
MJUSB 
+1 


@SEQ, #4 
MJU4B 
+1 


sSETUP TEST SEQUENCER 
sSET MODE 1 JUMP ADDRESS 
3*JMP MODE 1 
sCHECK FOR CORRECT SEQUENCE 
sBRANCH IF GOOD 
sMODE 2 JUMP FAILED 

;CPU ERROR 
sCHECK FOR AUTO-INCREMENT 
s;BRANCH IF GOOD 

;CPU ERROR 

sAUTO-INCR FAILED 
sUPDATE TEST SEQUENCER 
sSETUP MODE 3 JUMP 
JUMP MODE 3 
sMODED 3 DETINATION 
; TEST FOR CORRECT SEQUENCE 
s;BRANCH IF GOOD 

;CPU ERROR 

sJMP OUT OF SEQUENCE 
sUPDATE SEQUENCE 
sSETUP MODE 2 DESTINATION 
sJUMP MODE 2 
s TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 

;CPU ERROR 

sJMP OUT OF SEQUENCE 
s_ TEST AUTO-INCREMENT 
;BRANCH IF GOOD 

;CPU ERROR 

sAUTO-INCREMENT FAILED MODE 3 
sUPDATE SEQUENCER 
sSETUP DESTINATION MODE 4 
sEXECUTE JUMP MODE 4 


;CHECK AUTO-DECREMENT 
;BRANCH IF GOOD AUTO-DEC 
;CPU ERROR 
;AUTO-DEC FAIELD MODE 5 
; TEST CORRECT SEQUENCE 
;BRANCH IF GOOD SEQUENCE 
;CPU ERROR 
;JMP OUT OF SEQUENCE 
sUPDATE SEQUENCE COUNT 
;SETUP DESTINATION MODE6 
;JUMP MODE 6 


; TEST AUTO-DECR 
;BRANCH IF GOOD 
;CPU ERROR 
sMODE 4 AUTO-DEC FAILED 
s TEST FOR CORRECT SEQUENCE 
s;BRANCH IF CORRECT SEQUENCE 
;CPU ERROR 
s INCORRECT JMP SEQUENCE 





SEQ 0068 


~ 


_---. 


- eee ee 
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3493 013136 
3494 013142 
3495 013146 


013150 


3499 013152 
3500 013160 
013162 


3503 013164 
3504 013170 
3505 013174 
3506 013200 
013202 
3508 013204 
3509 013212 
3510 013214 


3512 013216 


3526 013216 


3530 013222 
013224 
013226 

013230 
013232 
013234 
013236 
013240 
013242 
013244 
013246 
013250 
013252 
013254 
013256 
013260 
013262 
013264 
013266 
013270 
013272 
013274 
013276 
013300 
013302 
013304 
013306 
013310 
013312 
013314 
| 013316 
! 


005237 
012701 
000151 


013054 
022737 


012701 


000040 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 
000240 
000111 
012717 


003072 
013152 


000006 


003072 
013210 
177770 


000007 


013526 





MACRO YOS.02 


003072 


003072 


MJU4B : 


Hus: 
HJU6 : 
10$; 
MJU6A: 


MJ7: 


INC 


@eSEQ 
#MJ5+2,R1 
a-(R1i) 
MJUS+2 

#6 , 9@SEQ 
MJU6A 

+1 

a6SEQ 
#MJ7+10,R1 
@-10(R1) 
MJU7 
#7,29¢SEQ 
MJU7E 

o1 


E6 
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sUPDATE SEQUENCE 


sSETUP MODE S POINTER 


sEXECUTE MODE 5S JMP 
sPOINTER MODE 5 





sCHECK FOR CORRECT SEQUENCE 


sBRANCH IF GOOD 


;CPU ERROR 
s INCORRECT SEQUENCE 


sUPDATE SEQUENCER 
sSETUP INDEX 


sEXECUTE MODE 7 JUMP 


sPOINTER FOR MODE 7 


; TEST FOR CORRECT SEQUENCE 


s;BRANCH IF GOOD SEQUENCE 


;CPU ERROR 
s TESTING OUT OF SEQUENCE 


TEST THAT PRE-FETCH BUFFER CAN BE OVER WRITTEN 
MOV ;SET UP R1 WITH ADDRESS 


#128$,R1 
CPC)+, CPC) 
NOP 

111 

CPC)+, CPC) 
NOP 


111 
(PC)+, CPC) 
NOP 


111 
CPC)+, CPC) 
NOP 


111 
(PC)+, CPC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
CPC)+, CPC) 
NOP 
111 
CPC)+, CPC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
(PC)+, CPC) 
NOP 


111 
CPC)+, CPC) 








s ROUTINE 


sWRITE THE NOP OVER 
sNOP INSTRUCTION 

3; JMP CR1) 

sWRITE THE NOP OVER 
sNOP INSTRUCTION 

; JMP CR1) 

;WRITE THE NOP OVER 
sNOP INSTRUCTION 

3 JMP (Ri) 

;sWRITE THE NOP OVER 
s;NOP INSTRUCTION 

3 JMP CR1) 

;sWRITE THE NOP OVER 
sNOP INSTRUCTION 

; UMP (Ri) 

sWRITE THE NOP OVER 
sNOP INSTRUCTION 

3; JMP CR1) 

;sWRITE THE NOP OVER 
sNOP INSTRUCTION 

3; JMP (Ri) 

sWRITE THE NOP OVER 
sNOP INSTRUCTION 

3 JMP CR1) 

;WRITE THE NOP OVER 
sNOP INSTRUCTION 

; JMP CR1) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

3; JMP CR1) 

;sWRITE THE NOP OVER 


OF ERROR 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 
THE JMP INSTRUCTION 


SEQ 0069 








i -—— 
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SEQ 0070 

seeee¢eeeee% DOUBLE OPERAND TESTS «easaceccccecacar 

013320 000240 -WORD NOP sNOP INSTRUCTION 

013322 000111 30018$: .WORD 111 ; IMP (Ri) 

013324 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013326 000249 -WORD NOP sNOP INSTRUCTION 

013330 000111 30019$: .WORD 111 ; JMP CR1) 

013332 012717 MOV CPC)+, (PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013334 000240 -WORD NOP sNOP INSTRUCTION 

013336 000111 30020$: .WORD 111 3 JMP CR1) 

013340 012717 MOV CPC)+,(PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013342 000240 -WORD NOP sNOP INSTRUCTION 

013344 000111 30021$: .WORD 111 ; JMP CR1) 

013346 012717 MOV CPC)+, CPC) sWRITE THE NOP OVER THE JMP INSTRUCTION 

013350 000240 -WORD NOP sNOP INSTRUCTION 

013352 000111 30022$: .WORD 111 3 JMP (Ri) 

013354 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013356 000240 -WORD NOP sNOP INSTRUCTION 

013360 000111 30023$: .WORD 111 ; JUMP CR1) 

013362 012717 MOV (PC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013364 000240 -WORD NOP sNOP INSTRUCTION 

013366 000111 30024$: .WORD i111 ; JMP CR1) 

013370 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013372 000240 -WORD NOP sNOP INSTRUCTION 

013374 000111 30025$: .WORD 111 ; IMP CR1) 

013376 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013400 000240 -WORD NOP sNOP INSTRUCTION 

013402 000111 30026$: .WORD 111 ; JMP (Ri) 

013404 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013406 000240 -WORD NOP sNOP INSTRUCTION 

013419 000111 30027$: .WORD 111 3 JMP CR1) 

013412 012717 MOV (PC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013414 000240 -WORD NOP sNOP INSTRUCTION 

013416 000111 30028$: .WORD 111 ; JUMP (Ri) 

013420 012717 MOV (PC)+, (PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013422 000240 -WORD NOP sNOP INSTRUCTION 

013424 000111 30029$: .WORD 111 ; JMP CR1) 

013426 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013430 000240 -WORD NOP sNOP INSTRUCTION 

013432 000111 30030$: .WORD 111 ; JMP CR1) 

013434 012717 MOV (PC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013436 000240 -WORD NOP sNOP INSTRUCTION 

013440 000111 30031$: .WORD 111 ; UMP CR1i) 

013442 012717 MOV CPC)+, (PC) ;sWRITE THE NOP OVER THE JMP INSTRUCTION 

013444 000240 -WORD NOP sNOP INSTRUCTION 

013446 000111 30032$: .WORD 111 ; JMP (Ri) 

013450 012717 MOV CPC)+, (PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

013452 000240 -WORD NOP sNOP INSTRUCTION 

013454 000111 30033$: .WORD 111 ; JMP CR1) 

013456 012717 MOV CPC)+, CPC) sWRITE THE NOP OVER THE JMP INSTRUCTION 

013460 000240 -WORD NOP sNOP INSTRUCTION 

013462 000111 30034$: .WORD 111 ; JMP CR1) 

013464 012717 MOV CPC)+, (PC) ;sWRITE THE NOP OVER THE JMP INSTRUCTION 

013466 000240 -WORD NOP sNOP INSTRUCTION 

013470 000111 30035$: .WORD 111 ; IMP CR1) 

013472 012717 MOV CPC)+, (PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 
| 013474 000240 -WORD NOP sNOP INSTRUCTION 

013476 000111 30036$: .WORD 111 ; JMP CR1) 

013500 012717 MOV CPC)+, (PC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 

! 

















| 
i 
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SEQ 0071 
*eeeeeee¢e0e DOUBLE OPERAND TESTS «eeececeecececese 
013502 000240 -WORD NOP sNOP INSTRUCTION 
013504 000111 30037$: .WORD 111 ; JMP CR1) 
013506 012717 MOV (PC)+, (PC) on ;WRITE THE NOP OVER THE JMP INSTRUCTION 
013510 000240 -WORD NOP sNOP INSTRUCTION 
013512 000111 30038$: .WORD 111 ; IMP CR1) 
013514 012717 MOV CPC)+, CPC) ;WRITE THE NOP OVER THE JMP INSTRUCTION 
013516 000240 -WORD NOP sNOP INSTRUCTION 
013520 000111 30039$: .WORD 111 ; JMP (Ri) 
3531 013522 000137 013530 JMP a129$ ;JUMP OVER ERROR CALL 
3532 013526 128%: sERROR! PRE-FETCH BUFFER WAS NOT 
3533 ;OVER WRITTEN 
013526 104001 ERROR +1 ;CPU ERROR 
; 
oF F NOW RESTORE THE OVER WRITTEN JMP INSTRUCTIONS FOR THE NEXT PASS. 
; 
3538 013530 012702 000040 129$: MOV #32. ,R2 ;SET UP R2 AS COUNTER 
3539 013534 012703 013216 MOV #MJUTE ,R3 ;SET UP R3 AS POINTER. $$$ 
3540 013540 062703 000010 ADD #10,R3 ;ADD OFFSET TO POINT TO ist. JMP IN TABLE. $$$ 
3541 013544 012713 000111 130: MOV #111,(R3) sRESTORE OVER WRITTEN JUMPS 
3542 013550 062703 000006 ADD #6 ,R3 sPOINT TO NEXT OVER WRITTEN ADOR. 
= 8 013554 077205 SOB R2,130$ ;D0 UNTIL R2=0 
3546 3 
3548 013556 MUP: 
3549 
3550 ; TEST JMP MODES 17,27,37,67,77 
3551 013556 012737 000000 003072 MOV #0 ,3#SEQ ;SETUP TEST SEQUNCER 
aes 013564 000117 JMP (R7) sJUMP MODE 17(SHOULD BE IN-LINE) 
3 
3554 013566 005737 003072 MJP17: TST a#SEQ ;CHECK SEQUENCE 
3555 013572 001401 BEQ 2s ;BRANCH IF GOOD 
3556 ;ERROR! BAD JUMP 
3557 013574 104001 1$: ERROR +1 ;CPU ERROR 
3558 013576 005237 003072 2$: INC aeSEQ sUPDATE SEQUENCE NUMBER 
Z 3559 013602 000127 000401 JMP #401 3; JUMP MODE 27 
3560 ;(THE #401=BR UPDATED PC+2) 
3561 3 
e368 013606 000000 HALT ; 
F 
3564 013610 023727 003072 000001 MUP27: CMP O’SEQ, #1 ;CHECK IF CORRECT SEQUENCE 
3565 013616 001401 BEQ MJP27A ;BRANCH IF IN SEQUENCE 
3566 013620 104001 1$: ERROR +1 ;CPU ERROR 
3567 ; TEST OUT OF SEQUENCE 
3568 013622 005237 003072 MJP27A: INC a#SEQ sUPDATE SEQUENCER 
3569 013626 000137 013674 JMP O¢MJP37 ;JUMP MODE 37 
3570 013632 023727 003072 000003 MJP67: CMP OeSEQ, #3 ;CHECK FOR CORRECT SEQUENCE 
3571 013640 001401 BEQ MJP67A ;BRANCH IF IN SEQUENCE 
3572 013642 104001 2s: ERROR +1 ;CPU ERROR 
3573 ; TEST OUT OF SEQUENCE 
3574 013644 005237 003072 MJP67A: INC aeSEQ sUPDATE SEQUENCER 
3575 013650 000257 col sINSURE ZBIT=0 
are 013652 000177 000002 JMP @MJP67B ;JUMP MODE 7 
3 
3578 013656 000000 HALT 3 
3579 


; 
re 013660 013662 MJP67B: .WORD MJP77 : 
; 


w 
vi 
@ 














---— 
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¢eeeeeeee0¢e DOUBLE OPERAND TESTS «eecacvacesaececace 


SEQ 0072 


3582 013662 023727 003072 000004 MUP77: CMP aSEQ, #4 ; TEST FOR CORRECT SEQUENCE 
3583 013670 001412 BEQ MJP77E ;BRANCH IF IN SEQUENCE 
3584 013672 104001 3$: ERROR +1 ;CPU ERROR 
3585 ; TEST OUT OF SEQUENCE 
3586 013674 023727 003072 000002 MUJP37: CMP aeSEQ, #2 ; TEST FOR CORRECT SEQUENCE 
3587 013702 001401 BEQ MJP37A sBRANCH IF IN SEQUENCE 
3588 013704 104001 4$: ERROR +1 ;CPU ERROR 
3589 ; TEST OUT OF SEQUENCE 
3590 013706 005237 003072 MJP37A: INC aeSEQ sUPDATE SEQUENCER 
oan 013712 000167 177714 JMP MJP67 ;JUMP MODE 6 

; 
3593 3 
3594 013716 MJP77E: 
3595 3 
3596 : 
3599 013716 MJSR: 
3600 
3601 3 TEST JSR ALL MODES 
3602 013716 010637 003074 MOV R6,a¢SPS sSAVE STACK POINTER LOCATION 
3603 013722 010637 003076 MOV R6,aeSPSU ; 
3604 013726 162737 000002 003076 SUB #2, 08SPSU ;SPSJ = R6 AFTER DECRIMENT 
3605 013734 012737 000001 003072 MOV #1,9%SEQ ;SETUP SEQUENCE COUNTER 
3606 013742 012701 014036 MOV #MJSR1,R1 ;SETUP INITIAL JUMP IN MODE 1 
3607 013746 005004 CLR R4 ; 
3608 013750 005104 COM R4 ;R4=-1 TO BE SAVED ON STACK 
Per 013752 004411 JSR R4,(R1) sJSR MODE 1 

1 F 

3611 013754 022737 000002 003072 MUSR2: CMP #2, 8%SEQ ; TEST FOR CORRECT SEQUENCE 
3612 013762 001401 BEQ MJSR2A ;BRANCH IF GOOD 
3613 013764 104001 5$: ERROR oa: ;CPU ERROR 
3614 ‘ sMODE 2 JUMPED TO OUT OF SEQUENCE 
3615 013766 023706 003076 . MJSR2A: CMP aeSPSJ,R6 ;VERIFY STACK DECRIMENT 
3616 013772 001006 BNE 6$ ;BRANCH IF STACK INCORRECT 
3617 013774 021627 125252 CMP CR6), #125252 ;VERIFY CONTENTS OF STACK 
3618 014000 001003 BNE 6$ ;BRANCH IF DATA ON STACK INCORRECT 
3619 014002 022704 014116 CMP #MJSR4 ,R4 ;SEE IF CORRECT RETURN ADDRESS 
3620 014006 001401 BEQ MJSR2B ;BRANCH IF GOOD 
3621 014010 104001 6$: ERROR ol ;CPU ERROR 
3622 ;JSR MODE 2 FAILED 
3623 014012 005237 003072 MJSR2B: INC aeSEQ sUPDATE SEQUENCE COUNTER 
3624 014016 013706 003074 MOV OeSPS ,R6 sRELOAD STACK POINTER 
3625 014022 012701 014034 MOV @MJSRA,R1 ;SETUP JSR MODE 3 
3626 014026 005004 CLR R4 ;DIFFERENT DATA TO R4 
3627 014030 004431 JSR R4,a(R1)+ :JSR MODE 3 
3628 014032 000000 HALT 
pees 014034 014202 MJSRA: .WORD MJSR3 sLITERAL FOR JUMP MODE 3 

F 
3631 014036 022737 000001 003072 MJSR1: CMP #1,38SEQ ; TEST FOR CORRECT SEQUENCE 
3632 014044 001401 BEQ MJSRIA ;BRANCH IF GOOD 
3633 014046 104001 7$: ERROR +) ;CPU ERROR 
3634 sMODE 1 JUMPED TO OUT OF SEQUENCE 
3635 014050 023706 003076 MJSR1A: CMP OeSPSJ,R6 ;VERIFY STACK DECRIMENT 
3636 014054 001006 BNE 8$ ;BRANCH IF STACK INCORRECT 
3637 014056 021627 177777 CMP (R6),#-1 ;VERIFY CONTENT OF STACK 
3638 014062 001003 BNE 8$ ;BRANCH IF DATA ON STACK INCORRECT 


3639 014064 022704 013754 CMP @MJSR2 ,R4 ;SEE IF CORRECT RETURN ADDRESS 
| 3640 014070 001401 BEQ MJSR1B sBRANCH IF GOOD 











16 


COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-54 


*eeeeeeee0eee DOUBLE OPERAND TESTS «eectcacecececene 


3641 014072 104001 8$: ERROR +1 ;CPU ERROR 
3642 :JSR MODE 2 FAILED 
3643 014074 005237 003072 MJSR1iB: INC aeSEQ sUPDATE SEQUENCE COUNTER 
3644 014100 013706 003074 MOV aeSPS ,R6 sRELOAD STACK POINTER 
3645 014104 012704 125252 MOV #125252 ,R4 ;SETUP R4 DATA 
3646 014110 012701 013754 MOV @MJSR2,R1 ;SETUP MODE 2 JUMP ADDRESS 
Z 3647 014114 004421 JSR R4,(R1)+ ;*JUMP MODE 2 

43 ? 

F 
3650 014116 022737 000004 003072 MJSR4: CMP #4 ,38SEQ ; TEST FOR CORRECT SEQUENCE 
3651 014124 001401 BEQ MJSR4A ;BRANCH IF GOOD 
3652 014126 104001 9$: ERROR ol ;CPU ERROR 
3653 sMODE 4 JUMPED TO OUT OF SEQUENCE 
3654 014130 023706 003076 MJSR4A: CMP aeSPSJ,R6 ;VERIFY STACK DECRIMENT 
3655 014134 001006 BNE 10$ sBRANCH IF STACK INCORRECT 
3656 014136 021627 052525 CMP CR6), #052525 ;VERIFY CONTENTS OF STAACK 
3657 014142 001003 BNE 10$ ;BRANCH IF DATA ON STACK INCORRECT 
3658 014144 022704 014264 CMP #MJSRE ,R4 ;SEE IF CORRECT RETURN ADDRESS 
3659 014150 001401 BEQ MJSR4B ;BRANCH IF GOOD 
3660 014152 104001 10$: ERROR o1 ;CPU ERROR 
3661 ;JSR MODE 4 FAILED 
3662 014154 005237 003072 MJSR4B: INC aeSEQ sUPDATE SEQUENCE COUNTER 
3663 014160 013706 003074 MOV OeSPS ,R6 sRELOAD STACK POINTER 
3664 014164 012704 000377 MOV #377,R4 sSETUP R4 DATA 
3665 014170 012701 014202 MOV @MJSRB+2,R1 ;SETUP JSR VECTOR 
3666 014174 004451 JSR R4,8-(R1) +JSR MODE 5S 
3667 014176 000000 HALT 
3668 014200 014350 MJSRB: WORD MJSRS sMODE 5S VECTOR 
3670 

3 
3671 014202 022737 000003 003072 MJSR3: CMP #3, 3#SEQ ; TEST FOR CORRECT SEQUENCE 
3672 014210 001401 BEQ MJSR3A ;BRANCH IF GOOD 
3673 014212 194001 11$: ERROR +1 ;CPU ERROR 
3674 ;MODE 3 JUMPED TO OUT OF SEQUENCE 
3675 014214 023706 003076 MJSR3A: CMP OeSPSU,R6 ;VERIFY STACK DECRIMENT 
3676 014220 001006 BNE 12$ ;BRANCH IF STACK INCORRECT 
3677 014222 021627 000000 CMP CR6),#0 ;VERIFY CONTENTS OF STAACK 
3678 014226 001003 BNE 12$ ;BRANCH IF DATA ON STACK INCORRECT 
3679 014230 022704 014032 CMP #MJSRA-2,R4 ;SEE IF CORRECT RETURN ADDRESS 
3680 014234 001401 BEQ MJSR3B ;BRANCH IF GOOD 
3681 014236 104001 12$: ERROR ol ;CPU ERROR 
3682 ;JSR MODE 3 FAILED 
3683 014240 005237 003072 MJSR3B: INC aeSEQ sUPDATE SEQUENCE COUNTER 
3684 014244 013706 003074 MOV @eSPS ,R6 sRELOAD STACK POINTER 
3685 014250 012704 052525 MOV #052525,R4 ;SETUP R4& DATA 
3686 014254 012701 014120 MOV #MJSR4+2,R1 ;SETUP JSR VECTOR 
3687 014260 000257 ccc ;CLEAR CONDITION CODES 
3688 014262 004441 JSR R4,-C(R1) 3JSR MODE 4 
3689 F 
3690 3 
3691 014264 022737 000006 003072 MuUSR6: CMP #6, 2@SEQ ; TEST FOR CORRECT SEQUENCE 
3692 014272 001401 BEQ MJSR6A ;BRANCH IF GOOD 
3693 014274 104001 13$: ERROR +1 ;CPU ERROR 
3694 sMODE 6 JUMPED TO OUT OF SEQUENCE 
3695 014276 023706 003076 MJSR6A: CMP @eSPSU,R6 ;VERIFY STACK DECRIMENT 
3696 014302 001006 BNE 14$ ;BRANCH IF STACK INCORRECT 
3697 014304 021627 123456 CMP (R6), #123456 ;VERIFY CONTENTS OF STACK 





SEQ 0073 





COKDADO KDJ11-B CLUSTER DIAG. 
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3698 014310 
3699 014312 
3700 014316 
3701 014320 


3703 014322 
3704 014326 
3705 014332 
3706 014336 
3707 014342 
3708 014346 


3730 014432 
3731 014440 
3732 014442 


3734 014444 
3735 014450 
3736 014452 
3737 014456 
3738 014460 
3739 014464 
3740 014466 


3742 014470 
3743 014470 


3748 014474 


3751 014474 
3752 014502 
3753 014506 
3754 014512 
3755 014520 
+ 3756 014524 


001003 
022704 
001401 
104001 


005237 
013706 
012704 
012701 
004471 
014432 


022737 


012737 
010637 
010637 
162737 
012704 
004427 


014432 


003072 
003074 
177773 
014356 
177770 


000005 


003076 
000377 
014176 


003072 
003074 
123456 
014274 
177770 


000007 


003076 
177773 
014346 


003074 


000001 
003074 
003076 
00000 


177777 
000240 


Le) 





J6 
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003072 


003072 


003072 


003076 


14$: 
MJSR6B: 


MJSRC: 
’ 


3 
MJSRS: 
15$: 
MJSRSA: 


3 
MJSR7: 
17$: 
MJSR7A: 


18$: 
MJSR7E: 


3 
MJRA: 


TEST JSR 
MOV 


14$ 
@MJISR7 ,R4 
MJSR6B 

+1 


aeSEQ 

@eSPS ,R6 
#-5,R4 
#MJSRC+10,R1 
R4,8-10(R1) 
MJSR7 


#5 , 8@SEQ 
MJSRSA 
+1 


@eSPSJ,R6 
16$ 

CR6), #377 
16$ 
#MJSRB-2,R4 


MJSRSB 
+1 


aeSEQ 

@eSPS ,R6 
#123456 ,R4 
#MJSR6+10,R1 
R4,-10(R1) 


#7 , 9¢SEQ 
MJSR7A 

+1 
OeSPSJ,R6 
18$ 
(R6),#-5 
18$ 
@MJSRS-2,R4 


MJSR7E 
+1 


@#SPS ,R6 


MODES e. 37, 67, 77 


#1, Q0SE 
R6,aeSPS 
R6,9#SPSJ 
#2, 98SPSJ 
#-1,R4 
R4, #240 





sBRANCH IF DATA ON STACK INCORRECT 
sSEE IF CORRECT RETURN ADDRESS 
s;BRANCH IF GOOD 


;CPU ERROR 
JSR MODE 6 FAILED 


sUPDATE SEQUENCE COUNTER 
sRELOAD STACK POINTER 
sSETUP R4 DATA 

s;SETUP JSR VECTOR 

sJSR MODE 7 

sJSR VECTOR 


s TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 


;CPU ERROR 
sMODE S JUMPED TO OUT OF SEQUENCE 


sVERIFY STACK DECRIMENT 

sBRANCH IF STACK INCORRECT 

sVERIFY CONTENTS OF STACK 

s;BRANCH IF DATA ON STACK INCORRECT 
sSEE IF CORRECT RETURN ADDRESS 
;BRANCH IF GOOD 


:CPU ERROR 
sJSR MODE 5S FAILED 


sUPDATE SEQUENCE COUNTER 
sRELOAD STACK POINTER 
sSETUP DATA IN R4 

sSETUP JSR VECTOR 

sJUMP MODE 6 


s TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 


;CPU ERROR 
sMODE 7 JUMPED TO OUT OF SEQUENCE 


sVERIFY STACK DECRIMENT 

sBRANCH IF STACK INCORRECT 

sVERIF¥Y CONTENTS OF STAACK 

sBRANCH IF DATA ON STACK INCORRECT 
sSEE IF CORRECT RETURN ADDRESS 
s;BRANCH IF GOOD 


:CPU ERROR 
;JSR MODE 7 FAILED 


sREPLACE STACK 


sSETUP SEQUENCER 
s;SAVE STACK ADDRESS 
sSAVE STACK DECRIMENT ADDRESS 


; 
sSETUP R4 DATA 
sEXECUTE A JSR MODE 27 


SEQ 0074 =! 


oal 





MACRO YOS.02 





*eeeeeeeeee¢ DOUBLE OPERAND TESTS seeceececaesceeeaes 


3757 
3758 


= -—--- 


014662 
014664 


014666 
014674 
014676 
014702 
014704 
014710 
014712 
014716 
014720 


014722 
014726 
014732 
014736 


014742 
014750 
014752 
014756 
014760 
014764 
014766 
014772 


022737 


014742 
023727 


' 
| 
COKDADO KDJ11-B CLUSTER DIAG. 
000000 
000000 


? 
000001 003072 MJR27: 


003076 
177777 
014530 


003072 
152525 
003074 
014666 
003072 
003076 
000125 


014742 


152525 
014604 


003072 
003074 
000125 
177644 
003072 
003076 
000001 


014662 


1$: 


MJR27A: 


MJR27B: 


000003 


2s: 


3 
MJR67: 


MJR67A: 


MJR6A: 
MJR6B: 


; 
000002 MJR37 


2$: 


MJR37A: 


; 
000004 MJR77: 


#1,98SEQ 
1$ 
@¢SPSJ,R6 
i$ 
C(R6),#-1 
1$ 

R4, @MJR27 
MJR27A 

+1 

aeSEQ 
#152525,R4 
@eSPS ,R6 
R4, 9OMJR37 
OOSEQ, #3 
2s 
@eSPSJ,RE 
2s 


CR6), #125 
es 


#1,R4 
R4, BMJR6B 


MJR77 
aeSEQ, #2 
2s 
a 





K6 
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SEQ 0075 


sVERIFY COERRECT TEST SEQUENCE 
s INCORRECT TEST SEQUENCE 
;VERIFY STACK POINTER 


sVERIFY R4 GOT LOADED ON THE STACK 
sBRANCH IF INCORRECT STACK CONTENTS 
sVERIFY CORRECT RETURN ADDRESS 

sBRANCH IF GOOD RETURN ADDRESS ON STACK 


;CPU ERROR 
sMODE 27 FAILED 


sUPDATE SEQUENCER 
sSETUP R4 TEST DATA 
sRESET STACK POINTER 
sJSR MODE 37 


sVERIFY TEST SEQUENCE 

s INCORRECT TEST SEQUENCE 
sVERIFY STACK DECRIMENT 

s INCORRECT STACK DECRIMENT 
sVERFIFY STACK WAS LOADED 


sVERIFY RETURN ADDRESS 
s;BRANCH IF GOOD 


;CPU ERROR 
sMODE 67 FAILED 


2 
(R6),#152525 
2s 


R4, @MJR27B 
MJR37A 


@OSEQ, 04 
2s 
@OSPSJ,RE 
2s 
(R6), #1 
2s 


R4, @MJREA 
MJR77A 





sUPDATE SEQUENCER 
sRESET STACK 
sSETUP R4 DATA 
sJSR MODE 77 


sDATA FOR MODE 77 JUMP 


s;VERIFY TEST SEQUENCE 

s INCORRECT TEST SEQUENCE 
sVERIFY STACK DECRIMENT 

s INCORRECT STACK DECRIMENT 
sVERFIFY STACK WAS LOADED 


sVERIFY RETURN ADDRESS 
s;BRANCH IF GOOD 


;CPU ERROR 
sMODE 37 FAILED 





sUPDATE SEQUENCER 
sRELOAD STACK 
;SETUP R4 TEST DATA 
sJSR MODE 6 


sVERIFY TEST SEQUENCE 

s INCORRECT TEST SEQUENCE 
sVERIFY STACK DECRIMENT 

s INCORRECT STACK DECRIMENT 
sVERFIFY STACK WAS LOADED 


sVERIFY RETURN ADDRESS 
;BRANCH IF GOOD 


eae 











| - - - a 


L6 
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| 
ol 


SEQ 0076 


at 014774 104001 
sey 014776 


3818 014776 013706 


022703 
001401 
104001 


010601 
012705 
010506 
000206 
104001 


021506 
001401 
104001 


010106 


012737 


3865 015110 
3866 015112 
3867 015116 
3868 015122 


3870 015124 
3871 015126 
3872 015132 
3873 015136 


003074 


001000 
123456 
015022 


123456 


015046 


040000 
177777 
177777 


000000 


125252 
125252 


052525 
052525 


2s: 


RTS1: 


RTS6: 


1$: 


RTSE: 
TSMMUO ; 


177776 


1$: 


2s: 


3$: 


| conase KDJ11-B CLUSTER DIAG. d 
*ee¢eeee¢¢¢e DOUBLE OPERAND TESTS «eecececececeeses 


ERROR 


MOV 


ba RTS AND RTS R6 


+1 


SPS ,R6 


@STBOT ,R6 


#123456, -CR6) 


@RTS1,R3 
R3 
+1 


$123456,R3 
RTS6 
+1 


R6,R1 

#1$,RS5 
RS ,R6 

R6 


+1 


CRS) ,R6 
RTSE 
+1 


R1,R6 


#40000 , 80177 
#177777, R6 
0177777, R6 
1 


+1 
#125252 ,R6 
atari 


+1 
#52525 ,R6 
+ ete 


;CPU ERROR 
sMODE 77 FAILED 


sRESET STACK 


s INSURE VALID STACK 
sSETUP TEST REGISTER 
sSETUP TEST PC 
3#*#TEST INSTRUCTION 
;CPU ERROR 
s INCORRECT PC ON RTS 


sBRANCH IF GOOD 
sCPU ERROR 
sREGISTER CONTENTS INCORRECT 


TEST CHECKS AN UN-TESTED PLA TERM 


sSAVE STACK IN R1 
sMOVE EXPECTED RETURN ADDR TO RS 
sMOVE RETURN ADDR TO R6 


a 
;CPU ERROR 
sERROR! RTS NOT EXECUTED 
sIS R6=31506? 
;IF IT IS THEN GO TO END OF TEST 
;CPU ERROR 
sERROR! WRONG ADDR IN R6 
sRESTORE STACK 


AND TEST ee eS AND USER STACKS 


sSET PS TO SUP MODE 
sINIT SUP STACK TO ALL ONES 
SARE ALL BITS SET 
sYES GO ON 
sNO GO TO ERROR 
;CPU ERROR 
sSET SUP STACK TO ALL ZEROES 
sARE ALL BITS CLEARED 
sYES GO ON 
sNO GO TO ERROR 
sCPU ERROR 
sSET SUP STACK TO ALTERNATING PATTERN 
sIS SUP SP CORRECT 
YES GO ON 
sNO GO TO ERROR 
;CPU ERROR 
sSET SUP STACK TO ALTERNATING PATTERN 
sIS SUP SP CORRECT 
sYES GO ON 
sNO GO TO ERROR 





<< —— 





COKDADO KDJ11-B8 CLUSTER DIAG. 
*eeeeeeeee¢¢ DOUBLE OPERAND TESTS seeceeceeseecesess 


3875 
3876 


015140 
015142 
015146 
015154 
015160 
015164 


015166 
015170 
015172 
015176 


015212 
015214 


015302 
015304 
015312 
015316 


015320 
015322 
015326 
015332 


015334 
015336 
015336 


015342 
015350 
015354 
015360 


015362 
015364 


104001 
012706 
012737 
012706 
022706 
001401 


104001 
005006 
022706 
001401 


104001 
012706 
022706 
001401 


104001 
012706 
022706 
001401 


012737 
004767 
022716 
001401 


104001 
012737 


000700 
140000 
177777 
177777 


000000 


125252 
125252 


052525 
052525 


177776 
001000 


MACRO YOS.02 


177776 


177776 


177776 


177776 


5$: 


6$: 


7$: 


RET1: 


1$: 


2$: 


3$: 


5 
CHECK: 


RET2: 


Neen mene nn nnn SSS sss sss stent 
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SEQ 0077 
ERROR +1 ;CPU ERROR 
MOV #700 ,R6 sSETUP SUP SP 
MOV #140000 , 80177776 sSET PS TO USER MODE 
MOV #177777 ,R6 sINIT USER STACK TO ALL ONES 
CMP 4177777 ,R6 sARE ALL BITS SET 
BEQ 5$ sYES GO ON 
sNO GO TO ERROR 
ERROR +1 sCPU ERROR 
CLR R6 sSET USER STACK TO ALL ZEROES 
CMP 00 ,R6 sARE ALL BITS CLEARED 
BEQ 6$ sYES GO ON 
sNO GO TO ERROR 
ERROR +1 sCPU ERROR 
MOV #125252 ,R6 ;SET USER STACK TO ALTERNATING PATTERN 
CMP #125252 ,R6 3IS USER SP CORRECT 
BEQ 7$ ;YES GO ON 
sNO GO TO ERROR 
ERROR o1 ;CPU ERROR 
MOV #52525 ,R6 ;SET USER STACK TO ALTERNATING PATTERN 
CMP #52525 ,R6 :IS USER SP CORRECT 
BEQ 8$ sYES GO ON 
sNO GO TO ERROR 
ERROR +1 ;CPU ERROR 
MOV #600 ,R6 ;SETUP USER SP 
CLR 80177776 sSET PS TO KER MODE 
MOV #STBOT ,R6 sSETUP KERNEL SP 
CLR 8700 sCLEAR FIRST WORDS OF SUP, KER, AND USE STACKS 
CLR 89600 3 
CLR aeSTBOT 3 
JSR PC, CHECK s TEST KER, SUP, AND USE STACKS 
MOV #40000, 80177776 ;SET PSW TO SUP MODE 
CMP #700, R6 :IS SUP SP CORRECT 
BEQ i$ sYES GO ON 
sNO GO TO ERROR 
ERROR ol PF ERROR 
MOV #140000 , 80177776 ;SET PSW TO USE MODE 
CMP #600 ,R6 :I1S USE SP CORRECT 
BEQ 2s ;YES GO ON 
;NO GO TO ERROR 
ERROR +1 ;CPU ERROR 
CLR 80177776 sSET PSW TO KER MODE 
CMP #STBOT ,R6 31S KER SP CORRECT 
BEQ 3$ ;YES GO ON 
= sNO GO TO ERROR 
ERROR o1 ;CPU ERROR 
JMP MTSO 
3 
sROUTINE TO CHECK STACKS AFTER TWO RTS STATEMENTS 
MOV #40000 , 84177776 sSET PSW TO SUP MODE 
JSR PC,CHECK1 ; TEST SUP, KER, AND USE STACKS 
CMP #0,(SP) 31S SUP STACK CLEARED 
BEQ 1$ sYES GO ON 
;NO GO TO ERROR 
ERROR ol F ERROR 
MOV #140000 , 80177776 ;SET PSW TO USE MODE 


140000 177776 18%: 
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eeeeeeeeeeee DOUBLE OPERAND TESTS sesecseesecessese 








N6 


3932 015372 022716 000000 CMP #0, (SP) sIS USE STACK CLEARED 
3933 015376 001401 BEQ 2s sYES GO ON 
3934 sNO GO TO ERROR 
3935 015400 104001 ERROR +1 sCPU ERROR 
3936 015402 005037 177776 2s: CLR 90177776 sSET PSW TO KER MODE 
3937 015406 022716 015266 CMP @RET1, (SP) sDOES KER STACK HAVE CORRECT DATA 
3938 015412 001401 BEQ 3$ sYES GO ON 
3939 sNO GO TO ERROR 
3940 015414 104001 ERROR +1 sCPU ERROR 
ooas 015416 000207 3%: RTS PC sRETURN 
; 
3943 sROUTINE TO CHECK STACKS AFTER ONE RTS 


5 
3945 015420 012737 140000 177776 CHECK1: - 


#140000 , 80177776 sSET PSW TO USE MODE 


3946 015426 004767 000044 J PC ,CHECK2 ; TEST KER, SUP, AND USE STACKS 
3947 015432 022716 000000 RET3: CMP #0,(SP) sIS USE STACK CLEARED 
3948 015436 001401 BEQ i$ sYES GO ON 
3949 sNO GO TO ERROR 
3950 015440 104001 ERROR +1 ;CPU ERROR 
3951 015442 005037 177776 1%: CLR 80177776 sSET PSW TO KER MODE 
3952 015446 022716 015266 CMP @RET1, (SP) sIS KER STACK CORRECT 
3953 015452 001401 BEQ 2s sYES GO ON 
3954 sNO GO TO ERROR 
3955 015454 104001 ERROR +1 ;CPU ERROR 
3956 015456 012737 040000 177776 23: MOV #40000 , 80177776 sSET PSW TO SUP MODE 
3957 015464 022716 015354 CMP @RET2, (SP) sIS SUP STACK CORRECT 
3958 015470 001401 BEQ 3$ sYES GO ON 
3959 sNO GO TO ERROR 
3960 015472 104001 ERROR +1 ;CPU ERROR 
peek 015474 000207 3%: RTS PC sRETURN 
2 3 
3963 sROUTINE TO CHECK STACKS AFTER ZERO RTS 
3964 3 
3965 015476 022716 015432 CHECK2: CMP @RET3, CSP) sIS USE STACK CORRECT 
3966 015502 001401 BEQ i$ sYES GO ON 
3967 ;NO GO TO ERROR 
3968 015504 104001 ERROR ol sCPU ERROR 
3969 015506 012737 040000 177776 1%: MOV #40000 , 80177776 sSET PSW TO SUP MODE 
3970 015514 022716 015354 CMP @RET2, (SP) 31S SUP STACK CORRECT 
3971 015520 001401 BEQ 2s sYES GO ON 
3972 sNO GO TO ERROR 
3973 015522 104001 ERROR ol :CPU ERROR 
3974 015524 005037 177776 2$:._. CLR 80177776 3SET PSW TO KER MODE 
3975 015530 022716 015266 CMP @RET1, (CSP) sIS KER STACK CORRECT 
3976 015534 001401 BEQ 3$ sYES GO ON 
3977 sNO GO TO ERROR 
3978 015536 104001 ERROR ol sCPU ERROR 
3979 015540 012737 140000 i77776 3%: MOV #140000 , 80177776 sSET PSW TO USE MODE 
‘ goer 015546 000207 RTS PC sRETURN 
3 
3982 015550 MTSO: 
3985 015550 MMVCC: 
3986 
3987 3 TEST MOV CONDITION CODES - #s0- 
3988 015550 000277 scc 3 
3989 015552 0002464 CLZ :CC=1011 
3990 015554 012704 000000 MOV 00 ,R4 3CC=0101, R4=0 















B/ 
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eeeeeeeeeees DOUBLE OPERAND TESTS eeaececvecceseces 


3991 015560 100403 BMI 1$ sERROR IF N FLAG 
3992 015562 102402 BVS 1$ sERROR IF V FLAG SET 
3993 015564 103001 BCC 1$ sERROR IF C FLAG CLEAR 
3994 015566 001401 : BEQ 2s sSKIP IF Z FLAG SET 
3995 sCC SHOULD=0101 

3996 015570 104001 1$: ERROR +1 sCPU ERROR 

3997 015572 000277 2s: scc 

3998 015574 000251 -WORD 251 sCC#0110 

3999 015576 012704 100000 MOV #100000 ,R4 sR4=100000, CC=1000 
4000 015602 001403 BEQ 3$ sERROR IF Z SET 

4001 015604 102402 BVS 3$ sERROR IF V SET 
4002 015606 103401 BCS 3$ sERROR IF C SET 
4003 015610 100401 BMI 4s sEXIT IF N SET 

4004 015612 104001 3%: ERROR +1 ;CPU ERROR 

4005 sCC SHOULD= 1000 

4006 015614 4$: 

4007 

4008 

4011 015614 MBTCC: 

4012 

4013 ; TEST BIT CONDITION CODES - ##0- 

4014 015614 005004 CLR R4 

4015 015616 005104 COM R4 3R4=2-1 

4016 015620 000277 scc ; 

4017 015622 000244 CLZ 3CC=#1011 

4018 015624 032704 000000 BIT #0 ,R4 3CC=0101 

4019 015630 100403 BMI 1$ sERROR IF N FLAG 
4020 015632 102402 BVS 1$ sERROR IF V FLAG SET 
4021 015634 103001 BCC 1$ sERROR IF C FLAG CLEAR 
4022 015636 001401 BEQ 2s s;SKIP IF Z FLAG SET 
4023 015640 104001 1$: ERROR +1 ;CPU ERROR 

4024 sCC SHOULD=0101 

4025 015642 000277 2$: scc 

4026 015644 000251 -WORD 251 3;CC=0110 

4027 015646 032704 100000 BIT #100000 ,R4 :CC=1000 

4028 015652 001403 BEQ 3$ sERROR IF Z SET 
4029 015654 102402 BVS 3$ sERROR IF V SET 
4030 015656 103401 BCS 3$ sERROR IF C SET 

4031 015660 100401 BMI 4s sEXIT IF N SET 

4032 015662 104001 3$: ERROR +1 ;CPU ERROR 

4033 sCC SHOULD= 1000 

4034 015664 4$: 

4035 

4036 

4039 015664 MBCCC: 

4040 

4041 ; TEST BIC CONDITION CODES - ##0- 

4042 015664 005004 CLR RG 

4043 015666 005104 COM R4 3R4=-1 

4044 015670 000277 scc ; 

4045 015672 000244 CLZ 3CC=1011 

4046 015674 042704 177777 BIC 0177777 ,R4 3CC=0101 

4047 015700 100403 BMI 1$ sERROR IF N FLAG 
4048 015702 102402 BVS 1$ sERROR IF V FLAG SET 
4049 015704 103001 BCC 1$ sERROR IF C FLAG CLEAR 
4050 015706 001401 BEQ es sSKIP IF Z FLAG SET 


4051 015710 104001 1$: ERROR +1 ;CPU ERROR 








re ee emma 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeeeeses DOUBLE OPERAND TESTS sesececececececes 


4052 
4053 
40 


015712 


S4 015714 


015716 
015720 
015724 
015726 
015730 
015732 
015734 


015736 


015736 


015736 
015740 
015742 
015744 
015750 
015752 
015754 
015756 
015760 


015762 
015764 


016004 


016004 
016010 
016012 
016014 
016016 
016020 
016022 
016024 
016026 


016030 
016032 
016034 
016036 
016040 


012704 


077777 


100076 


077777 


MACRO YOS.02 


2$: 


3$: 
4$: 


1$: 
2s: 


3$: 
4$: 


1$: 
2$: 





C7 
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TEST BIS CONDITION CODES 
CLR R4 


R4 


251 
977777 ,R4 


;CC SHOULD=0101 
3R4=-1 


:CC=0110 
:CC=#1000 
sERROR IF Z SET 
sERROR IF V SET 
sERROR IF C SET 
sEXIT IF N SET 
;CPU ERROR 
;CC SHOULD= 1000 


;R4=0 


3CC=1001 
3R4=0, CC=0101 
sERROR IF MINUS 
sERROR IF V SET 
sERROR IF C CLEAR 
;BRANCH IF GOOD 
;CPU ERROR 
;BIS CC FAILED 


3CC=1110 
3R4=100076, CC=1000 
sERROR IF Z SET 
sERROR IF V SET 
sERROR IF C SET 
s;BRANCH IF GOOD 

;CPU ERROR 

sBAD BIS CC 


TEST DEC, INC CONDITION CODES 


#77777,R4 


3R4=77777 


:CC=0001 
3R4=100000, CC=0011 
sERROR IF ZERO 
sERROR IF POSITIVE 
sERROR IF V CLEAR 
;BRANCH IF GOOD 

;CPU ERROR 

;INC FAILED 


sR4=100001, CC=1000 
sERROR IF C SET 
sERROR IF V SET 
3R4=100000, CC=1000 








SEQ 0080 











———- 7 


D7 
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SEQ 0081 
eeeeeeeeeeee DOUBLE OPERAND TESTS eececcececccecese 
4113 016042 102410 BVS 3$ sERROR IF V SET 
4114 016044 103407 BCS 3$ sERROR IF C SET 
4115 016046 000277 scc 3 
4116 016050 000252 -WORD 252 :CC=0101 
4117 016052 005304 DEC R4 3R4=277777, CC#1011 
4118 016054 001403 BEQ 3$ sERROR IF Z SET 
4119 016056 102002 BVC 3$ sERROR IF V CLEAR 
4120 016060 103001 BCC 3$ sERROR IF C CLEAR 
4121 016062 100001 BPL 4$ ;BRANCH IF GOOD 
4122 016064 104001 3$: ERROR ol ;CPU ERROR 
4123 ;BAD CC 
4124 016066 4$: 
4125 
4126 
4136 016066 MCTSCC: 
4137 
4138 3 TEST CLR, TST, SWAB CONDITION CODES 
4139 PETIT ITT T Titi ri tii iit itt titi tt TTT TTT TT TTT TTT TTT TT TTTTTTTiTiTTT Ty 
30100 - #*#00 - «00 
4140 016066 000277 scc 
4141 016070 000244 CLZ ;CC=1011 
4142 016072 005004 CLR R4 :R4=0, CC=0100 
4143 016074 100403 BMI i$ sERROR IF MINUS 
4144 016076 102402 BVS 1$ ;ERROR IF V SET 
4145 016100 103401 BCS i$ sERROR IF C SET 
4146 016102 001401 BEQ e? ;BRANCH IF GOOD 
4147 016104 104001 i$: ERROR ol ;CPU ERROR 
4148 ;BAD CC ON CLR 
4149 016106 005104 2$: COM R4 3R4=-1 
4150 016110 000277 scc 3CC=1111 
4151 016112 005704 TST R4 ;CC=1000 
4152 016114 001403 BEQ 3$ sERROR IF Z SET 
4153 016116 102402 BVS 3$ sERROR IF V SET 
4154 016120 103401 BCS 3$ sERROR IF C SET 
4155 016122 100401 BMI 4$ ;BRANCH IF GOOD 
4156 016124 104001 3$: ERROR +1 ;CPU ERROR 
4157 :BAD TST CC 
4158 016126 000277 4$: scc ;CC=1111 
4159 016130 000304 SWAB R4 ;CC=1000 
4160 016132 102402 BVS 5$ sERROR IF V SET 
4161 016134 103401 acs S$ sERROR IF C SET 
4162 016136 100401 BMI 6$ ;BRANCH IF GOOD 
4163 016140 104001 S$: ERROR ol ;CPU ERROR 
4164 :BAD SWAB CC 
4165 016142 6$: s . 
4166 
4167 
4170 016142 MADCC: 
4171 
4172 ; TEST ADD CONDITION CODES 
4173 016142 012704 077777 MOV #77777 ,R4 3;R4=77777 
4174 016146 012701 000001 MOV #1,R1 3;Ri=1 
4175 016152 000257 Coe :CC=0000 
4176 016154 060401 ADD R4,R1 377777 + 1 = 100000 IN Ri 
4177 016156 102003 BVC i$ ;ERROR IF V CLEAR 
4178 016160 103402 BCS i$ ;ERROR IF CARRY 
4179 016162 001401 BEQ i$ sERROR IF Z SET 








— 











Fi ee = 
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eeeeeeeeeees DOUBLE OPERAND TESTS «eececececacescene 


SEQ 0082 





4180 016164 100401 BMI 2$ s;BRANCH IF GOOD 
4181 016166 104001 1$: ERROR +1 ;CPU ERROR 
4182 sCC SHOULD =1010 
4183 016170 005204 2s: INC R4 sR4=100000 
4184 016172 060401 ADD R4,R1 3100000 + 100000 = 0 IN R1 
4185 016174 102002 BvC $ sERROR IF V CLEAR 
4186 016176 103001 BCC 3$ sERROR IF CARRY CLEAR 
4187 016200 001401 BEQ 4$ ;BRANCH IF GOOD 
4188 016202 104001 3$: ERROR +1 ;CPU ERROR 
4189 :CC SHOULD = 0111 
4190 016204 060401 4$: ADD R4,R1 30 + 100000 = 100000 
4191 016206 102402 BVS $ sERROR IF V SET 
4192 016210 103401 BCS S$ sERROR IF SET 
4193 016212 100401 BMI 6$ ;BRANCH IF GOOD 
4194 016214 104001 S$: ERROR +1 ;CPU ERROR 
4195 s;CC SHOULD = 1000 
4196 016216 6$: 
4197 
4198 
4201 016216 MACCC 
4202 
4203 ; TEST ADC CONDITION CODES 
4204 016216 012704 177777 MOV #177777,R4 3R42177777 
4205 016222 000277 scc ; sCC=1111 
4206 016224 005504 AOC R4 3R4=0 CC=0101 
4207 016226 100403 BMI i$ sERROR IF MINUS 
4208 016230 102402 BVS 1$ sERROR IF V SET 
4209 016232 103001 BCC 1$ sERROR IF C SET 
4210 016234 001401 BEQ 2s ;BRANCH IF GOOD 
4211 016236 104001 1$: ERROR +1 :CPU ERROR 
4212 ;BAD ADC 
4213 016240 012704 077777 2s: MOV #077777 ,R4 3R4=077777 
4214 016244 000277 scc ; 
4215 016246 000242 CLV 3CC=1101 
4216 016250 005504 ADC R4 +R4=100000 CC=1010 
4217 016252 100003 BPL 3$ sERROR IF PLUS 
4218 016254 103402 BCS 3$ sERROR IF C SET 
4219 016256 001401 BEQ 3$ sERROR IF ZERO 
4220 016260 102401 BVS as ;BRANCH IF GOOD 
4221 016262 104001 3$: ERROR +1 ;CPU ERROR 
4222 ;BAD ADC 
4223 016264 000277 4$: scc sCC=1111 
4224 016266 005504 ADC R4 sR4=100000 CC=1000 
4225 016270 102402 BVS S$ sERROR IF V SET 
4226 016272 103401 BCS S$ sERROR IF C SET 
4227 016274 100401 BMI o$ ;BRANCH IF GOOD 
4228 016276 104001 S$: ERROR +1 ;CPU ERROR 
4229 ;BAD ADC CC SHOULD= 1000 
4230 016300 6$: 
4231 
4232 
4235 016300 MNCCCC 
4236 
4237 ; TEST NEG, CMP, COM CONDITION CODES 
4238 016300 012704 077777 MOV #0777 77, R4 3R4=77777 
4239 016304 000257 ccc :CC=0000 
| 4240 016306 005404 NEG R4 3R4=100001 CC=1001 
' 
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SEQ 0083 
*eeeeeeeee¢e DOUBLE OPERAND TESTS eeaceaceecececeae 
4241 016310 102403 BVS i$ sERROR IF V SET 
4242 016312 103002 BCC i$ sERROR IF C CLEAR 
4243 016314 001401 BEQ i$ sERROR IF Z SET 
4244 016316 100401 BMI 2s ;BRANCH IF GOOD 
4245 016320 104001 1$: ERROR ol ;CPU ERROR 
4246 ;BAD NEGATE 
4247 016322 005004 2s: CLR R4 ;R4=0 
4248 016324 000257 ccc ;CC=0000 
4249 016326 005404 NEG R4 :CC=0101 
4250 016330 100403 BMI 3$ sERROR IF N SET 
4251 016332 103402 BCS 3$ sERROR IF C SET 
4252 016334 102401 BVS 3$ ;ERROR IF V SET 
4253 016336 001401 BEQ 4$ ;BRANCH IF GOOD 
4254 016340 104001 3$: ERROR +1 ;CPU ERROR 
4255 ;BAD NEG 
4256 016342 012704 077777 4$: MOV #77777 ,R4 3R4=77777 
4257 016346 012701 170000 MOV #170000,R1i 3R1=170000 
4258 016352 000257 ccc :CC=0000 
4259 016354 020401 CMP R4,R1 377777 - 170000 = 107777 CC= 1011 
4260 016356 102003 BVC S$ ;ERROR IF V CLEAR 
4261 016360 103002 BCC 5$ sERROR IF C CLEAR 
4262 016362 001401 BEQ 5$ sERROR IF ZERO 
4263 016364 100401 BMI 6$ ;BRANCH IF GOOD 
4264 016366 104001 S$: ERROR ol ;CPU ERROR 
4265 :BAD CMP 
4266 016370 000257 6$: ccc 
4267 016372 005101 COM Ri 3R1=7777 
4268 016374 100403 BMI 7$ ;ERROR IF MINUS 
4269 016376 001402 BEQ 7$ sERROR IF ZERO 
4270 016400 103001 BCC 7$ sERROR IF CARRY 
4271 016402 102001 BVC 8$ ;BRANCH IF GOOD 
4272 016404 104001 7$: ERROR +1 ;CPU ERROR 
4273 ;BAD COM 
4274 016406 000277 8s scc 
4275 016410 005101 COM R1 
4276 016412 100401 BMI 10$ :BRANCH IF GOOD 
4277 016414 104001 9$: ERROR oil ;CPU ERROR 
4278 ;BAD COM 
4279 016416 10$ 
4280 
4281 
4284 016416 MSBCC: 
4285 
4286 ; TEST SUB CONDITION CODES 
4287 016416 012704 077775 MOV #77775,R4 3R4=77775 
4288 016422 000257 ccc :CC=0000 
4289 016424 162704 137757 SUB #137757,R4 377775 - 137757 
4290 ;TRY TO CAUSE AN ARITHMETIC OVERFLOW 
4291 016430 102003 BVC 1$ sERROR IF V CLEAR 
4292 016432 100002 BPL i$ sERROR IF RESULT IS POSITIVE. 
4293 016434 001401 BEG i$ sERROR IF 2Z SET 
4294 016436 103401 BCS 2s ;BRANCH IF GOOD 
4295 016440 104001 1$: ERROR +1 ;CPU ERROR 
4296 ;BAD SUBTRACT 
4297 016442 012704 000005 2$: MOV #5,R4 3;R4=5 
4298 016446 000257 ccc :CC=0000 


000012 SUB #12,R4 35-12=-5 AND SETS CARRY 


y~Y 
'w 
wo 
wo 
°o 
rar 
z 
vi 
oS 
~ 
o 
Ls) 
~ 
= 








ae ee et 


— 
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SEQ 0084 

¢eeeeeee¢e0e DOUBLE OPERAND TESTS «eenecacecacacene 

4300 016454 103003 BCC 3$ sERROR IF CARRY CLEAR 

4301 016456 102402 BVS 3$ sERROR IF OVERFLOW 

4302 016460 001401 BEQ 3$ sERROR IF ZERO 

4303 016462 100401 BMI 4$ ;BRANCH IF GOOD 

4304 016464 104001 3$: ERROR o1 ;CPU ERROR 

4305 ;SUBTRACT FAILED 

4306 016466 4$: 

4307 

4308 

4311 016466 MSBCCC: 

4312 

4313 3 TEST SBC CONDITION CODES 

4314 016466 012704 100000 MOV #100000 ,R4 3R4=100000 

4315 016472 000257 ccc 3C= 

4316 016474 005604 SBC R4 ;TRY TO SET V 

4317 016476 100006 BPL 1$ ;ERROR IF N CLEAR 

4318 016500 102405 BvSs i$ ; ERROR IF V SET CHAVENT SET C YET) 

4319 016502 000261 SEC :CC SHOULD = 1001 

4320 016504 005604 SBC R4 ;TRY AGAIN TO SET V 

4321 016506 102002 BYC 1$ ;ERROR IF V CLEAR 

4322 016510 103401 BCS i$ sERROR IF C SET 

4323 016512 100001 BPL 2s ;BRANCH IF GOOD 

4324 016514 104001 i$: ERROR ‘+1 ;CPU ERROR 

4325 :SBC FAILED 

4326 016516 005004 2s: CLR R4 3R4=0 

4327 016520 000277 scc 

4328 016522 000241 CLC ;CC=1110 

4329 016524 005604 SBC R4 ;TRY TO CAUSE C FLAG FAILURE 

4330 016526 103410 BCS 3$ sERROR IF C SET 

4331 016530 102407 BVS 3$ sERROR IF V SET 

4332 016532 001006 BNE 3$ sERROR IF NOT ZERO 

4333 016534 000261 SEC ;SET CARRY 

4334 016536 005604 SBC R4 sNOW, O - CARRY = 177777 

4335 016540 103003 BCC 3$ sERROR IF CARRY CLEAR 

4336 016542 102402 BVS 3$ sERROR IF V SET 

4337 016544 00:401 BEQ 3$ sERROR IF ZERO 

4338 016546 100401 BMI 4$ ;BRANCH IF GOOD 

4339 016550 104001 3$: ERROR +1 ;CPU ERROR 

4340 :SBC FAILED 

4341 016552 4$: 

4342 

4343 

4346 016552 MRLCC: 

4347 

4348 . F TEST ROL CONDITION CODES 

4349 016552 012704 060000 MOV #60000 ,R4 3R4= 0110000000000000 

4350 016556 000257 Cce :CC=0000 

4351 016560 006104 ROL R4 ;R4= 11 

4352 016562 103402 BCS 1$ sERROR IF CARRY 

4353 016564 102001 BVC 1$ sERROR IF V CLEAR 

4354 016566 100401 BMI 2s ;BRANCH IF GOOD 

4355 016570 104001 1$: ERROR o1 ;CPU ERROR 

4356 ;sROL FAILED 

4357 016572 006104 2$: ROL R4 :R4= 1000000000000000 

4358 016574 103002 BCC 3$ sERROR IF CARRY CLEAR 

4359 016576 102401 BVS 3$ sERROR IF V SET 


| 4360 016600 100401 BMI 4s sBRANCH IF GOOD 
| 








i 
| H7 
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SEQ 

*eeeeeeeee0e% DOUBLE OPERAND TESTS «eaccececeuceacen —_— 
4361 016602 104001 3$: ERROR +1 ;CPU ERROR 
4362 :BAD ROL 
4363 016604 006104 4$: ROL R4 ;R4 = 
4364 016606 102003 BVC 5$ sERROR IF V CLEAR 
4365 016610 103002 , BCC 5$ ;ERROR IF C CLEAR 
4366 016612 100401 BMI 5$ sERROR IF MINUS 
4367 016614 001001 BNE 6$ ;BRANCH IF GOOD 
4368 016616 104001 S$: ERROR +1 ;CPU ERROR 
4369 :BAD ROL 
4370 016620 006104 6$: ROL R4 +R4=000000000000011 
4371 016622 102402 BVS 7$ sERROR IF V SET 
4372 016624 103401 BCS 7$ sERROR IF C SET 
4373 016626 100001 BPL 8$ ;BRANCH IF GOOD 
4374 016630 104001 7$: ERROR +1 ;CPU ERROR 
4375 ;BAD ROL 
4376 016632 8$ 
4377 
4378 
4381 016632 MRRCC: 
4382 
4383 3 TEST ROR CONDITION CODES 
4384 016632 012704 000003 MOV #3,R4 :R4= 0000000000000011 
4385 016636 000257 ccc :CC= 0000 
4386 016640 006004 ROR R4 :R4= 0000000000000001 
4387 016642 103002 ~ BCC 1$ sERROR IF NO CARRY 
4388 016644 102001 BVC i$ ;ERROR IF V CLEAR 
4389 016646 100001 BPL 2$ ;BRANCH IF GOOD 
4390 016650 104001 1$: ERROR +1 ;CPU ERROR 
4391 ;ROR FAILED 
4392 016652 006004 2$: ROR R4 sR4= 1000000000000000 
4393 016654 103002 BCC 3$ sERROR IF CARRY CLEAR 
4394 016656 102401 BvS 3$ sERROR IF V SET 
4395 016660 100401 BMI 4$ ._sBRANCH IF GOOD 
4396 016662 104001 3$: ERROR +1 ;CPU ERROR 
4397 ;BAD ROR 
4398 016664 006004 4$: ROR R4 :R4 = 1100000000000000 
4399 016666 102002 BVC 5$ sERROR IF V 
4400 016670 103401 BCS 5$ sERROR IF C SET 
4401 016672 100401 BMI 6$ ;BRANCH IF GOOD 
4402 016674 104001 5$: ERROR ol ;CPU ERROR 
4403 ;BAD ROR 
4404 016676 006004 6$: ROR R4 :R4= 011000000000000 
4405 016700 102402 BVS 7$ sERROR IF V SET 
4406 016702 103401 BCS 7$ sERROR IF C SET 
4407 016704 100001 BPL 8$ :BRANCH IF GOOD 
4408 016706 104001 7$; ERROR +1 ;CPU ERROR 
4409 ;BAD ROR 
4410 016710 8$: 
4411 
4412 
4415 016710 XCBIT: 
4424 
4425 3 TEST C BIT WITH ROR/ROL 
4426 5 EERE ARERR EEE ERE EERE EE EEE EEE EERE REESE EEEEEEEEEEEEE EEE EEE EE 


sTHIS TEST IS TO CHECK FOR A SLOW C BIT PATH INTERNAL TO THE J11 DATA CHIP 
s;PROBLEM IS ONLY EXHIBITED ON EARLY MASK SETS (1590 AND 1593) 
| 4427 016710 012701 052525 MOV - #52525,R1 sINIT R1 WITH DATA 











COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 
**ee¢ee¢e00e DOUBLE OPERAND TESTS «eaeeeecaesaececace 


4428 016714 000241 CLC 
4429 016716 006001 ROR 
4430 016720 006001 ROR 
4431 016722 006001 ROR 
4432 016724 103401 BCS 
4433 016726 104001 ERROR 
4434 016730 022701 045252 1$: CMP 
4435 016734 001401 BEQ 
4436 016736 104001 ERROR 
4437 016740 012701 125252 2$: MOV 
4438 016744 000241 CLC 
4439 016746 006101 ROL 
4440 016750 006101 ROL 
4441 016752 006101 ROL 
4442 016754 103401 BCS 
4443 016756 104001 ERROR 
4444 016760 022701 052522 3$: CMP 
4445 016764 001401 BEQ 
4446 016766 104001 ERROR 
4447 016770 4$: 
4449 
4451 016770 MALCC: 
4452 
4453 ; 
4454 016770 012704 060000 MOV 
4455 016774 000257 ccc 
4456 016776 006304 ASL 
4457 017000 103402 BCS 
4458 017002 102001 BVC 
4459 017004 100401 BMI 
reve 017006 104001 1$ ERROR 
446 
4462 017010 006304 2$ ASL 
4463 017012 103002 BCC 
4464 017014 102401 BVS 
4465 017016 100401 BMI 
oe 017020 104001 3$ ERROR 
846 
4468 017022 006304 4$ ASL 
4469 017024 102003 BVC 
4470 017026 103002 BCC 
4471 017030 100401 BMI 
4472 017032 001401 BEQ 
rebl 017034 104001 5$ ERROR 
4474 
4475 017036 006304 6$ ASL 
4476 017040 102402 BVS 
4477 017042 103401 BCS 
4478 017044 100001 BPL 
4479 017046 104001 7$ ERROR 
4480 
4481 017050 8$: 
4482 
4485 017050 MARCC: 
4486 
4487 ; 

017050 012704 000341 MOV 


+ 
ey 
oe 
@ 





17 


Wednesday 27-Feb-85 17:55 Page 14-67 


+ 
#45252,R1 
2$ 


+1 
#125252 ,R1 


+1 
#052522, Ri 
4$ 
+1 


TEST ASL CONDITION CODES 


#60000 ,R4 


TEST ASR CONDITION CODES 


#341,R4 





;CPU 


;CPU 


;CPU 


;CPU 


;CPU 
ASL 


;CPU 
;BAD 


;CPU 
;BAD 


;CPU 
;BAD 


SEQ 0086 


;CLEAR THE C BIT 
sR1=025252, C BIT =1 
#R1=112525, C BIT =0 
#R1=045252, C BIT =1 
s;BRANCH IF CARRY BIT SET 
ERROR 
sIS DATA IN R1 = TO EXPECTED DATA? 
;BRANCH IF YES 
ERROR 
sSET UP R1 
s;CLEAR THE CARRY BIT 
sR1*052524, C BIT =1 
sR1=125251, C BIT =0 
sR1=052S22, C BIT =1 
;BRANCH IF CARRY SET 
ERROR 
sIS DATA IN R1 = TO EXPECTED DATA? 


ERROR 


:R4= 0110000000000000 
;CC=0000 
3C=0 R4= 1100006000000000 
sERROR IF CARRY 
;ERROR IF V CLEAR 
;BRANCH IF GOOD 
ERROR 
FAILED 
:C=1 R4= 1000000000000000 
sERROR IF CARRY CLEAR 
;ERROR IF V SET 
;BRANCH IF GOOD 
ERROR . 
ASL 
;C=1 R4= 
sERROR IF V CLEAR 
sERROR IF C CLEAR 
;ERROR IF MINUS 
;BRANCH IF GOOD 
ERROR 
ASL 
3C=0 R4= 000000000000000 
sERROR IF V SET 
sERROR IF C SET 
;BRANCH IF GOOD 
ERROR 
ASL 


sR4= 0000000011100001 











rf - - — = ee +e 


| J7 
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SEQ 0087 

*eeeeeee0e0¢ DOUBLE OPERAND TESTS seeeeeeeceeceeeasn 

4489 017054 000257 ccc :CC=0000 

4490 017056 006204 ASR R4 3R4= 0000000001110000 

4491 017060 103002 BCC i$ sERROR IF NO CARRY 

4492 017062 102001 BVC 1$ sERROR IF V CLEAR 

4493 017064 100001 BPL 2$ ;BRANCH IF GOOD 

4494 017066 104001 1$: ERROR +1 ;CPU ERROR 

4495 :ASR FAILED 

4496 017070 052704 100001 2$: BIS #100001 ,R4 sR4= 1000000001110001 

4497 017074 006204 ASR R4 sR4= 1100000000111000 

4498 017076 103002 BCC 3$ sERROR IF CARRY CLEAR 

4499 017100 102401 BVS 3$ sERROR IF V SET 

4500 017102 100401 BMI 4$ ;BRANCH IF GOOD 

4501 017104 104001 3$: ERROR o1 ;CPU ERROR 

4502 ;BAD ASR 

4503 017106 006204 4$: ASR R4 sR4= 1110000000011100 

4504 017110 102002 BVC 5$ sERROR IF V 

4505 017112 103401 BCS 5$ sERROR IF C SET 

4506 017114 100401 BMI 6$ ;BRANCH IF GOOD 

4507 017116 104001 5$: ERROR +1 ;CPU ERROR 

4508 ;BAD ASR 

4509 017120 006204 6$: ASR R4 :R4= 1111000000001110 

4510 017122 102005 BVC 7$ sERROR IF V CLEAR 

4511 017124 103404 BCS 7$ sERROR IF C SET 

4512 017126 100003 BPL 7$ sERROR IF PLUS 

4513 017130 022704 170016 CMP #170016 ,R4 ;SEE IF EXPECTED RESULT 

4514 017134 001401 BEQ 8$ ;BRANCH IF GOOD 

4515 017136 104001 7$: ERROR +1 ;CPU ERROR 

4516 :BAD ASR 

4517 017140 8$: 

4518 

4519 

4522 017140 MSXTCC: 

4523 

4524 F TEST SXT CONDITION CODES / -«0- 

4525 017140 012704 123456 MOV #123456 ,R4 3R4=123456 

4526 017144 010401 MOV R4,R1 ;SAVE CONTENTS 

4527 017146 000257 ccc ;CC=0000 

4528 017150 006704 SxT R4 :R4=0 CC=0100 

4529 017152 103403 BCS 1$ sERROR IF CARRY 

4530 017154 100402 BMI 1$ sERROR IF MINUS 

4531 017156 102401 BVS i$ sERROR IF OVERFLOW 

4532 017160 001401 BEQ 2s ;BRANCH IF GOOD 

4533 017162 104001 1$: ERROR +1 ;CPU ERROR 

4534 ;BAD SXT 

4535 017164 010104 2s: MOV R1,R4 sRESTORE R4 

4536 017166 000277 sScc ;CC=1111 

4537 017170 006704 SXT R4 ;R4=-1 CC=1001 

4538 017172 001405 BEQ 3$ sERROR IF ZERO 

4539 017174 100004 BPL 3$ sERROR IF PLUS 

4540 017176 103003 BCC 3$ sERROR IF NO CARRY 

4541 017200 102402 BVS 3$ sERROR IF OVERFLOW 

4542 017202 005104 COM R4 3R4=0 

4543 017204 001401 BEQ 4$ ;BRANCH IF GOOD 

4544 017206 104001 3$: ERROR +1 ;CPU ERROR 

4545 ;BAD SXT 

4546 017210 4$: 


| 4547 





COKDADO KDJ11-B CLUSTER DIAG. 
*eee¢eeeee0e¢ DOUBLE OPERAND TESTS seeeacceceesesees 


4551 017210 


4554 017210 
4555 017214 
4556 017220 
4557 017222 
4558 017224 
4559 017226 
4560 017230 
4561 017232 
4S62 017234 


4564 017236 
4565 017242 
4566 017244 
4567 017246 
4568 017250 
4569 017252 
4570 017254 
4571 017256 


4573 017260 
4574 017262 
4575 017264 
4576 017266 
4577 017270 
4578 017272 
4579 017276 
4580 017300 


4582 017302 


4597 017302 


4601 017302 
4602 017304 
4603 017306 
4604 017310 
4605 017312 
4606 017314 
4607 017316 
4608 017320 
4609 017322 
4610 017324 
4611 017326 


4613 017330 
017332 


s 


012704 
012701 
000257 


012701 
000277 
074104 
100403 
001402 


005004 
000257 
000271 
006704 
102405 
100004 


001403 
103002 
005204 
001401 
104001 


000277 
000250 


123456 
052525 


125252 


000000 








K7 
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MXRCC: 
F TEST XOR CONDITION CODES / #+*0- 
MOV #123456 ,R4 3R42=123456 
MOV #52525, Ri 3R1=52525 
ccc :CC=0000 
XOR R1,R4 s*#TI* R42=171173 
BVS 1$ ;;ERROR IF OVERFLOW 
BEQ 1$ sERROR IF ZERO 
BCS 1$ sERROR IF CARRY 
BMI 2$ ;BRANCH IF GOOD 
1$: ERROR o1 ;CPU ERROR 
;BAD XOR 
2s: MOV #125252,R1 3R1=125252 
scc ;CC=#1111 
XxOR R1,R4 3R4=054321 
BMI 3$ sERROR IF MINUS 
BEQ 3$ sERROR IF ZERO 
BCC 3$ sERROR IF CARRY CLEAR 
BVC 4$ ;BRANCH IF GOOD 
3$: ERROR +1 ;CPU ERROR 
;BAD XOR 
4$: ¥OR R4,R4 3R420 
BVS S$ sERROR IF OVREFLOW 
BMI 5$ sERROR IF MINUS 
BCC 5$ sERROR IF NO CARRY 
BNE 5$ sERROR IF NOT ZERO 
CMP #0,R4 ;SEE IF EXPECTED RESULT 
BEQ 6$ ;BRANCH IF GOOD 
5$: ERROR +1 ;CPU ERROR 
;BAD XOR 
6$: 
3 
MSXT: 
3 TEST SXT CSIGN EXTEND INSTRUCTION) 


HE Scho ch dadacadadehthchdehshdnhduhtdhd ddd hha eettrtttLttLLLLiL LLL cite t 
sAN ADDITIONAL TEST IS INCLUDED TO CHECK FOR A SLOW N BIT PATH 
;ON A _ TRANSITION FROM ZERO TO ONE INTERNAL TO THE J11 DATA CHIP 
;THE PROBLEM IS ONLY EXHIBITED ON EARLY MASK SETS (1590 OR 1593) 


CLR R4 s TRASH R4 
ccc sCC=0000 
-WORD 271 :CC=1001 
SXT R4 s*#TEST INSTRUCTION 
BVS 1$ sBRANCH IF OVERFLOW IS NOT CLEARED 
BPL 1$ sBRANCH IF N BIT EFFECTED 
BEQ 1$ s;BRANNCH IF Z BIT EFFECTED 
BCC 1$ sBRANCH IF C BIT EFFECTED 
INC R4 
BEQ 2$ sBRANCH IF R4& =0 
1$: ERROR +1 s;CPU ERROR 
sCC SHOULD HAVE = 1101 
2s: scc 
CLN :CC=0111 


Le = ae a ee 


a ony 





COKDADO KDJ11-B CLUSTER DIAG. 
*eeeeeeeeeee DOUBLE OPERAND TESTS eeeeeccesececeees 


4629 017362 
4630 017366 
4631 017370 


4633 017372 
4634 017374 
4635 017376 
4636 017400 
4637 017402 
4638 017406 


4640 017410 
4641 017414 
4642 017416 
4643 017420 
4647 017420 


4650 017420 
4651 017424 


4670 017476 


4615 017334 
' 4616 017336 
4617 017342 
1 
4672 017500 


012701 
012704 
000277 
074401 
100006 


001405 
103004 
102403 
020127 
001401 
104001 


010102 


000055 


177777 


177777 


177777 


007643 


133333 


134570 


007643 





MACRO YOS.02 


3$: 


4$: 


S$: 


MXOR: 


1$: 
2: 


3$: 
4$: 





MOV 
CLR 
SXT 


TST 
BEQ 
ERROR 
CLR 
MOV 
SXT 


CMP 
BEQ 
ERROR 


L/ 
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TEST XOR 





#55, (R4) ; TRASH R4 
CR4) +*TEST INSTRUCTION 
3$ ;BRANCH IF BIT EFFECTED 
ae sBRANCH IF OVERFLOW 
3 
3$ ;BRANCH IF N IS SET 
CR4) ;VERIFY INSTRUCTION WORKED 
4$ sBRANCH IF R4=0 
+1 ;CPU ERROR 
;SXT FAILED 
NOW TEST FOR SLOW N BIT IN Jil DATA CHIP 
#-1,RO0 3RO=177777, N BIT = 1 
R4 ;sCLEAT THE N BIT 
RO 3*e*eTEST INSTRUCTIONs«s 
;TEST N BIT TRANSITION 1 TO O 
RO sRO SHOULD = 0 
5$ ;BRANCH IF OK 
+1 ;CPU ERROR 
RO sCLEAR RO, N BIT = 0 
#-1,R4 ;SET N BIT 
3*#**#TEST INSTRUCTION#s+« 
;TEST N BIT TRANSITION O TO 1 
#-1,RO0 sRO SHOULD = 177777 
6$ sBRANCH IF OK 
+1 ;CPU ERROR 
#7643 ,R1 ;SETUP DATA 
#133333 ,R4 ;SETUP DATA 
R4,R1 3*TEST INSTRUCTION 
1$ ;BRANCH IF PLUS TO ERROR 
1$ sERROR IF ZERO 
1$ sERROR IF CARRY CLEAR 
1$ ;ERROR IF V SET 
R1, #134570 sVERIFY CORRECT RESULT 
2s ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD XOR 
R1,R2 
R4,R2 :*TEST INSTRUCTION 
3$ sERROR IF MINUS 
3$ sERROR IF OVERFLOW 
3$ sERROR IF CARRY 
R2, #7643 
4$ sBRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD XOR 


SEQ 0089 





COKDADO KDJ11-B CLUSTER DIAG. 
*eeeeeeee¢¢e DOUBLE OPERAND TESTS seesesceseceescess 


ase 017500 


4680 017500 
4681 017504 
4682 017506 
4683 017510 
4684 017512 
4685 017514 
4686 017516 
4687 017520 
4688 017522 
4689 017524 
4690 017526 
4691 017530 
4692 017534 


4694 017536 
4695 017542 


4697 017544 
4698 017550 
4699 017552 


4701 017554 


4716 017602 


4718 017604 
4719 017606 
4720 017610 


4722 017612 
4723 017614 
4724 017620 
4725 017622 


4727 017624 
4728 017630 


4730 017632 
4732 017634 


4733 017640 
| 4734 017644 


102401 


104001 
022705 
001401 
104001 


020627 
001401 


104001 
012746 


012746 
010605 


000555 


000010 


000700 
125252 
017604 
006437 


125252 


001000 


052525 
006400 


MACRO YOS.02 


000776 








F 
MSOB: 


1$: 


MMARK : 


4$: 


15$: 


TEST SOB 
MOV 





M7 
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#555,R4 + dee TEST COUNTER 
3 = 

2s sERROR IF CARRY CLEAR 
2s sERROR IF NO OVERFLOW 
2s sERROR IF PLUS 
2s sERROR IF ZERO 
R4,1$ s*#TEST INSTRUCTION 
3% sERROR IF CARRY CLEAR 
3¢ sERROR IF NO OVERFLOW 
3$ sERROR IF PLUS 
zs sERROR IF ZERO 
+1 ;CPU ERROR 
ae sCC EFFECTED DURING TEST 
+1 ;CPU ERROR 

3CC EFFECTED > TEST 
R4,00 | sIS R4 CORRECT 
S$ sYES GO ON 
+1 ;CPU ERROR 


sNO GO TO ERROR 


MARK INSTRUCTION TEST 


MOV 





#STBOT-100,SP sSETUP TEST STACK = 700 
#125252, 80STBOT-2 sSET UP NEW RS VALUE ON STACK 
#1$,R5 sPUT NEW PC IN RS 
@MARK +37, -CSP) _ INSERT MARK 37 INSTRUCTION ONTO STACK 
(SP) s* TEST INSTRUCTION 
sMARK INSTRUCTION SHOULD HAVE GONE TO 1$ 
+1 sCPU ERROR 
2s sERROR IF C OR Z BIT CLEAR 
2s sERROR IF N BIT CLEAR 
3$ sBRANCH IF V BIT SET 
sBAD CONDITION CODES ON MARK 
+1 ;CPU ERROR 
#125252 ,R5 sVERIFY RS 
4$ s;BRANCH IF GOOD 
ol s;CPU ERROR 
SP, #STBOT sVERIFY THAT STACK IS CORRECT 
15$ sBRANCH IF OK 
sERROR! STACK WAS NOT CORRECT AFTER MARK 
ol ;CPU ERROR 
#52525, -(SP) sSETUP EXPECTED RS 
#6400, -( SP) sMOVE MARK O INSTRUCTION ON STACK 
SP,RS sRS=ADDRESS OF INSTRUCTION 








a 





COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 
eeeseseeeees DOUBLE OPERAND TESTS seeesececeseseses 





N7 


Wednesday 27-Feb-85 17:55 Page 14-72 


SEQ 0091 


4735 017646 004767 000004 JSR PC,5$ sLEAVE 6$ ON STACK 
aver 017652 000167 000006 6$: JMP 16$ sMARK RETURNED CORRECTLY 
4738 017656 000257 5$: ccc sCLEAR THE CONDITION CODES 
4739 017660 000205 RTS RS sRETURN TO MARK INSTRUCTION 
4740 sNEXT INSTRUCTION ON STACK IS THE RETURN 
4741 3sFROM THE JSR 
4742 sERROR! BAD MARK SEQUENCE 
pins 017662 104001 ERROR o1 ;CPU ERROR 
4745 017664 101402 16%: BLOS 7$ 3IS C OR Z BIT SET? 
4746 017666 100401 BMI 7$ 3IS N BIT SET? 
4747 017670 102001 BYC 8$ 3IS V BIT SET? 
4748 sERROR! CONDITIONS CODES INCORRECT 
phn 017672 104001 7$: ERROR o1 sCPU ERROR 
4751 017674 020627 001000 8$: CMP R6,@STBOT 3IS THE STACK CORRECT? 
4752 017700 001401 BEQ 9$ sBRANCH IF YES 
4753 sERROR! BAD STACK CLEANUP 
4754 017702 104001 ERROR o1 ;CPU ERROR 
4755 017704 022705 052525 9$: CMP #52525 ,R5 ;VERIFY THAT RS WAS LOADED PROPERLY. 
4756 017710 001401 BEQ 10$ sIF OK, GO TO NEXT TEST 
4757 ;ERROR! RS WAS NOT CORRECT AFTER MARK. 
4758 017712 104001 ERROR +1 sCPU ERROR 
4759 017714 10%: 
pha 017714 XME100 
6 
4764 F TEST CLEAR CONDITION CODES INSTRUCTION 
4765 017714 012737 030017 177776 MOV #30017 , 80177776 sSETUP PSW 
4766 017722 000257 ccc s TEST INSTRUCTION 
4767 017724 022737 030000 177776 CMP #30000 , 84177776 sDID IT CLEAR ALL CONDITION CODE BITS 
4768 017732 001401 BEQ 1$ sYES GO ON 
4769 017734 104001 ERROR o1 sCPU ERROR 
4770 sNO GO TO ERROR 
4771 017736 1$: 
4772 3 
4774 017736 XME101: 
4776 
4777 3 TEST CLEAR C BIT INSTRUCTION 
4778 017736 012737 030017 177776 MOV #30017, 80177776 sSETUP PSW 
4779 017744 000241 CLC 3 TEST INSTRUCTION 
4780 017746 022737 030016 177776 CMP #30016 ,80177776 sDID IT CLEAR CARRY BIT 
4781 017754 001401 BEQ i$ ;YES GO ON 
4782 ;C BIT NOT CLEAR GO TO ERROR 
4783 017756 104001 ERROR ol ;CPU ERROR 
4784 017760 i$: 
4785 3 
4788 017760 TE102: 
4789 : TEST CLEAR N BIT INST (CLN) 
4790 017760 012737 030017 177776 MOV 030017, 80177776 sSETUP PSW 
4791 017766 000250 CLN 3; TEST INSTRUCTION 
4792 017770 022737 030007 177776 CMP 030007 , 80177776 s0ID IT CLEAR NEGATIVE BIT 
4793 017776 001401 BEQ 1$ ;YES GO ON 
4794 020000 104601 ERROR ol ;CPU ERROR 
4795 :NO GO TO ERROR 
4796 020002 18: 
4797 3 














B8 
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4800 020002 TE103: 

4801 F TEST CLEAR V BIT INST (CLV) 

4802 020002 012737 030017 177776 MOV #30017, 80177776 sSETUP PSW 

4803 020010 000242 CLV s TEST INSTRUCTION 
4804 020012 022737 030015 177776 CMP #30015 ,80177776 sDID IT CLEAR OVERFLOW BIT 
4805 020020 001401 BEQ@ i$ sYES GO ON 

4806 020022 104001 ERROR ol sCPU ERROR 

4807 sNO GO TO ERROR 

4808 020024 i$: 

4809 

4812 020024 TE104: 

4813 3 TEST CLEAR Z BIT INST (CLZ) 

4814 020024 012737 030017 177776 MOV #30017 ,80177776 sSETUP PSW 

4815 020032 000244 CLZ s TEST INSTRUCTION 
4816 020034 022737 030013 177776 CMP 430013 ,80177776 ;DID IT CLEAR ZERO BIT 
4817 020042 001401 BEQ i$ :YES GO ON 

4818 020044 104001 ERROR o1 ;CPU ERROR 

4819 sNO GO TO ERROR 

4820 020046 i$ 

4821 3 

4824 020046 TE105: 

4825 3 TEST SET CONDITION CODES INST (SCC) 

4826 020046 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 

4827 020054 000277 scc 3; TEST INSTRUCTION 
4828 020056 022737 030017 177776 CMP #30017 , 80177776 :DID IT SET ALL CONDITION CODE BITS 
4829 020064 001401 BEQ 1$ ;YES GO ON 

4830 020066 104001 ERROR ol ;CPU ERROR 

4831 :NO GO TO ERROR 

4832 020070 i$ 

4833 3 

4836 020070 TE106: 

4837 3 TEST SET C BIT INST (SEC) 

4838 020070 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 

4839 020076 000261 SEC ; TEST INSTRUCTION 
4840 020100 022737 030001 177776 CMP #30001 , 80177776 ;DID IT SET THE CARRY BIT 
4841 020106 001401 BEQ 1$ ;YES GO ON 

4842 020110 104001 ERROR ol ;CPU ERROR 

4843 :NO GO TO ERROR 

4844 020112 1$ 

4845 5 

4848 020112 TE107: 

4849 : TEST SET N BIT INST (SEN) 

4850 020112 012737 030000 177776 MOV #30000 , 80177776 ;SETUP PSW 

4851 020120 000270 SEN ; TEST INSTRUCTION 
4852 020122 022737 030010 177776 CMP #30010 ,89177776 ;DID IT SET THE NEGATIVE BIT 
4853 020130 001401 BEQ i$ ;YES GO ON 

4854 020132 104001 ERROR ol ;CPU ERROR 

4855 sNO GO TO ERROR 

4856 020134 1$ 

4857 3 

4860 020134 TE110: 

4861 3 TEST SET V BIT INST (SEV) 

4862 020134 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 

4863 020142 000262 SEV ; TEST INSTRUCTION 
4864 020144 022737 030002 177776 CMP #30002 ,80177776 ;DID IT SET THE OVERFLOW BIT 
4865 020152 001401 BEQ i$ ;YES GO ON 


| 4866 020154 104001 ERROR +1 ;CPU ERROR 














% a —— 
| 
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4867 sNO GO TO ERROR 
4868 020156 1$: 
4869 3 
4872 020156 TE111: 
4873 3 TEST SET Z BIT INST (SEZ) 
4874 020156 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 
4875 020164 000264 SEZ ; TEST INSTRUCTION 
4876 020166 022737 030004 177776 CMP #30004 , 80177776 :DID IT SET THE ZERO BIT 
4877 020174 001401 BEQ 1$ ;YES GO ON 
4878 020176 104001 ERROR +1 ;CPU ERROR 
4879 sNO GO TO ERROR 
4880 020200 1$: 
4881 3 
4884 020200 TE1le: 
4885 3 TEST MULTIPLE CLEARS OF CC BITS 
4886 020200 012737 030000 177776 MOV #30000 , 80177776 ;INIT PSW 
4887 020206 000277 Scc ;SETUP PSW 
4888 020210 000243 . WORD 243 ; TEST CLC CLV 
4889 020212 022737 030014 177776 CMP #30014 ,80177776 sPSW CORRECT? 
4890 020220 001401 BEQ i$ :YES GO ON 
4891 020222 104001 ERROR +1 ;CPU ERROR 
4892 sNO GO TO ERROR 
4893 020224 000277 1$: scc sSETUP PSW 
4894 020226 000245 . WORD 245 ; TEST CLC CLZ 
4895 020230 022737 030012 177776 CMP #30012 ,80177776 sPSW CORRECT? 
4896 020236 001401 BEQ 2$ ;YES GO ON 
4897 020240 104001 ERROR o1 ;CPU ERROR 
4898 ;NO GO TO ERROR 
4899 020242 000277 2$: scc sSETUP PSW 
4900 020244 000246 . WORD 246 ; TEST CLV CLZ 
4901 020246 022737 030011 177776 CMP #30011 ,9#177776 sPSW CORRECT? 
4902 020254 001401 BEQ 3$ ;YES GO ON 
4903 020256 104001 ERROR «1 ;CPU ERROR 
4904 :NO GO TO ERROR 
4905 020260 000277 3$: scc ;SETUP PSW 
4906 020262 000247 . WORD 247 ; TEST CLC CLV CLZ 
4907 020264 022737 030010 177776 CMP #30010 ,9#177776 :PSW CORRECT? 
4908 020272 001401 BEQ 4$ ;YES GO ON 
4909 020274 104001 ERROR +1 ;CPU ERROR 
4910 ;NO GO TO ERROR 
4911 020276 000277 4$: scc sSETUP PSW 
4912 020300 000251 .- WORD 251 ; TEST CLN CLC 
4913 020302 022737 030006 177776 CMP #30006 , 80177776 sPSW CORRECT? 
4914 020310 001401 BEQ 5$ ;YES GO ON 
4915 020312 104001 ERROR o1 ;CPU ERROR 
4916 :NO GO TO ERROR 
4917 020314 000277 5$: Scc ;SETUP PSW 
4918 020316 000252 .» WORD 252 ; TEST CLN CLV 
4919 020320 022737 030005 177776 CMP #30005 , 80177776 sPSW CORRECT? 
4920 020326 001401 BEQ 6$ ;YES GO ON 
4921 020330 104001 ERROR o1 ;CPU ERROR 
4922 :NO GO TO ERROR 
4923 020332 000277 6$: scc ;SETUP PSW 
4924 020334 000253 . WORD 253 ; TEST CLN CLC CLV 
4925 020336 022737 030004 177776 CMP #30004 , 80177776 sPSW CORRECT? 
4926 020344 001401 BEQ 7$ ;YES GO ON 

| 4927 020346 104001 ERROR ol ;CPU ERROR 

\ 














SEQ 0093 


_ 


ee ee 
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020512 
020514 


020516 
020520 
020522 
020530 
020532 


020534 
020536 
020540 
020546 


012737 
000263 
022737 
001401 
104001 


000257 
000265 
022737 
001401 
104001 


000257 


030003 


030002 


030001 


030000 
030003 


030005 


030006 


030007 


030011 


030012 





D8 
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177776 


177776 


177776 


177776 
177776 


177776 


177776 


177776 


177776 


177776 


7$: 


8$: 


9$: 


1$: 


2s: 


3$: 


4$: 


5$: 





scc 

. WORD 254 

CMP #30003 , 84177776 
BEQ 8$ 

ERROR o1 

scc 

-WORD 255 

CMP #30002 ,8#177776 
BEQ 9$ 

ERROR «1 

scc 

-WORD 256 

CMP #30001 , 8177776 
BEQ 10$ 

ERROR +1 


bay MULTIPLE SETS OF CC BITS 


#30000 , 84177776 
. WORD 263 
CMP #30003 , 80177776 
BEQ 1$ 
ERROR +1 
ccc 
. WORD 265 
CMP #30005 , #177776 
BEQ 2$ 
ERROR +1 
ccc 
. WORD 266 
CMP #30006 , 8177776 
BEQ 3$ 
ERROR o1 
cee 
. WORD 267 
CMP #30007 ,8#177776 
BEQ 4$ 
ERROR +1 
ccc 
. WORD 271 
CMP #30011 ,8#177776 
BEQ 5$ 
ERROR +1 
ccc 
. WORD 272 
CMP #30012 ,80177776 
BEQ 6$ 


sNO GO TO ERROR 
sSETUP PSW 
s TEST CLN CLZ 
sPSW CORRECT? 
sYES GO ON 
s;CPU ERROR 
sNO GO TO ERROR 
sSETUP PSW 
s_ TEST CLN CLC CLZ 
sPSW CORRECT? 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sSETUP PSW 
; TEST CLN CLV CLZ 
sSETUP PSW 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 


sINIT PSW 
; TEST SEC SEV 
sPSW CORRECT? 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
;SETUP PSW 
; TEST SEC SEZ 
;PSW CORRECT? 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sSETUP PSW 
; TEST SEV SEZ 
sPSW CORRECT? 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP PSW 
; TEST SEC SEV SEZ 
sPSW CORRECT? 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
;SETUP PSW 
; TEST SEN SEC 
sPSW CORRECT? 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
;SETUP PSW 
; TEST SEN SEV 
:PSW CORRECT? 
;YES GO ON 





SEQ 0094 











3 | E8 
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SEQ 0095 

eeeeeeeeeeee DOUBLE OPERAND TESTS eeneceecaceaceese 

4987 020550 104001 ERROR ol ;CPU ERROR 

4988 sNO GO TO ERROR 

4989 020552 000257 6$: ccc ;SETUP PSW 

4990 020554 000273 -WORD 273 ; TEST SEN SEC SEV 

4991 020556 022737 030013 177776 CMP #30013 ,80177776 sPSW CORRECT? 

4992 020564 001401 BEQ 7$ sYES GO ON 

4993 020566 104001 ERROR ol ;CPU ERROR 

4994 sNO GO TO ERROR 

4995 020570 000257 7$: co ;SETUP PSW 

4996 020572 000274 -WORD 274 : TEST SEN SEZ 

4997 020574 022737 030014 177776 CMP #30014 ,8#177776 sPSW CORRECT? 

4998 020602 001401 BEQ 8$ :YES GO ON 

4999 020604 104001 ERROR ol ;CPU ERROR 

5000 :NO GO TO ERROR 

5001 020606 000257 8$: ccc ;SETUP PSW 

5002 020610 000275 -WORD 275 ; TEST SEN SEC SEZ 

5003 020612 022737 030015 177776 CMP #30015 ,80177776 sPSW CORRECT? 

5004 020620 001401 BEQ 9$ ;YES GO ON 

5005 020622 104001 ERROR +1 ;CPU ERROR 

5006 sNO GO TO ERROR 

5007 020624 000257 9$: ccc sSETUP PSW 

5008 020626 000276 -WORD 276 ; TEST SEN SEV SEZ 

5009 020630 022737 030016 177776 CMP #30016 ,8#177776 sPSW CORRECT? 

5010 020636 001401 BEQ 10$ ;YES GO ON 

5011 020640 104001 ERROR ol ;CPU ERROR 

5012 sNO GO TO ERROR 

5013 020642 10$: 

5014 3 

5017 020642 TE113A: 

5018 ; TEST SIGNED AND CONDITIONAL BRANCHES 

5019 020642 000257 ccc ;CLEAR ALL CC BITS IN PSW 

5020 020644 002001 BGE i$ ;BGE SHOULD BRANCH 

5021 020646 104001 ERROR ol ;CPU ERROR 

5022 ;ERROR; DIDN'T BRANCH 

5023 0290650 003001 1$: BGT 2$ ;B8GT SHOULD BRANCH 

5024 020652 104001 ERROR +1 ;CPU ERROR 

5025 : sERROR; DION'T BRANCH 

5026 020654 003401 2$: BLE 3$ ;BLE SHOULDN’ T BRANCH 

5027 020656 000401 BR 4$ ;BRANCH TO NEXT TEST 

5028 020660 104001 3$: ERROR +1 ;CPU ERROR 

5029 sERROR; BLE SHOULD NOT HAVE BRANCHED 

5030 020662 002401 4$: BLT 5$ ;BLT SHOULD NOT BRANCH 

5031 020664 000401 BR 6$ ;BRANCH TO NEXT TEST 

5032 020666 104001 5$: ERROR +1 ;CPU ERROR 

5033 ;ERROR; BLT SHOULD NOT HAVE BRANCHED 

5034 020670 000264 6$: SEZ ;SET THE Z BIT IN PSW 

5035 020672 003401 BLE 7$ ;BLE SHOULD BRANCH 

5036 020674 104001 ERROR ol ;CPU ERROR 

5037 ;ERROR; BLE DIDN'T BRANCH 

5038 020676 003001 7$: BGT 8$ ;BGT SHOULD NOT BRANCH 

5039 020700 000401 BR 9$ ;BRANCH TO NEXT TEST 

5040 020702 104001 8$: ERROR +1 ;CPU ERROR 

5041 sERROR; BGT SHOULD NOT HAVE BRANCHED 

5042 020704 000257 9$: ccc ;CLEAR ALL CC BITS IN PSW 

5043 020706 000270 SEN ;SET N BIT IN PSW 

5044 020710 002401 BLT 10$ ;SHOULD BRANCH TO NEXT TEST 


5045 020712 104001 ERROR +1 ;CPU ERROR 
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S046 
5047 
5048 


020714 
020716 


020720 
020722 
020724 


020726 
020730 
020732 


020734 
020736 
020740 
020742 


020744 
020746 


020750 
020752 
020754 


020756 
020760 
020762 


020764 
020766 
020770 
020772 


020774 
020776 


021000 
021002 
021004 


021006 
021010 
021012 


021014 
021014 


021014 
021022 
021026 
021032 
021036 
021042 
021046 
021052 
021056 
021064 


012737 
012700 
012701 
012702 
012703 
012704 
012705 
010637 
012737 
000277 


030000 177776 
000001 


003012 
030017 114146 


10$: 


11$: 
12$; 
13$: 
148: 
15$: 


16$: 


17$: 
18$: 
19$: 
20$: 
21$: 


22$: 


23%: 
24%: 
25$: 
26%: 


278: 
TE114: 


11$ 
+1 


12$ 
13$ 
+1 


14$ 
15$ 
+1 


16$ 
+1 


17$ 
+1 


18$ 
19$ 
+1 


20$ 
2i$ 
+1 


272 
22¢ 
+1 


23$ 
+1 


24$ 
2s$ 
+1 


26$ 
27$ 
+1 


TEST NOP INST 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
scc 


#6,R5 


R6. A#SLOCOO 
#30017, @¢EXPDAT 


#30000 , 8#177776 
RO 
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sERROR; BLT SHOULD HAVE BRANCHED 
sSHOULD BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BLE SHOULD HAVE BRANCHED 
s;BGE SHOULD NOT BRANCH 
sBRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGE SHOULD NOT HAVE BRANCHED 
;8GT SHOULD NOT BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGT SHOULD NOT HAVE BRANCHED 
sCLEAR ALL CC BITS 
sSET V BIT IN PSW 
;BLE SHOULD BRANCH 

;CPU ERROR 

sERROR; BLE DION’T BRANCH 
;BLT SHOULD BRANCH 

;CPU ERROR 

sERROR; BLT DIDN'T BRANCH 
sBGE SHOULDN'T BRANCH 
s;BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGE SHOULD NOT HAVE BRANCHED 
sBGT SHOULD NOT BRANCH 
sBRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGT SHOULD NOT HAVE BRANCHED 
sCLEAR ALL CC BITS 
sSET N AND V BITS IN PSW 
;BGE SHOULD BRANCH 

;CPU ERROR 

sERROR; BGE DIDN'T BRANCH 
;BGT SHOULD BRANCH 

;CPU ERROR 

sERROR; BGT DIDN'T BRANCH 
;BLE SHOULDN'T BRANCH 
sBRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BLE SHOULD NOT HAVE BRANCHED 
sBLT SHOULD NOT BRANCH 
s;BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BLT SHOULD NOT HAVE BRANCHED 


;INIT PSW 

sINIT RO 

;INIT Ri 

;INIT R2 

;INIT R3 

sINIT R4& 

sINIT RS 

;SAVE SP 

;SETUP PSW 

;SET ALL CONDITION CODE BITS 





SEQ 0096 








G8 
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5105 021066 000240 NOP s TEST INSTRUCTION 
$106 021070 000240 NOP s TEST INSTRUCTION 
5107 021072 000240 NOP s_ TEST INSTRUCTION 
5108 021074 004767 000046 JSR PC,7114 sCHECK PSW, AND GPR'S 
5109 021100 020637 003012 CMP R6 ,8#SLOCOO sCHECK SP 
5110 021104 001401 BEQ i$ ;0K GO ON 
5111 021106 104001 ERROR +1 ;CPU ERROR 
$112 sNO GO TO ERROR 
$113 021110 012737 030000 114146 i$: MOV #30000 , AE XPDAT s;SETUP PSW 
5114 021116 000257 ccc ;CLEAR ALL CONDITION CODE BITS 
5115 021120 000260 -WORD 260 ; TEST FOR NOP OPERATION 
5116 021122 000260 -WORD 260 ; TEST FOR NOP OPERATION 
5117 021124 000260 -WORD 260 ; TEST FOR NOP OPERATION 
5118 021126 004767 000014 JSR PC,1T114 s;CHECK PSW, AND GPR’S 
5119 021132 020637 003012 CMP R6,@#SLOCOO sCHECK SP 
5120 021136 001401 BEQ 2s ;0K GO ON 
5121 021140 104001 ERROR +1 ;CPU ERROR 
5122 sNO GO TO ERROR 
$123 021142 2$: 
a 021142 000167 000104 JMP FINNOP 
H 
5126 021146 023737 114146 177776 1114: CMP QHEXPDAT , 80177776 sCHECK PSW 
5127 021154 001405 BEQ TA114 ;0K GO ON 
5128 021156 010067 157216 MOV RO,400 s;SAVE RO 
5129 021162 104001 ERROR +1 ;CPU ERROR 
5130 ;NO GO TO ERROR 
5131 021164 016700 157210 MOV 400,RO sRESTORE RO 
5132 021170 022700 000001 TA114: CMP #1,RO sCHECK RO 
$133 021174 001401 BEQ TB114 ;O0K GO ON 
5134 021176 104001 ERROR +1 ;CPU ERROR 
$135 sNO GO TO ERROR 
5136 021200 022701 000002 T8114: CMP #2,R1 sCHECK Ri 
5137 021204 001401 BEQ TC114 ;0K GO ON 
5138 021206 104001 ERROR +1 ;CPU ERROR 
5139 sNO GO TO ERROR 
5140 021210 022702 000003 TC114: CMP #3,R2 sCHECK R2 
5141 021214 001401 BEQ T0114 ;0K GO ON 
5142 021216 104001 ERROR +1 ;CPU ERROR 
5143 sNO GO TO ERROR 
5144 021220 022703 000004 T0114: CMP #4 RS sCHECK R3 
5145 021224 001401 BEQ TF114 ;O0K GO ON 
5146 021226 104001 ERROR +1 ;CPU ERROR 
5147 sNO GO TO ERROR 
5148 021230 022704 000005 TF114:;: CMP #5,R4 sCHECK R4 
5149 021234 001401 BEQ T6114 ;0K GO ON 
5150 021236 104001 ERROR +1 ;CPU ERROR 
5151 sNO GO TO ERROR 
5152 021240 022705 000006 TG114: CMP #6 ,RS sCHECK RS 
5153 021244 001401 BEQ TH114 ;0K GO ON 
5154 021246 104001 ERROR +1 ;CPU ERROR 
5155 sNO GO TO ERROR 
st] 021250 000207 TH114: RTS PC RETURN 
; 
5158 021252 000240 FINNOP: NOP 
5159 ; 
5162 ; 











| 3 H8 
COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-79 
*eeeeeee000e DOUBLE OPERAND TESTS «ueecceccaceceanse 


SEQ 0098 


ee ;TEST ATERNATE REGISTER SET 

$ 
5166 021254 005000 CLR RO po----- CLEAR------ 
5167 021256 005001 CLR Ri joocee PRIMARY ---- 
5168 021260 005002 CLR Re poocee GENERAL - ---- 
5169 021262 005003 CLR R3 po---e- PURPOSE - ---- 
5170 021264 005004 CLR R4 pococc- REGISTER---- 
5171 021266 005005 CLR RS poocee-- SET------- 
5172 021270 012767 004000 156500 MOV #4000 ,PS ;SELECT ALTERNATE REGISTER SET 
5173 021276 032767 004000 156472 BIT #BIT11,PS ;TEST TO SEE THAT BIT IS SET IN PS 
5174 021304 001001 BNE is ;IF IT'S SET GO TESTS REGISTERS 
5175 021306 104001 ERROR «1 ;CPU ERROR 
5176 ;ERROR! ALTERNATE REGISTER SELECT 
5177 ;BIT IN PS IS NOT SET 
5178 021310 012700 177777 1$: MOV #177777,RO ;WRITE ALL ONES TO ALTERNATE REG SET 
5179 021314 010001 MOV RO,R1 : 
5180 021316 010102 MOV R1,R2 3 
5181 021320 010203 ; MOV R2,R3 ; 
5182 021322 010304 MOV R3,R4 ; 
5183 021324 010405 MOV R4,R5 : 
5184 021326 042767 004000 156442 BIC #BIT11,PS ;CLEAR BIT 11 IN PS 
5185 021334 032767 004000 156434 BIT #BIT11,PS ;IS BIT 11 = 0? 
5186 021342 001401 BEQ 2$ ;IF IT'S NOT ZERO 
5187 021344 104001 ERROR +1 ;CPU ERROR 
5188 ;ERROR! BIT 11 DID NOT CLEAR 
5189 021346 005700 2s: TST RO ;MAKE SURE THAT WE REALLY 
5190 021350 001401 BEQ 3$ ;WERE TALKING TO ALTERNATE REGISTERS. 
5191 021352 104001 ERROR el ;CPU ERROR 
5192 ;ERROR! 
5193 021354 005701 3$: TST R1 ; 
5194 021356 001401 BEQ 4$ 
5195 021360 104001 ERROR +1 ;CPU ERROR 
5196 ;ERROR! 
5197 021362 005702 4$: TST R2 ; 
5198 021364 001401 BEQ S$ . 
5199 021366 104001 ERROR +1 ;CPU ERROR 
5200 ;ERROR! 
5201 021370 005703 5$: TST R3 ; 
5202 021372 001401 BEQ 6$ ; 
pees 021374 104001 ERROR ol ;CPU ERROR 
204 3 
5205 021376 005704 6$: TST R4 ; 
5206 021400 001401 BEQ 7$ ; 3 
po 021402 104001 ERROR +1 ;CPU ERROR 

3 

5209 021404 005705 7$: TST RS ; 
5210 021406 001401 BEQ 8$ ; 
5211 021410 104001 ERROR +1 ;CPU ERROR 
5212 ;ERROR! 
5213 021412 012767 004000 156356 8$: MOV #BIT11,PS_ sENABLE ALTERNATE REGISTER SET 
5214 021420 005000 CLR RO t----- CLEAR----- 
5215 021422 005001 CLR Ri ;---ALTERNATE--- 
5216 021424 005002 CLR R2 3----REGISTER--- 
5217 021426 005003 CLR R3 proce SET----- 
5218 021430 005004 CLR R4 3 
5219 021432 005005 CLR 


RS ; 
| 5220 021434 042767 004000 156334 BIC #BIT11,PS ;BACK TO PRIMARY GPRS 


COKDADO KDJ11-B8 CLUSTER DIAG. 





MACRO YOS.02 





*eee¢¢e¢e00¢¢ DOUBLE OPERAND TESTS eeeececcacacecuee 


S229 021470 
5230 021472 


S232 021474 
5233 021476 
5234 021500 


5236 021502 
5237 021504 
5238 021506 


5240 021510 
5241 021512 
S242 021514 


5244 021516 
5245 021520 
5246 021522 


5248 021524 
5249 021526 
5250 021530 
$251 021532 


5253 021532 


S255 021532 
S256 021536 
S257 021542 
S258 021544 


5260 021546 
5261 021550 
S262 021554 
5263 021556 


5265 021560 
5266 021564 
5267 021570 
5268 021572 


S270 021574 
5271 021600 
S272 021604 
S273 021606 
nore 021610 


| 5279 021610 


saseea 177777 


004000 156310 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


ALROTS: 
; 


1$: 


2$: 


3$: 


#177777,RO 
RO,R1 


R4,RS 
#BIT11,PS 
RO 


9$ 
+1 


R1 
10$ 
+1 


R2 
11$ 
+1 


R3 
12$ 
+1 


R4 
13$ 
+1 


RS 
14$ 
+1 
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sENSURE THAT WRITES TO PRIMARY GPRS 
;D0 NOT EFFECT ALTERNATE GPRS 

; 

; 

: 


. 
sRETURN TO ALTERNATE REGISTERS 
;SHOULD BE ALL 0'S 


3 
;CPU ERROR 
;ERROR! 

3 


; 
;CPU ERROR 
: 

; 


; 
;CPU ERROR 
; 

; 


; 
;CPU ERROR 
; 

; 


; 
;CPU ERROR 
; 

; 


i 
;CPU ERROR 


ALTERNATE REGISTER SET RO BIT TESTS 


MOV 


#177777,RO 
RO, #177777 
i$ 
+1 


RO 
RO, #0 
2s 
+1 


#125252 ,R0 
+ cael 


+1 


#52525 ,R0 
RO, #52525 
4s 
+1 


3RO=177777 
sDOES RO=177777 
ES GO ON 


7Y 
;CPU ERROR 
:NO GO TO ERROR 
;RO=0 
;DOES RO=0 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
:RO=125252 
sDOES RO=125252 
:YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;RO=52525 
;sDOES RO=52525 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 


SEQ 0099 


f 
‘ 
| 





COKDADO KDJ11-B CLUSTER DIAG. 
*¢e¢ee¢e¢e0e DOUBLE OPERAND TESTS *eeeeeeeeeeee000% 
ALTERNATE REGISTER SET R1 BIT TESTS 


5281 021610 
5282 021614 
5283 021620 
5284 021622 


5286 021624 
5287 021626 
5288 021632 
5289 021634 


5291 021636 
S292 021642 
5293 021646 
5294 021650 


5296 021652 
5297 021656 
5298 021662 
5299 021664 


5301 021666 
5305 021666 


5307 021666 
5308 021672 
5309 021676 
5310 021700 


5312 021702 
5313 021704 
5314 021710 
5315 021712 


5317 021714 
5318 021720 
5319 021724 
5320 021726 


$5322 021730 
5323 021734 
5324 021740 
5325 021742 


5327 021744 
5331 021744 


5333 021744 
5334 021750 
5335 021754 
5336 021756 


5338 021760 
5339 021762 
5340 021766 


012701 
020127 
001401 
104001 


005001 
020127 
001401 
104001 


012701 
020127 
001401 
104001 


012701 
020127 
001401 
104001 


012702 
020227 
001401 
104001 


005002 
020227 
001401 
104001 


012702 
020227 
001401 
104001 


012702 
020227 
001401 
104001 


012703 
020327 
001401 
104001 


005003 
020327 
001401 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 





MACRO YOS.02 


1$: 


2$: 


3$: 


4$: 


; 
ALR2TS: 
: 


1$: 


2s: 


3$: 


4$: 


; 
ALR3TS: 
; 


1$: 





J8 
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MOV #177777 ,R1 
CMP R1,9177777 
BEQ 1$ 

ERROR +1 

CLR R1 

CMP R1,#0 

BEQ 2$ 

ERROR +1 

MOV #125252 ,R1 
CMP R1, #125252 
BEQ 3$ 

ERROR +1 

MOV #52525,R1 

CMP R1,#52525 

BEQ 4$ 

ERROR +1 


3R1=177777 
sDOES R1i=177777 
;YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
;R1=0 
;DOES R1i=0 
;YES GO ON 

;CPU ERROR 
sNO GO TO ERROR 
3R1=125252 
;DOES R1i=125252 
;YES GO ON 

;CPU ERROR 
sNO GO TO ERROR 
:R1=52525 
;D0ES R1=52525 
;YES GO ON 

;CPU ERROR 
sNO GO TO ERROR 


ALTERNATE REGISTER SET R2 BIT TESTS 


MOV #177777 ,R2 
CMP R2, 0177777 
BEQ 1$ 
ERROR +1 
CLR Re 
CMP R2, #0 
BEQ 2$ 
ERROR +1 
MOV #125252 ,R2 
CMP R2, #125252 
BEQ 3$ 
ERROR o1 
MOV #52525,R2 
CMP R2,#52525 
BEQ 4$ 
ERROR +1 


ALTERNATE REGISTER 


MOV #177777 ,R3 
CMP R3, #177777 
BEQ i$ 

ERROR +1 

CLR R3 

CMP R3, #0 

BEQ 2s 


3R22177777 
;DOES R2=177777 
;YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
;R2=0 
;D0ES R2=0 
:YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
;R2=125252 
;DOES R2=125252 
;YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
;R2=52525 
;DOES R2=52525 
;YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 


SET R3 BIT TESTS 


3R32177777 
sDOES R3=177777 
sYES GO ON 
;CPU ERROR 

sNO GO TO ERROR 
3R3=0 

sDOES R3=0 

:YES GO ON 





SEQ 0100 





| 
COKDADO KDJ11-B CLUSTER DIAG. 


5341 021770 104001 


5343 021772 012703 125252 
5344 021776 020327 125252 
5345 022002 001401 
104001 


5348 022006 012703 052525 
5349 022012 020327 052525 
$350 022016 001401 
5351 022020 104001 


5353 022022 
5357 022022 


5359 022022 012704 
5360 022026 020427 
5361 022032 001401 
5362 022034 104001 


5364 022036 005004 
5365 022040 020427 000000 
5366 022044 001401 
5367 022046 104001 


5369 022050 012704 
5370 022054 020427 
5371 022060 001401 
5372 022062 104001 


5374 022064 012704 052525 
5375 022070 020427 052525 
5376 022074 001401 
5377 022076 104001 


5379 022100 
5383 022100 


5385 022100 012705 
5386 022104 020527 
5387 022110 001401 
5388 022112 104001 


5390 022114 005005 
5391 022116 020527 000000 
5392 022122 001401 
5393 022124 104001 


5395 022126 012705 
5396 022132 020527 
5397 022136 001401 
5398 022140 104001 


5400 022142 012705 052525 
5401 022146 020527 052525 


177777 
177777 


125252 
125252 


177777 
177777 


125252 
125252 





3$: 


4$: 


3 
ALR4TS: 
3 


1$: 


2s: 


3$: 


1$: 


2s: 


3$: 


K8 
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ERROR +1 
MOV #125252 ,R3 
CMP R3,#125252 
BEQ 3$ 
ERROR +1 


MOV #52525 ,R3 
CMP —, 


ERROR +1 


ALTERNATE REGISTER 
MOV 


#177777 ,R4 
CMP R4,4177777 
BEQ i$ 
ERROR +1 
CLR RG 
CMP R4,#0 
BEQ 2$ 
ERROR +1 


MOV #125252 ,R4 
CMP -* rcs 


ERROR +1 
MOV #52525 ,R4 
CMP R4,#52525 
BEQ 4$ 
ERROR +1 


ALTERNATE REGISTER 


MOV 0177777,R5 
CMP RS, #177777 
BEQ i$ 

ERROR +1 

CLR RS 

CMP RS, #0 

BEQ 2s 

ERROR +1 


MOV #125252,R5 
CMP ~ ‘creas 


ERROR +1 


MOV #52525 ,R5 
CMP RS, #52525 





;CPU ERROR 
;NO GO TO ERROR 
3R3=125252 
;DOES R3=125252 
;YES GO ON 

;CPU ERROR 
;NO GO TO ERROR 
3R3=52525 
;D0ES R3=52525 
;YES GO ON 

;CPU ERROR 
;NO GO TO ERROR 


SET R4 BIT TESTS 
3R4=177777 
;DOES R4=177777 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
3;R4=0 
;DOES R4=0 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
3R4=125252 
;DO0ES R4=125252 
GO ON 


;YES 
;CPU ERROR 
:NO GO TO ERROR 
3R4=52525 
;DOES R4=52525 
;YES GO ON 


;CPU ERROR 
sNO GO TO ERROR 


SET RS BIT TESTS 

3R5=177777 
;D0ES R5=177777 
;YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
3;R5= 
;DOES R5S=0 
:YES GO ON 

;CPU ERROR 
:NO GO TO ERROR 
3R5=125252 
;DOES R5=125252 
;YES GO ON 

;CPU ERROR 
;NO GO TO ERROR 
3R5=52525 
;DOES RS=52525 





SEQ 0101 


——- en 


| 

| 
5402 
5403 
5404 
5405 
5406 
5407 
5410 





COKDADO KDJ11-B CLUSTER DIAG. 
*eeee¢eee¢¢e¢ DOUBLE OPERAND TESTS eeesecesecacesene 


= —- - 


022152 
022154 


022156 


022164 
022164 


022166 
022172 
022176 
022202 
022206 
022210 
022214 
022216 


022220 
022222 
022224 


022226 
022232 


022270 
022272 
022274 


022276 


001401 
104001 


042767 


005004 


012701 
012702 


021127 
001363 


012701 
012702 
012703 
010605 
011137 
106706 
023712 
001401 
104001 


020613 
001401 
104001 


010506 


012701 
012702 
012703 
005037 
012704 
012137 
106724 
023722 
001401 
104001 


020427 
001401 


004000 


022374 
022404 
022412 
177776 


177776 


177777 


022374 
022404 
022412 


177776 
177776 


022374 
022404 
022420 
114146 
114146 
177776 


177776 


114147 


MACRO YOS.02 


155612 4%: 
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3 
TE115: 


1$: 


2$: 


3$: 


101$: 


102$: 


103$.; 


4$: 


5$: 





BEQ 
ERROR 


BIC 


TEST MOVE FROM PROCCESSOR STATUS 
CLR R4 








L8 


as 
+1 


#B1IT11,PS 


@TE115A,R1 
#TE1156,R2 
#TE115C,R3 
enone 


80177776,CR2)+ 
2s 

+1 

R4,(R3)+ 

3$ 

+1 
(R1),0177777 
1$ 


#TE115A,R1 
#TE115B6,R2 
#TE115C,R3 


R6,RS 
anata 


6 

80177776, (R2) 
102$ 

+1 


R6,(R3) 
103$ 
+1 


RS,R6 


#TE115A,R1 
#TE1158,R2 
#TE115D0,R3 
QGEXPDAT 
@EXPDAT ,R4 
(R1)+,80177776 
(R4)+ 

SOOT ETE LRB De 


+1 
R4, #@EXPDAT+1 
6$ 


:YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sRETURN TO PRIMARY GEN PURPOSE REGS 


INST (MFPS) 
sSETUP DESTINATION R4 


sSETUP POINTERS TO TABLES 


: 
sSETUP PSW 
; TEST INSTRUCTION 
sCHECK PSW 
;0K GO ON 
sCPU ERROR 
sNO GO TO ERROR 
s;CHECK R4 
0K GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sARE WE DONE 
sNO GO TO 1$ 


sSETUP POINTERS TO TABLES 
; 


; 

sSAVE STACK IN RS 
sSETUP PSW 

; TEST ~~ acide 


;0K GO ON 
;CPU ERROR 
:NO GO TO ERROR 
;CHECK R6 
;0K GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sRESTORE STACK 


sSETUP POINTERS TO TABLES 
3 


; 
sINIT EXPECTED DATA HOLDER. 
;SETUP POINTER TO TEST LOCATION 
sSETUP PSW 
; TEST INSTRUCTION 
;CHECK PSW 
30K GO ON 

;CPU ERROR 

sNO GO TO ERROR 
sCHECK R4 
;0K GO ON 





SEQ 0102 


baer: | 











M8 
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SE 
eeeeeeeeeee¢ DOUBLE OPERAND TESTS eeseceesesececese case 
5461 022350 104001 ERROR o1 ;CPU ERROR 
5462 sNO GO TO ERROR 
5463 022352 023723 114146 6$: CMP BHEXPDAT , CR3)+ sCHECK TEST LOCATION 
5464 022356 001401 BEQ 7$ ;0K GO ON 
5465 022360 104001 ERROR o1 ;CPU ERROR 
5466 sNO GO TO ERROR 
5467 022362 021127 177777 7$: CMP CR1),0177777 sARE WE DONE 
94 022366 001354 BNE 4$ sNO GO TO 4$ 
oda 022370 000167 000032 JMP TE115F 
5472 F 
5473 : 
5474 022374 030207 TE115SA: .WORD 30207 
5475 022376 030000 . WORD 30000 
5476 022400 030057 -WORD 30057 
5477 022402 177777 -WORD 177777 
5478 022404 030211 TE1158: .WORD 30211 
5479 022406 030004 -WORD 30004 
5480 022410 030041 -WORD 30041 
5481 022412 177607 TE115C: .WORD 177607 
5482 022414 -WORD O 
5483 022416 000057 -WORD 57 
5484 022420 000207 TE1150: .WORD 207 
5485 022422 -WORD 0O 
5486 022424 000057 -WORD 57 
oe 022426 000240 TE115F: NOP 
3 
5491 022430 TE116: 
oo 3 TEST MOVE TO PROCESSOR STATUS INST (MTPS) 
5494 022430 012737 030000 177776 MOV #30000 , 84177776 ;SET PSW TO KERNEL MODE 
5495 022436 012701 022732 MOV #TE1160,R1 ;SETUP POINTERS TO TABLES 
5496 022442 012702 022710 MOV #TE116B ,R2 ; 
5497 022446 010103 MOV R1,R3 ; 
5498 022450 004767 000136 JSR PC,1T116 ; TEST INSTRUCTION AND CHECK PSW 
5499 sAND SOURCE OPERAND 
Ss0s 
5502 022454 012737 140000 177776 MOV #140000 , 80177776 ;SET PSW TO USER MODE 
5503 022462 012706 000600 MOV #600 ,R6 sSETUP USER STACK 
5504 022466 012701 022732 MOV #TE1i6D, R1 sSETUP POINTERS TO TABLES 
5505 022472 012702 022722 MOV #TE116C ,R2 ; 
5506 022476 010103 MOV R1,R3 3 
5507 022500 004767 000106 JSR PC,7116 ; TEST INSTRUCTION AND CHECK PSW 
5508 ;AND SOURCE OPERAND 
3510 
5511 022504 012737 140000 177776 MOV #140000 , 80177776 sSET PSW TO USER MODE AND CLEAR CC BITS 
$5512 022512 012701 022704 MOV @TE116A,R1 sSETUP POINTERS TO TABLES 
5513 022516 012702 022722 MOV #TE116C ,R2 3 
5514 022522 012703 022732 MOV #TE116D0,R3 3 
5515 022526 010104 MOV R1,R4 sSAVE A COPY OF Ri INTO R4 
5516 022530 004767 000110 JSR PC,TA116 ; TEST INSTRUCTION AND CHECK PSW 
5517 ;AND SOURCE OPERAND 
5518 
| 5519 
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eeeeeeeeeese DOUBLE OPERAND TESTS eeeeseceseseseses 


5543 022626 
5544 022630 
5545 022632 


5547 022634 
5548 022640 
5549 022642 


5551 022644 


5575 022714 
5576 022716 


012737 
012701 
012702 
012703 
010104 
004767 


005037 
106427 
022737 
001401 
104001 


022305 
001401 
104001 


021227 


122423 
001401 
104001 


020104 
001401 
104001 


005203 


030000 
022704 
022710 
022732 
000060 


177776 
177412 
000012 


000130 


177776 


177777 


177776 


177777 


177776 


177776 





MOV 30000 , 80177776 
MOV #TE116A,R1 
MOV 6TE116B6 ,R2 
MOV #TE1160,R3 
MOV R1,R4 
JSR PC,TA116 
CLR 80177776 
MTPS #177412 
CMP $12 ,80177776 
BEQ . 100% 
ERROR o1 

100%: 

a JMP FIN116 

3 

7116: MOV CR1)-,RS 
MTPS RS 
CMP. 80177776, (R2)« 
BEQ i$ 
ERROR o1 

1$ CMP CR3)+,R5S 
BEQ 2s 
ERROR o1 

2s: CMP CR2),0177777 
BNE 7116 
RTS PC 

3 

TA116: MTPS CR1)-« 
CMP 80177776, (R2)« 
BEQ i$ 
ERROR ol 

1$: CMPB CR4)+,(R3)- 

wise BEG 2s 
ERROR ol 

2s: CMP R1,R4 
BEQ 3$ 
ERROR o1 

3$: INC R3 
CMP (R2), 4177777 
BNE TA116 
RTS 

3 

TE1I6A: .BYTE 377 
.BYTE 0 
-BYTE 252 
.BYTE 125 

TE1168: .WORD 30357 
-WORD 30000 
-WORD 30252 
-WORD 30105 
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sSET PSW TO KERNEL MODE 
sSETUP POINTERS TO TABLES 
; 


: 
sSAVE A COPY OF Ri INTO R4 

s TEST INSTRUCTION AND CHECK PSwW 
sAND SOURCE OPERAND 


sSET PSW TO KERNEL MODE 
sTEST INSTRUCTION 
sIS PSW CORRECT 
;YES GO ON 
sCPU ERROR 
sNO GO TO ERROR 


sMOVE TEST DATA TO RS 
s TEST INSTRUCTION 
sIS PSW CORRECT 
sYES GO ON 
sCPU ERROR 
sNO GO TO ERROR 
sIS RS CORRECT 
GO ON 


sYES 

;CPU ERROR 

sNO GO TO ERROR 
sARE WE DONE 
sNO GO TO T7116 
sRETURN 


s_ TEST INSTRUCTION 
sIS PSW CORRECT 
sYES GO ON 
sCPU ERROR 
sNO GO TO ERROR 
sCHECK TEST LOCATION 
GO ON 


30K 
;CPU ERROR 
sNO GO TO ERROR 

sIS SOURCE OPERAND CORRECT 

sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 

sPOINT TO NEXT WORD 

sARE WE DONE 

sNO GO TO TA116 

;RETURN 


SEQ 0104 





— ae ee ee ee 
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eeeeeeseeeee DOUBLE OPERAND TESTS eeccececeseceeece 
5877 022720 177777 -WORD 177777 
5578 022722 140017 TE116C: .WORD 140017 
5579 022724 140000 «WORD 140000 
5580 022726 140012 «WORD 140012 
5581 022730 140005 -WORD 140005 
5582 022732 177777 TE1160: .WORD 177777 
5583 022734 177400 -WORD 177400 
5584 022736 177652 -WORD 177652 
oes 022740 177525 -WORD 177525 
3 
5587 022742 FIN1I16: 
5588 3 
5598 022742 TE117: 
5599 ; TEST MFPT CMOVE FROM PROCESSOR TYPE) 
5600 022742 013746 000010 MOV @@10,-CSP) sSAVE VECTOR 
5601 022746 012737 023054 000010 MOV #TE117A,a010 sSETUP VECTOR TO HANDLE POSSIBLE ILLEGAL INST TRAP 
5602 022754 012700 177777 MOV 9177777,RO sINIT RO 
5603 022760 012737 030000 177776 MOV #30000 , 84177776 sSETUP PSW 
5604 022766 000007 -WORD 7 ; TEST INSTRUCTION 
5605 022770 022737 030000 177776 CMP #30000 , 80177776 sIS PSW CORRECT 
5606 022776 001401 BEQ i$ ;YES GO ON 
5607 023000 104001 ERROR ol ;CPU ERROR 
5608 sNO GO TO ERROR 
5609 023002 020027 000005 i$: CMP RO,@5 sIS RO CORRECT 
5610 023006 001401 BEQ 2s ;YES GO ON 
5611 023010 104001 ERROR ol ;CPU ERROR 
5612 sNO GO TO ERROR 
5613 023012 012700 177777 2s: MOV #177777,RO sINIT RO 
5614 023016 000277 Scc ;SET ALL CC BITS 
5615 023020 000007 % -WORD 7 ; TEST INSTRUCTION 
5616 023022 022737 030017 177776 CMP #30017 ,980177776 :IS PSW CORRECT 
5617 023030 001401 BEQ 3$ ;YES GO ON 
5618 023032 104001 ERROR ol ;CPU ERROR 
5619 sNO GO TO ERROR 
5620 023034 020027 000005 3$: CMP RO, #5 :IS RO CORRECT 
5621 023040 001401 BEQ 4$ ;YES GO ON 
5622 023042 104001 ERROR ol ;CPU ERROR 
5623 :NO GO TO ERROR 
ne 023044 012637 000010 4$: MOV (SP)+,a#10 sRESTORE VECTOR 
2 
ao 023050 000167 000002 JMP FIN117 
3 
5628 023054 104001 TE117A: ERROR +1 ;CPU ERROR 
neee ;GO TO ERROR IF TRAP TAKES PLACE 
3 
5631 023056 000240 FIN117: NOP 
5632 3 
5644 023060 TE120: 
5645 ; TEST HALT (NOT KERNEL MODE) 
5646 023060 005037 177766 CLR 80177766 :INIT CPU ERROR REG 
5647 023064 005037 177776 CLR 80177776 sINIT PSW-SET KERNEL MODE 
5648 023070 013746 000004 MOV a04,-(CSP) sSAVE VECTOR 
5649 023074 013746 000006 MOV av6,-CSP) sSAVE VECTOR 
5650 023100 012737 023134 000004 MOV #TE120A,304 ;SET UP VECTOR TO HANDLE ILLEGAL HALT 
5651 023106 005037 000006 CLR a6 ;SET UP VECTOR TO COME BACK IN KERNEL MODE 
5652 023112 012767 140000 154656 MOV #140000 ,PS ;SET IN USER MODE 
| S653 023120 012706 000600 MOV #600 ,R6 sINITIALIZE THE USER STACK POINTER 


. 
_—— -- ww ee ee ee (ee a RRR NRE RR ARR ns 














—-, 
' 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS seeacececeseceane 


5654 023124 000000 HALT 
aoe 023126 104001 PROCNT: ERROR ol 
5657 023130 000167 000044 JMP FIN120 
5658 3 
5659 5 
5660 023134 022737 030000 177776 TE120A: CMP #30000 , 80177776 
5661 023142 001401 BEQ i$ 
aees 023144 104001 ERROR o1 
5664 023146 022737 000200 177766 13: CMP $200 , 8177766 
5665 023154 001401 BEQ 2$ 
aes 023156 104001 ERROR o1 
5668 023160 022627 023126 2$: CMP (SP )+, #PROCNT 
5669 023164 001401 BEQ 3$ 
ate 023166 104001 ERROR +1 
5672 023170 022627 140000 3$: CMP (SP)+, #140000 
5673 023174 001401 BEQ FIN120 
a. 023176 104001 ERROR o1 
5676 023200 012637 000006 FINi20: MOV (SP)+, a6 
5677 023204 012637 000004 MOV (SP)+,ae4 
5678 
5679 3 
5682 023210 TE121: 
5683 3 TEST RESET 
5684 8 CMPB #APTENV, $ENV 
5685 3 BNE i$ 
5686 023210 005767 155772 TST $PASS 
5687 023214 001402 BEQ 1$ 
aos 023216 000167 000622 JMP FINi22 
5690 023222 012737 030340 177776 i$: MOV #30340 , 80177776 
5691 023230 012737 160000 177572 MOV #160000 ,8#177572 
5692 023236 012737 000077 172516 MOV #77 ,80172516 
5693 023244 005037 177772 CLR 8177772 
5694 023250 023727 177772 000000 CMP 80177772, #0 
5695 023256 001401 BEQ Ci2iaA 
pees 023260 104001 ERROR ol 
5698 023262 012737 025000 177772 C121A: MOV #25000 ,8#177772 
5699 023270 022737 025252 177772 CMP #25252 ,80177772 
5700 023276 001401 BEQ C1218 
eres 023300 104001 ERROR ol 
5703 023302 012737 077000 177772 Ci21B: MOV #77000 , 80177772 
5704 023310 022737 077314 177772 CMP 77314 ,980177772 
5705 023316 001401 BEQ c1i2ic 
Lk 023320 104001 ERROR o1 
5708 023322 000277 cazic: sce 
5709 023324 000005 RESET 
5710 023326 022737 030357 177776 CMP #30357, 80177776 
5711 023334 001401 BEQ 1$ 
023336 104001 ERROR ol 


w 
~ 
~— 
'w 
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SEQ 0106 


3 TEST INSTRUCTION 

;CPU ERROR 

;IF NOTHING HAPPENED GO TO ERROR 
; 


:IS PSW CORRECT/PREVIOUS MODE = USER? 
sYES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
; TEST CPU ERROR REGISTER 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sDOES STACK CONTAIN CORRECT PC 
sYES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;DOES STACK CONTAIN CORRECT PSW 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
sRESTORE VECTOR 
sRESTORE VECTOR 


;ARE WE IN APT MODE? 
;IF NOT: DO THIS TEST 
sFIRST PASS?? 
3;IF YES, DO IT 
sELSE SKIP THIS TEST BECAUSE RESETS 
;SCREW UP THE APT MONITOR. 
;SETUP PSW TO KERNEL MODE 
sSETUP MMRO 
sSETUP MMR3 
sCLEAR PIRQ 
:IS PIRQ CORRECT 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sMOVE AN ALTERNATING PATTERN TO PIRQ 
:IS PIRQ CORRECT 
:YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
;SETUP PIRQ 
:IS PIRQ CORRECT 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
;SET ALL CC BITS 
3 TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 
;CPU ERROR 





- 


f me ee 
! 


COKDADO KDJ11-B CLUSTER DIAG. MACRO YO0S.02 


eeeeeeeeeeee DOUBLE OPERAND TESTS eeeecvesceseeeceses 


$713 ; 
$714 023340 013701 177572 1$: MOV 
$715 023344 042701 000176 BIC 
$716 023350 022701 000000 CMP 
$717 023354 001401 BEQ 
14 023356 104001 ERROR 
5720 023360 022737 000000 172516 23: CMP 
5721 023366 001401 BEQ 
ro 023370 104001 ERROR 
5724 023372 022737 000000 177772 3%: CMP 
$725 023400 001401 BEQ 
5726 023402 104001 ERROR 
S727 
$728 
5729 023404 013702 000004 4$: MOV 
5730 023410 013703 000006 MOV 
ao 023414 012737 023552 000004 MOV 
5733 023422 012737 000340 000006 MOV 
5734 
5735 
5736 023430 012737 140340 177776 MOV 
5737 023436 012737 160000 177572 MOV 
5738 023444 012737 000077 172516 MOV 
$739 023452 012737 077000 177772 MOV 
5740 023460 000277 scc 
5741 023462 000005 RESET 
$742 023464 022737 140357 177776 CMP 
5743 023472 001402 BEQ 
5744 023474 HALT 
ras 023476 104001 ERROR 
46 
$747 023500 013701 177572 S$: MOV 
5748 023504 042701 000176 BIC 
5749 023510 022701 160000 CMP 
$750 023514 001402 BEQ 
5751 023516 000000 HALT 
de 023520 104001 ERROR 
5754 023522 022737 000077 172516 6%: CMP 
S755 023530 001402 BEQ 
5756 023532 000000 HALT 
ores 023534 104001 ERROR 
5759 023536 022737 077314 177772 7$: CMP 
$760 023544 001403 BEQ 
5761 023546 000000 HALT 
bas 023550 104001 ERROR 
dae 023552 000002 8$: RTI 
5766 023554 005037 177772 9$: CLR 
5767 023560 005037 177776 CLR 
5768 023564 010237 000004 MOV 
023570 010337 000006 MOV 


—<— - 
- a 
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sNO GO TO ERROR 


SEQ 0107 


@eSRO,R1 sSAVE SRO IN Ri. 

#176,R1 sSTRIP OFF UNDEFINED BITS 1-6 FROM MMRO 

#0,R1 IS MMRO CORRECT 

2s sYES GO ON 

+1 s;CPU ERROR 

sNO GO TO ERROR 

#0 ,80172516 sIS MMR3 CORRECT 

3$ ;YES GO ON 

+1 ;CPU ERROR 

sNO GO TO ERROR 

#0 ,980177772 sIS PIRQ CORRECT 

as sYES GO ON 

+1 ;CPU ERROR 

sNO GO TO ERROR 

a4 ,R2 sSAVE LOC 4 IN R2 

206 ,R3 sSAVE LOC 6 IN R3 

8$ , 004 sSETUP VECTORS IN CASE AN ERROR CAUSES 
3A HALT TO OCCUR IN USER MODE. 

#340 , 896 s;THIS SETS KERNEL MODE, AND PREVENTS PRIQ 
s INTERRUPTS FROM TRASHING THE STACK IF A 
sUSER MODE HALT OCCURS. 

#140340 , 80177776 sSETUP PSW TO USER MODE 

#160000 , 84177572 sSETUP MMRO 

#77 ,80172516 sSETUP MMR3 

#77000 , 84177772 sSETUP PIRQ 


sSET ALL CC BITS 
3 TEST INSTRUCTION 


#140357 ,80177776 sIS PSW CORRECT 
S$ sYES GO ON 

s;USER MODE HALT; WILL TRAP TO LOC 4 
+1 ;CPU ERROR 


sNO GO TO ERROR 


84177572,R1 sSAVE MMRO IN R1 
#176,R1 s;CLEAR BITS 1-6 FROM MMRO 
#160000,R1 IS MMRO CORRECT 
6$ *YES GO ON 

s;USER MODE HALT; WILL TRAP TO LOC 4 
+1 ;CPU ERROR 

sNO GO TO ERROR 

#77 ,80172516 sIS MMR3 CORRECT 
7$ ;YES GO ON 

sUSER MODE HALT; WILL TRAP TO LOC 4 
+1 ;CPU ERROR 


sNO GO TO ERROR 
s3IS PIRQ CORRECT 
;YES GO ON 
sUSER MODE HALT; WILL TRAP TO LOC 4 
+1 ;CPU ERROR 
sNO GO TO ERROR 
sUSER MODE HALT OCCURRED; GO TO ERROR. 


ate caamanictli 


80177772 ;CLEAR PIRQ 

00177776 ;CLEAR PSW 

~ On sRESTORE VECTORS TO PREVIOUS STATE 
a 3 


ee 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS eeeececeseecesecs 
FINI21: 
Te122: 


$770 
$771 


023574 
023574 


023574 


023666 


023672 
023676 
023700 
023702 
023704 
023706 
023712 
023714 
023716 
023720 
023722 
023726 
023730 
023732 
023734 
023736 
023742 
023744 
023746 
023750 
023752 
023756 
023760 
023762 
023764 
023766 
023772 
023774 


012705 
012701 
012737 
004767 
022137 
001401 
104001 


077512 


012705 
012737 
012706 
004767 
022737 
001401 
104001 


077515 


000167 


020527 
001003 


000010 
024024 
030000 

S4 


0000 
177776 


000020 
140017 


000152 
000010 


000007 
000006 


000005 


000003 


MACRO YOS.02 


177776 


177776 


177776 


1$: 


2$: 


3$: 


4$: 








cy 
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3 
T122A: 


1$: 


2s: 


3$: 


4$: 


5$: 


SEQ 0108 


TEST SPL (SET PRIORITY LEVEL) 





#8. ,RS sINIT COUNTER 

#T122B,R1 sSETUP POINTER TO DATA 

#30000 ,8#177776 sINIT PSW 

PC,T122A s TEST INSTRUCTION 

(R1)+, 80177776 sIS PSW CORRECT 

2s ;YES GO ON 

+1 ;CPU ERROR 

sNO GO TO ERROR 

RS,1$ sREPEAT UNTIL ALL CASES ARE TESTED 

#8. ,RS sINIT COUNTER 

#140000 , 8#177776 sSETUP PSW TO USER MODE 

#600 ,R6 sSETUP USER STACK 

PC,T122A ;_ TEST INSTRUCTION 

#140017 ,8#177776 sIS PSW CORRECT 

4$ ;YES GO ON 

+1 ;CPU ERROR 

sNO GO TO ERROR 

RS,3$ sREPEAT UNTIL ALL CASES ARE TESTED 

FIN122 

RS, #8. sFIND OUT WHAT COUNTER IS 

1$ sIF NOT PRIORITY O GO TO 1$ 
sSET ALL CC BITS 

0 ;SET PRIORITY TO 0 

8$ sRETURN 

RS, #7 sFIND OUT WHAT COUNTER IS 

2$ ;IF NOT PRIORITY 1 GO TO 2¢ 
sSET ALL CC BITS 

1 sSET PRIORITY TO 1 

8$ sRETURN 

RS, #6 sFIND OUT WHAT COUNTER IS 

3$ ;IF NOT PRIORITY 2 GO TO 3$ 
sSET ALL CC BITS 

2 sSET PRIORITY TO 2 

8$ sRETURN 

RS, #5 sFIND OUT WHAT COUNTER IS 

4s sIF NOT PRIORITY 3 GO TO 4$ 
sSET ALL CC BITS 

-. ;SET a TO 3 

RS, 04 sFIND OUT WHAT COUNTER IS 

S$ IF NOT PRIORITY 4 GO TO S$ 
s;SET ALL CC BITS 

4 sSET PRIORITY TO 4 

8$ sRETURN 

RS, #3 sFIND OUT WHAT COUNTER IS 

6$ sIF NOT PRIORITY S GO TO 6$ 


sSET ALL CC BITS 





ee ee 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeeeeees DOUBLE OPERAND TESTS eeceecceesececeae 


023776 
024000 
024002 
024006 
024010 
024012 
024014 
024016 
024020 
024022 


024024 
024026 
024030 
024032 
024034 
024036 
024040 
024042 
024044 


024046 


024046 
024052 
024056 
024062 
024066 
024070 
024072 
024076 
024104 
024106 
024112 
024116 
024122 
024124 
024132 
024134 
024136 
024142 
024144 


024146 
024150 
024152 


024154 
024156 
024160 
024162 
024164 


024166 
024172 
024174 
024176 


052713 
022341 
001401 
104001 


177776 
000012 
000400 
024230 


000010 
024254 
000400 
000410 
000416 


030000 


177776 


000001 


MACRO YOS.02 


6$: 


7$: 
8$: 

3 
T1228: 


FINI22: N 


; 
TE123: 


100$: 


000010 


177776 1%: 


2s: 


3$: 


4$: 





TEST TSTSET INS 


CLR 
MOV 





ry 


8#177776 
#10. ,R3 
#400,R1 
#T123A,RO 
CRO)+,CR1)+ 
R3,100$ 
#T123D,9#10 
RO 


R1,R4 
#30000 , 84177776 


7221 
at taaicinians 
2 


+1 


#1,(R3) 
C(R3)+,-CR1) 
S$ 


+1 
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SEQ 0109 


;SET PRIORITY TO 5 
;RETURN 
sFIND OUT WHAT COUNTER IS 
;IF NOT PRIORITY 6 GO TO 7$ 
;SET ALL CC BITS 
:SET PRIORITY TO 6 
sRETURN 
;SET ALL CC BITS 
;SET PRIORITY TO 7 
;RETURN 
' 


TRUCTION (MULTI oo INST) 


sINIT PSW 

sINIT COUNTER 

sSETUP DESTINATION 

sSETUP SOURCE 

sRELOCATE TABLES 

sARE WE DONE 

sSAVE VECTOR 

sSETUP NEW VECTOR 

sINIT RO 

sSETUP POINTERS TO TABLES 


; 
sSETUP PSW 
sSET V BIT 
;_ TEST INSTRUCTION 
IS PSW CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS RO CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sSETUP EXPECTED DATA 


; 
:IS Ri CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sSETUP EXPECTED DATA 
sIS TEST LOCATION CORRECT 
;YES GO ON 
:CPU ERROR 





ee 


i 
' 


COKDADO KDJ11-B CLUSTER DIAG. 


*¢eeeeeeeeee DOUBLE OPERAND TESTS eaeaeecacecaececen 


5889 024200 
5890 024202 
024204 
5892 024210 
5893 024212 
024220 
024222 


5897 024224 


024230 
024232 
5902 024234 
5903 024236 
S904 024240 
S905 024242 
5906 024244 
024246 
5908 024250 
024252 
$910 024254 


5912 024256 
5913 024260 
024262 


5919 024266 


024266 
5922 024272 
5923 024276 
024302 
024306 
5926 024310 
024312 
5928 024316 
$929 024324 
5930 024330 
024334 
5932 024340 
024342 
024350 
5935 024352 
5936 024356 
024360 


5945 024402 





177777 
024256 000010 


000032 


000010 


177776 
000012 


000400 
024462 


000010 


024506 000010 


177776 


177776 


5$: 


100$: 


1$: 


2s: 


3$: 
4$: 


G9 


Ri 

Ri 
ean 
1 

#T123E ,810 
7201 

+1 

T123F 


(SP)+,a#10 
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SEQ 0110 


sNO GO TO ERROR 
;POINT TO NEXT TEST LOCATION 


F 
;ARE WE DONE 
sNO GO TO 1$ 
;SETUP NEW VECTOR 
coy € : TEST INSTRUCTION ILLEGAL MODE 
;CPU 


RROR 
;GO TO ERROR IF DIDN'T TRAP 


;CPU ERROR 
:GO TO ERROR IF TRAPPED 
sCLEAN UP STACK 


;RESTORE VECTOR 


TEST WRTLCK (WRITE LOCK MULTI PROCESSING INST) 


CLR 
MOV 
MOV 
MOV 
MOV 
SOB 
MOV 
MOV 
MOV 


84177776 


CRO)+,CR1)+ 
R3,100$ 

#10, -(SP) 
#T1240,8#10 
#400 ,R1 

#410,R2 

#416,R3 

R2,R4 
#30000 , 80177776 


7322 

(R3)+, 8177776 
S$ 

+1 


sINIT PSW 

sINIT COUNTER 
sSETUP DESTINATION 
sSETUP SOURCE 
sRELOCATE TABLES 
sARE WE DONE 

sSAVE VECTOR 
sSETUP NEW VECTOR 
;SETUP POINTERS TO TABLES 
3 

; 


sSETUP PSW 

;SETUP RO 

:IS THIS THE FIRST TEST CASE 
;YES GO TO 2$ 

sNO GO TO 3$ 

sSET C BIT 


5 
;CLEAR C BIT 
;SET V BIT 
; TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 

;CPU ERROR 

sNO GO TO ERROR 


~ 


a 


~_—, 


-_—_—— 


——— — 


024404 
024406 
024410 


024412 
024414 
024416 
024420 
024422 


024424 
024426 
024430 


024432 
024434 
024436 
024442 
024444 
024452 
024454 


024456 


024510 
024512 
024514 


024520 


024520 
024524 


024530 
024534 
024542 
024546 
024550 
024552 
024556 
024564 
024566 


022142 
001401 
104001 


005202 
005202 
021127 
001337 
012737 
007302 
104001 


000167 


167604 
000000 


005726 
012637 


005037 
012701 


010137 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeee¢ee¢e DOUBLE OPERAND TESTS «eeecesceecaccacee 


177777 
024510 


000032 


000010 


177776 
024760 


114146 
000002 
122222 


000002 
000004 


000010 


114146 


177776 


S$: 


6$: 


7$: 


8$: 





TEST MUL (MULTIPLY INST) 


CLR 
MOV 


H9 
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C(R1),RO 
6 


+1 
(R1)+,-CR2) 
8$ 

+1 

R2 

R2 

+ paces 
#T124E ,9#10 
7302 

+1 

T124F 


167604 
0 


CSP )+ 
(SP )+ 
(SP)+,a#10 


90177776 
#TE125A,R1 


R1,@#EXPDAT 
#2, 9@EXPDAT 
#122222 ,R3 
C(R1),R2 


2(R1),R2 


2 
+1 


+ caren 





sIS RO CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sSETUP EXPECTED DATA 


‘ 
sIS R2 CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
sIS TEST LOCATION CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sPOINT TO NEXT TEST LOCATION 
; 


sSETUP NEW VECTOR 

;_ TEST INSTRUCTION ILLEGAL MODE 
;CPU ERROR 
;GO TO ERROR IF DIDN'T TRAP 


;CPU ERROR 
;GO TO ERROR IF TRAPPED 
;CLEAN UP STACK 


; 
sRESTORE VECTOR 


sINIT PS 
sSETUP POINTERS TO TABLES 


; 
sPOINT TO SOURCE 
sINIT R3 TO A KNOWN STATE 
sINIT DESTINATION REG 
;SET ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 





SEQ 0111 


-- 





t-- ~ --————--- 


COKDADO KDJ11-B8 CLUSTER DIAG. 


MACRO YOS.02 





*e¢eeeeeee0e¢ DOUBLE OPERAND TESTS seececcecceccacese 


6006 024570 026103 000006 
6007 024574 001401 
6008 024576 104001 


6010 024600 026102 000010 
6011 024604 001401 
6012 024606 104001 


6014 024610 026177 000002 
6015 024616 001401 
6016 024620 104001 


6018 024622 062701 000012 
6019 024626 020127 025206 
6020 024632 001336 


6026 024634 012701 024760 
6027 024640 

6028 024640 010102 

6029 024642 012706 001000 
6030 024646 012704 000004 
6031 024652 011105 

6032 024654 000277 

6033 024656 070561 000002 
6034 024662 026137 000004 
6035 024670 001401 

6036 024672 104001 


6038 024674 026105 000006 
6039 024700 001401 
6040 024702 104001 


6042 024704 020627 001000 
6043 024710 001403 
6044 024712 012706 001000 
6045 024716 104001 


6047 024720 005722 
6048 024722 021261 000002 
6049 024726 001401 
6050 024730 104001 


6052 024732 020427 000004 
6053 024736 001401 
6054 024740 104001 


6056 024742 062701 000012 


6057 024746 020127 025206 
6058 024752 001332 


6061 024754 000167 000226 


067330 


177776 


19 


2$: CMP 6(R1),R3 
BEQ 3$ 
ERROR +1 

3$: CMP 10(R1),R2 
BEQ 4a$ 
ERROR +1 

4$: CMP 2(R1),@EXPDAT 
BEQ 5$ 
ERROR 1 

S$: ADD #12,R1 
CMP R1, #FIN125 
BNE 1$ 

H 

;SECOND PART 

;USING ODD REGISTER 

Hy 

6¢: MOV #TE125A,R1 

{ MOV R1,R2 

MOV #STBOT,R6 
MOV $4,R4 
MOV (R1),RS 
Scc 
MUL 2(R1),R5 
CMP 4(R1), 90177776 
BEQ 8$ 
ERROR +1 

8$: CMP 6(R1),R5 
BEQ 9$ 
ERROR +1 

9$: CMP R6, #@STBOT 
BEQ 10$ 
MOV #STBOT,R6E 
ERROR 1 

10$: TST (R2)+ 
CMP (R2),2(R1) 
BEQ 11$ 
ERROR +1 

11s: CMP R4,04 
BEQ 12$ 
ERROR +1 

12 ADD #12,R1 
CMP R1, #FIN125 
BNE 7$ 
uMP FIN125 
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sIS R3 CORRECT 
;YES GO ON 

;CPU ERROR 

sNO GO TO ERROR 
IS R2 CORRECT 
sYES GO ON 

;CPU ERROR 

sNO GO TO ERROR 
sIS SOURCE LOCATION OK 
;YES GO ON 

;CPU ERROR 

sNO GO TO ERROR 
sGO TO NEXT TEST 
sARE WE FINISHED 
sNO GO TO 1$ 


s;SETUP POINTERS TO TABLES 


; 
sINIT R6 TO A KNOWN STATE 
sSETUP R4 VALUE 
sINIT DESTINATION REG 
sSET ALL CC BITS 
;_ TEST INSTRUCTION 
sIS PS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS RS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS R6 CORRECT 
sYES GO ON 
sRESTORE SP 
;CPU ERROR 
sNO GO TO ERROR 
sPOINT TO SOURCE OPERAND 
sIS SOURCE LOCATION OK 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS R4 CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 


; 
sARE WE FINISHED 
sNO GO TO 7$ 


SEQ 0112 


‘ 





MACRO YOS.02 





*eeeeeeeee4ee DOUBLE OPERAND TESTS eeeececcececeeeesn 


_-_ 


024760 
024762 
024764 
024766 
024770 


024772 


025032 


025050 
025052 


025054 
025056 
025060 
025062 
025064 


025066 
025070 
025072 
025074 
025076 


025100 
025102 
025104 
025106 
025110 


025112 
025114 


177777 
177777 


174403 
177777 
077777 
177777 
077777 


177777 
077777 


COKDADO KDJ11-B CLUSTER DIAG. 
000000 
000000 
000001 
000000 
000000 
000004 
100000 
000000 

| 

' 


; 
TE125A: . 





JJ 


177777 
177777 


0 
174403 


177777 
77777 
10 
100001 
177777 


77777 
456 


1 
177322 
226 


173210 


ooso 


wo 
is¥) 
uw 
= 


oofoo oof 


100000 
177777 
77777 
1 

0 
77777 
0 


10 
10000 
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sMULTIPLICAND 
sMULTIPLIER 


sMULTIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


sMULTIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


sMULTIPLICAND 
sMULTIPLIER 


sMULTIPLICAND 
;MULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


SEQ 0113 





bo Kg 
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*¢e¢ee¢¢e¢0¢e DOUBLE OPERAND TESTS eeeceeececececese 





6120 025116 
6121 025120 
oiss 025122 


6124 025124 


6134 025146 


6136 025150 
6137 025152 
6138 025154 
6139 025156 
6140 025160 


6142 025162 
6143 025164 
6144 025166 
6145 025170 
6146 025172 


6148 025174 
6149 025176 
6150 025200 
6151 025202 
6152 025204 
6153 025206 


6157 025206 


6159 025206 
6160 025212 
6161 025214 
6162 025220 
6163 025224 
6164 025232 
6165 025240 
6166 025242 
6167 025246 
6168 025252 


6170 025254 
6171 025262 
6172 025264 
6173 025270 


6175 025272 
6176 025276 
6177 025300 
| 6178 025302 


177777 


001403 


177776 


000000 
000002 
000137 
025254 


000002 — 


001000 


000000 
001000 


025246 


000000 
000002 


177776 


«WORD 1 
-WORD 100000 
-WORD O 
-WORD 1452 
-WORD 34527 
. WORD 
-WORD 66506 
-WORD 265 
-WORD 7 
-WORD 400 
-WORD O 
-WORD 3400 
-WORD O 
-WORD 2 
«WORD 100000 
-WORD 11 
-WORD 0O 
-WORD 177777 
. WORD 
«WORD 77777 
-WORD 11 
-WORD 100000 
-WORD 140000 
WORD 
-WORD 177777 
. WORD 0 
WORD 177777 
-WORD 177777 
FIN125: 
i 
TE126: 
; TEST DIV (DIVIDE INST) 
CLR 80177776 
CLR R6 
MOV a#0,RS 
MOV ag2,R1 
MOV $137,200 
MOV #TE126A,a%2 
Scc 
DIV #2 ,R6 
A126: MOV #STBOT ,R6 
ERROR +1 
TE126A: CMP #0 ,80177776 
BEQ 1$ 
MOV @STBOT ,R6 
ERROR + 
1$: MOV #A126,R4 
ASR R4 
CMP R4,R6 
BEQ 2¢ 





SEQ 0114 | 


;MULTIPLICAND 
s;MULTIPLIER 


sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


sMULTIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
sMULTIPLIER 


‘sINIT PSW 
sINIT SP 
sSAVE VECTORS 


; 
sSETUP NEW VECTORS 


3 

sSET ALL CC BITS 

; TEST INSTRUCTION 

sRESTORE SP BEFORE GOING TO ERROR 
;CPU ERROR 
sIF R7 ISN'T CORRECT GO TO ERROR 

s3IS PS CORRECT 

sYES GO ON 

sRESTORE SP BEFORE GOING TO ERROR 
;CPU ERROR 
:NO GO TO ERROR 

sSETUP EXPECTED DATA 


é 
sIS R6 CORRECT 


sMULTIPLICAND 
sYES GO ON 








Pies L9 
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SEQ 0115 


—_—_——— - —-— 


*e¢¢ee¢e0ee¢e DOUBLE OPERAND TESTS «eeeeeeeeeeeesece 


6179 025304 012706 001000 MOV #STBOT ,R6 s;RESTORE SP BEFORE GOING TO ERROR 
6180 025310 104001 ERROR +1 s;CPU ERROR 
6181 sNO GO TO ERROR 
6182 025312 010537 000000 2$: MOV RS, 800 sRESTORE VECTORS 
6183 025316 010137 000002 MOV R1,av2 ; 
6184 025322 012706 001000 MOV @STBOT ,R6 sINIT SP 
6185 025326 012702 000006 MOV #6 ,R2 sINIT GPR 2 
6186 025332 012703 000047 MOV 047 ,R3 sINIT GPR 3 
6187 025336 000277 scc s;SET ALL CC BITS 
6188 025340 071302 DIV »R3 3 TEST INSTRUCTION 
6189 025342 022737 000002 177776 CMP #2 ,80177776 IS PS CORRECT 
6190 025350 001401 BEQ ;YES GO ON 
6191 025352 104001 ERROR +1 ;CPU ERROR 
6192 sNO GO TO ERROR 
6193 025354 022702 000006 3$: CMP #6 ,R2 sIS R2 CORRECT 
6194 025360 001401 BEQ 4s sYES GO ON 
6195 025362 104001 ERROR +1 ;CPU ERROR 
6196 sNO GO TO ERROR 
6197 025364 022703 000047 4$: CMP 047 ,R3 IS R3 CORRECT 
6198 025370 001401 BEQ S$ sYES GO ON 
6199 025372 104001 ERROR +1 sCPU ERROR 
6200 sNO GO TO ERROR 
6201 025374 005004 S$: CLR R4 sINIT R4 
6202 025376 012705 000004 MOV #4,R5 sINIT RS 
6203 025402 000277 scc sSET ALL CC BITS 
6204 025404 071427 000000 DIV »R4 ; TEST INSTRUCTION ot 
6205 025410 022737 000007 177776 CMP #7 ,80177776 IS PS CORRECT 
6206 025416 001401 BEQ sYES GO ON 
6207 025420 104001 ERROR +1 ;CPU ERROR 
6208 sNO GO TO ERROR 
6209 025422 022704 000000 6$: CMP #0,R4 :IS R4 CORRECT 
6210 025426 001401 BEQ 7$ ;YES GO ON 
6211 025430 104001 ERROR +1 ;CPU ERROR 
6212 sNO GO TO ERROR 
6213 025432 022705 000004 7$: CMP #4,R5 sIS RS CORRECT 
6214 025436 001401 BEQ 8$ sYES GO ON 
6215 025440 104001 ERROR +1 ;CPU ERROR 
6216 sNO GO TO ERROR 
6217 025442 012700 000004 8$: MOV #4 ,RO sINIT RO 
6218 025446 012705 000010 MOV #10,R5 sINIT RS 
6219 025452 005004 CLR R4 sINIT R4 
6220 025454 000277 scc sSET ALL CC BITS 
6221 025456 071400 DIV RO,R4 ; TEST INSTRUCTION 
6222 025460 022737 000000 177776 CMP #0 ,8#177776 sIS PS CORRECT 
6223 025466 001405 BEQ 9$ sYES GO ON 
6224 025470 010067 152704 MOV RO, 400 s;SAVE RO 
6225 025474 104001 ERROR +1 ;CPU ERROR 
6226 sNO GO TO ERROR 
6227 025476 016700 152676 MOV 400 ,RO sRESTORE RO 
6228 025502 022700 000004 9$: CMP #4,RO sIS RO CORRECT 
6229 025506 001401 BEQ 10$ sYES GO ON 
6230 025510 104001 ERROR +1 ;CPU ERROR 
6231 sNO GO TO ERROR 
6232 025512 022704 000002 10$: CMP #2,R4 sIS R4 CORRECT 
6233 025516 001401 BEQ 11$ sYES GO ON 
6234 025520 104001 ERROR +1 ;CPU E 

} 





Go ——EEE EEE 


RROR 
sNO GO TO ERROR 





— 
' 





COKDADO KDJ11-B CLUSTER DIAG. 


MACRO YOS.02 





¢eeeeeee¢¢¢¢ DOUBLE OPERAND TESTS seseeseseceeceses 


6236 025522 022705 000000 
6237 025526 001401 
6238 025530 104001 


6240 025532 012705 000010 
005004 


6242 025540 000277 
6243 025542 071427 000003 
6244 025546 022737 000000 
6245 025554 001401 
6246 025556 104001 


6248 025560 022704 000002 
6249 025564 001401 
6250 025566 104001 


6252 025570 022705 000002 
6253 025574 001401 
6254 025576 104001 


6259 025600 012701 025730 


6261 025604 010137 114146 
6262 025610 011104 
6263 025612 016103 000004 


6265 025616 016105 000002 
6266 025622 000277 
6267 025624 071401 000004 
6268 025630 026137 000006 
6269 025636 001401 
6270 025640 104001 


6272 025642 026105 000010 
6273 025646 001401 
6274 025650 104001 


6276 025652 026104 000012 
6277 025656 001401 
6278 025660 104001 


6280 025662 023701 114146 
6281 025666 001403 
6282 025670 104001 


6284 025672 013701 114146 
6285 025676 026103 000004 
6286 025702 001403 
6287 025704 104001 


6289 025706 010361 000004 
6290 025712 062701 000014 
6291 025716 021127 000333 
6292 025722 001330 


11$: 


12$: 


177776 


13$: 


14$: 


177776 


17$: 


18%: 


19$: 


208: 


21s: 





M9 
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#0,R5 
12$ 

+1 
#10,R5 
R4 
03,R4 
00 ,80177776 
13% 

ol 
#2,R4 
14$ 

+1 
#2,R5 


15$ 
+1 


#TE126B,R1 
Ri, @EXPDAT 
(R1),R4 
4(R1),R3 
2(R1),RS 


4(R1),R4 


6(R1),80177776 
17$ 


+1 
10(R1),R5 
+ 


12(R1),R4 
~' 


QE XPDAT ,R1 
_ 


QGEXPDAT ,R1 
4(R1),R3 
2i$ 

ol 


R3,4(R1) 
#14,R1 
(R1), #333 
16% 





IS RS CORRECT 
S GO ON 


3 YE 
;CPU ERROR 
;NO GO TO ERROR 
sINIT RS 
sINIT R4 
sSET ALL CC BITS 
3 TEST INSTRUCTION 
sIS PS CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
31S R4 CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
3IS RS CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 


sSETUP POINTERS TO TABLES 


sSAVE A COPY OF Ri 
sINIT R4 
sSAVE SOURCE 


sINIT RS 
;SET ALL CC BITS 
s TEST INSTRUCTION 
:IS PS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
:IS RS CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
:IS R4& CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
:IS R1 CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sRESTORE CORRECT VALUE 
3IS SOURCE CORRECT 
sYES GO ON 
;CPU ERPOR 
sNO GO TO ERROR 
sTRY TO RESTORE CODE 
sPOINT TO NEXT LOCATION 
;ARE WE DONE 
sNO GO TO 16$ 





SEQ 0116 | 





ro ee = 


N9 


i 
| 
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eeeseeeseees DOUBLE OPERAND TESTS eesesseeesecesess SEQ 0117 


6293 
6294 
6295 025724 000167 000316 JMP FIN126 


5 
6298 025730 177777 TE1268: .WORD 177777 ;DIVIDEND 
6299 025732 177777 «WORD 177777 ;INIT RS 
6300 025734 177777 -WORD 177777 ;DIVISOR 
000000 WORD 0 


. > 
6302 025740 000000 -WORD O sRS RESULT 
oes 025742 000001 -WORD 1 sR4 RESULT 


6305 025744 000000 -WORD 0 sDIVIDEND 
6306 025746 177777 «WORD 177777 ;INIT RS 
6307 025750 177777 -WORD 177777 ;DIVISOR 
6308 025752 000012 -WORD 12 sPSW 
6309 025754 177777 -WORD 177777 ;RS RESULT 
6310 025756 000000 «WORD 0O sR4 RESULT 


6312 025760 177777 . WORD ere sDIVIDEND 
6314 025764 177777 ; WORD ore sDIVISOR 


000002 ; 
6316 025770 000000 -WORD 0 sRS RESULT 
6317 025772 177777 -WORD 177777 ;R4 RESULT 


6319 025774 000000 -WORD 0 sDIVIDEND 
6320 025776 007642 -WORD 7642 sINIT RS 
6321 026000 007643 -WORD 7643 sDIVISOR 
6322 026002 000004 -WORD 4 sPSW 

6323 026004 007642 -WORD 7642 sRS RESULT 
6324 026006 000000 -WORD 0 sR4 RESULT 


6326 026010 000000 -WORD 0 sDIVIDEND 
6327 026012 000137 -WORD 137 sINIT RS 
6328 026014 177543 -WORD 177543 ;DIVISOR 
000004 . 4 sPSW 
6330 026020 000137 -WORD 137 sRS RESULT 
6331 026022 000000 -WORD O sR4 RESULT 


6333 026024 000000 -WORD 0 sDIVIDEND 
6334 026026 007643 -WORD 7643 sINIT RS 
6335 026030 007643 -WORD 7643 sDIVISOR 


1 sR4 RESULT 


100000 ;DIVIDEND 
4376 sINIT RS 


177700 ;DIVIDEND 
170033 ;INIT RS 
10021 ,;DIVISOR 


: 
: 
B55 855588 | 
3 
5 
F 











COKDADO KDJ11-B8 CLUSTER DIAG. 


6386 026160 


6400 026210 
6401 026212 


6403 026214 
6404 026216 
6405 026220 
| 6406 026222 





000010 
171307 
176024 


177700 
170033 
167757 


177777 
045716 
000001 
000012 
045716 
177777 


177777 
177776 
000010 


000004 
177776 
000000 





10 
171307 
176024 


177700 
170033 
ies 
171307 
1754 

0 
177777 
1 

2 
177777 
0 


177777 
45716 
1 

12 
45716 
177777 


1) 
2 
177770 
4 


2 
0 


177777 
177776 
10 


4 
177776 
0 


1 
177777 
1 


2 
177777 


CUSKF KFONMNOKY & 





B10 
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eeeeeeeeeees DOUBLE OPERAND TESTS eececesaceceseses 


3;PSW 
3RS RESULT 
sR4 RESULT 


sOIVIDEND 


8 
3R5S RESULT 
3R4&4 RESULT 


sDIVIDEND 


3;PSW 
3RS RESULT 
3R4 RESULT 


sDIVIDEND 


3;PSW 
3R5 RESULT 
3R4 RESULT 


sDIVIDEND 
sINIT RS 


sRS RESULT 
3R4 RESULT 


sDIVIDEND 


RS RESULT 
3R4 RESULT 


sDIVIDEND 
sINIT RS 
;DIVISOR 
3;PSW 

3RS RESULT 
3R4 RESULT 


sDIVIDEND 
sINIT RS 


3;PSW 
3 


sRS RESULT 
sR4 RESULT 


;DIVIDEND 
sINIT RS 
;DIVISOR 
3;PSW 


Ce 


SEQ 0118 





——<- 
' 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeecenee DOUBLE OPERAND TESTS eeeeceececacenesce 


6407 026224 000001 . WORD 
6408 026226 052525 . WORD 
6409 
6410 026230 000023 . WORD 
6411 026232 016054 . WORD 
6412 026234 016537 . WORD 
6413 026236 000000 . WORD 
6414 026240 010222 . WORD 
ot 026242 000246 . WORD 
6417 026244 000333 . WORD 
6418 026246 FIN126: 
6419 ; 
6422 026246 TE127: 
6423 ; TEST AS 
6424 026246 005037 177776 CLR 
6425 026252 012702 000001 MOV 
6426 026256 000277 scc 
6427 026260 072202 ASH 
6428 026262 022737 000000 177776 CMP 
6429 026270 001401 BEQ 
coee 026272 104001 ERROR 
6432 026274 020227 000002 1$: CMP 
6433 026300 001401 BEQ 
4 026302 104001 ERROR 
6436 026304 012702 100000 2$: MOV 
6437 026310 0612703 000001 MOV 
6438 026314 000257 ccc 
6439 026316 072203 ASH 
6440 026320 022737 000007 177776 CMP 
6441 026326 001401 BEQ 
ee 026330 104001 ERROR 
644 
6444 026332 020327 000001 3$: CMP 
6445 026336 001401 BEQ 
—— 026340 104001 ERROR 
644 
6448 026342 020227 000000 4$: CMP 
6449 026346 001401 BEQ 
aoa 026350 104001 ERROR 
ae 026352 012701 026446 S$: MOV 
6454 026356 010103 6$: MOV 
6455 026360 016102 000002 MOV 
6456 026364 000277 scc 
6457 026366 072211 ASH 
6458 026370 026137 000004 177776 CMP 
6459 026376 001401 BEQ 
ead 026400 104001 ERROR 
6462 026402 026102 000006 7$: CMP 
6463 026406 001401 BEQ 
104001 ERROR 





C10 


i 3RS RESULT 
52525 3R4 RESULT 
23 ;DIVIDEND 
16054 sINIT RS 
16537 sDIVISOR 

0 ;PSW 

10222 3R5S RESULT 
246 3R4 RESULT 
333 
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SEQ 0119 


sNO GO TO ERROR 





H CARITHMETIC SHIFT) 
90177776 sINIT PSW 
#1,R2 sSETUP OPERAND 
sSET ALL CC BITS 
R2,R2 ; TEST INSTRUCTION 
#0 ,80177776 :IS PS CORRECT 
i$ sYES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
R2,#2 sIS R2 CORRECT 
2s ;YES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
#100000 ,,R2 sSETUP R2 
#1,R3 sSETUP R3 
sCLEAR ALL CC BITS 
R3,R2 ;_ TEST INSTRUCTION 
#7 ,980177776 sIS PS CORRECT 
3$ sYES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
R3,#1 sIS R3 CORRECT 
4s ;YES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
R2, #0 sIS R2 CORRECT 
$ ;YES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
#TE127A,R1 sSETUP POINTERS TO TABLES 
R1,R3 ; 
2(R1),R2 sSETUP R2 
sSET ALL CC BITS 
(R1),R2 3; TEST INSTRUCTION 
4(R1),80177776 sIS PS CORRECT 
7$ ;YES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
6(R1),R2 IS R2 CORRECT 
8$ ;YES GO ON 
+1 ;CPU ERROR 
' 


| 


eee eer eee 


COKDADO KDJ11-B CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS seeeececececeecese 


026412 
026414 
026416 


026420 
026422 
026424 
026426 


026430 
026434 
026440 


026442 


026512 
026514 


026516 
026520 
026522 
026524 


026526 
026530 
026532 
026534 


026536 
026540 
026542 
026544 


020301 
001402 
104001 


010301 
021311 
001401 
104001 


062701 
020127 
001346 


000167 


177761 
077777 


177737 
177777 
000011 
177777 


177710 
017777 
000013 
177400 


177713 
000012 
000000 
050000 


000010 
026706 


000240 
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8$: 


9$: 


10$: 


; 
i 
TE127A: 


R3,R1 

9$ 

+1 

R3,R1 
CR3),CR1) 
10$ 

+1 


#10,R1 
R1,@FIN127 
6$ 


FIN127 


177761 
77777 


177737 
177777 


11 
177777 


177706 
gross 


0 
177710 
17777 
13 
177400 
177713 
12 


0 
50000 





31S Ri CORRECT 
;YES GO ON 

;CPU ERROR 

sNO GO TO ERROR 
sRESTORE R1 
31S SOURCE CORRECT 
;YES GO ON 

;CPU ERROR 

:NO GO TO ERROR 
sSOURCE LOOKS INCORRECT 
s INCREMENT POINTER 
;ARE WE DONE 
sNO GO TO 6$ 





meee eee 


t 


oe E10 
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6523 

6524 026546 177707 -WORD 177707 s SOURCE 
6525 026550 170001 -WORD 170001 sDEST 
6526 026552 000002 -WORD 2 

+S 026554 000200 -WORD 200 

6529 026556 177717 -WORD 177717 ; SOURCE 
6530 026560 000001 -WORD 1 ;DEST 
6531 026562 000012 -WORD 12 

eae 026564 100000 -WORD 100000 

6534 026566 177740 -WORD 177740 s SOURCE 
6535 026570 017777 -WORD 17777 ;DEST 
6536 026572 000004 -WORD 4 

oaee 026574 000000 -WORD O 

6539 026576 177771 -WORD 177771 s SOURCE 
6540 026600 150000 «WORD 150000 ;DEST 
6541 026602 000010 -WORD 10 

aes 026604 177640 -WORD 177640 

6544 026606 177742 -WORD 177742 s SOURCE 
6545 026610 100000 -WORD 100000 ;DEST 
6546 026612 000011 -WORD ii 

6547 026614 177777 -WORD 177777 

6548 

6549 026616 177764 -WORD 177764 s SOURCE 
6550 026620 100000 -WORD 100000 DEST 
6551 026622 000010 -WORD 10 

at 026624 177770 -WORD 177770 

6 

6554 026626 177750 -WORD 177750 s SOURCE 
6555 026630 052525 -WORD 52525 ;DEST 
6556 026632 000004 -WORD 4 

ad 026634 000000 -WORD 0O 

6 i 

6559 026636 177760 -WORD 177760 ; SOURCE 
6560 026640 100000 -WORD 100000 ;DEST 
6561 026642 000011 -WORD 11 

6562 026644 177777 -WORD 177777 

6563 

6564 026646 177770 -WORD 177770 ; SOURCE 
6565 026650 100000 -WORD 100000 ;DEST 
6566 026652 000010 -WORD 10 

ooo 026654 177600 WORD 177600 

6569 026656 177712 -WORD 177712 ; SOURCE 
6570 026660 004367 -WORD 4367 ;DEST 
6571 026662 000013 -WORD 13 

he | 026664 156000 -WORD 156000 

6574 026666 177764 -WORD 177764 3 SOURCE 
6575 026670 017777 -WORD 17777 ;DEST 
6576 026672 000001 -WORD 1 

oars 026674 000001 -WORD 1 

6579 026676 177701 -WORD 177701 s SOURCE 











SEQ 0121 


— a 
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6580 026700 110000 . WORD 
6581 026702 000003 . WORD 
ree | 026704 020000 . WORD 
6584 026706 000240 FINi27: NOP 
6585 3 
6588 026710 TE130: 
6589 3 TEST AS 
6590 026710 005037 177776 CLR 
6591 026714 012701 000023 MOV 
6592 026720 012705 052525 MOV 
6593 026724 005004 CLR 
6594 026726 000277 scc 
6595 026730 073401 ASHC 
6596 026732 023727 177776 000012 CMP 
6597 026740 001401 BEQ 
noe 026742 104001 ERROR 
6600 026744 020127 000023 i$: CMP 
6601 026750 001401 BEQ 
oe 026752 104001 ERROR 
6604 026754 020427 125250 2s: CMP 
6605 026760 001401 BEQ 
oooe 026762 104001 ERROR 
6608 026764 020527 000000 3$: CMP 
6609 026770 001401 BEQ 
6610 026772 104001 ERROR 
6611 
6612 026774 012703 052525 4$: MOV 
6613 027000 005002 CLR 
6614 027002 012704 164731 MOV 
6615 027006 000277 SCC 
6616 027010 073327 000023 ASHC 
6617 027014 023727 177776 000012 CMP 
6618 027022 001401 BEQ 
6619 027024 104001 ERROR 
6620 
6621 027026 020227 000000 5$: CMP 
6622 027032 001401 BEQ 
oon 027034 104001 ERROR 
6625 027036 020327 000000 6$: CMP 
6626 027042 001401 BEQ 
ry if 027044 104001 ERROR 
66 
6629 027046 020427 164731 7$: CMP 
6630 027052 001401 BEQ 
6631 027054 104001 ERROR 
6632 
6633 
6634 
a 027056 012701 027166 8$: MOV 
6637 027062 010104 9$: MOV 
016102 000002 MOV 


| 6638 027064 
! 








F10 


Wednesday 27-Feb-85 17:55 Page 14-103 


80177776 
#23,R1 
#52525,R5 
R4 

R1i,R4 
0#177776, #12 
1$ 

+1 

R1, #23 

2$ 

+1 


——— 


#52525,R3 
R2 
#164731,R4 


#23,R3 
0#177776,#12 
S$ 


+1 

R2, #0 

6$ 

+1 

R3,#0 

7$ 

+1 
R4,%164731 
8$ 


+1 


#TE130A,R1 


R1,R4 
2(R1),R2 


SEQ 0122 


sDEST 


HC CARITHMETIC SHIFT COMBINED) 


;INIT PSW 
sSETUP Ri 
sSETUP RS 
sSETUP R4 
sSET ALL CC BITS 
; TEST INSTRUCTION 
IS PS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
3IS R1 CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS R4 CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
:IS RS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sSETUP R3 
sSETUP R2 
sSETUP R4 
;SET ALL CC BITS 
; TEST INSTRUCTION 
;IS PS CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
:IS R2 CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS R3 CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
;IS R4 CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
; 


i 
;SETUP POINTERS TO TABLES 


sSAVE A COPY OF R1 
sSETUP R2 


— 





= ay 





| COKDADO KDU11-8 CLUSTER DIAG. 


6639 027070 
6640 027074 
6641 027076 
6642 027100 
6643 027106 
6644 027110 


6646 027112 
6647 027116 
6648 027120 


6650 027122 
6651 027126 
6652 027130 


6654 027132 
6655 027134 
6656 027136 


6658 027140 
6659 027142 
6660 027144 
6661 027146 


6664 027150 
6665 027154 
6666 027160 


6669 027162 


6672 027166 
6673 027170 
6674 027172 
6675 027174 
6676 027176 
6677 027200 


6679 027202 
6680 027204 
6681 027206 
6682 027210 
6683 027212 
6684 027214 


6686 027216 
6687 027220 
6688 027222 
6689 027224 
6690 027226 
6691 027230 


6693 027232 
6694 027234 
6695 027236 


016103 
000277 
073211 
023761 
001401 
104001 


026102 
001401 
104001 


026103 
001401 
104001 


020401 
001402 
104001 


010401 
021114 
001401 
104001 


062701 
020127 
001340 


000167 


177700 
100125 
177777 
000010 
100125 
177777 


177777 
000001 
000000 
000000 
000000 
100000 


177701 
047777 


000004 


177776 


000010 


000012 


000014 
027576 


000410 





MACRO YOS.02 


000006 


10$: 


11$: 


12$: 


13$: 


14$: 


; 
TE130A: . 





G10 
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*eeeeeeee0¢e¢ DOUBLE OPERAND TESTS «eeececeecacences 





4(R1),R3 


C(R1),R2 
8177776 ,6(R1) 
10$ 

+1 


10(R1),R2 
11$ 

+1 
12(R1),R3 
12$ 

+1 

R4,R1 

13$ 

+1 

R4,R1 
CR1),CR4) 
14$ 

+1 


#14,R1 
R1,#FIN130 
9$ 


FIN130 


100125 
177777 


177777 
i 


0 
0 
0 
100000 


177701 
47777 
100000 


12 
117777 
0 
177706 


4256 
177700 


sSETUP R3 


;SET ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 


;YES GO ON 


;CPU ERROR 


sNO GO TO ERROR 


IS R2 CORRECT 


sYES GO ON 


;CPU ERROR 


sNO GO TO ERROR 


sIS R3 CORRECT 
ON 


;YES GO 


;CPU ERROR 


;NO GO TO ERROR 


sIS R1 CORRECT 


;YES GO ON 


;CPU ERROR 
sNO GO T 


O ERROR 
sIS SOURCE CORRECT 


;YES GO ON 


;CPU ERROR 


sNO GO TO ERROR 


sPOSSIBLE SOURCE CODE CORRUPTION 
;GO TO NEXT TEST 


s;ARE WE DONE 
:NO GO TO 9$ 


; SOURCE 
DESTINATION 
;DESTINATION 
;TEST PSW 
sRESULT WORD 
sRESULT WORD 


s SOURCE 
;DESTINATION 
DESTINATION 
sTEST PSW 
sRESULT WORD 
sRESULT WORD 


; SOURCE 
;DESTINATION 
;DESTINATION 
sTEST PSW 
sRESULT WORD 
sRESULT WORD 


; SOURCE 
sDESTINATION 
sDESTINATION 


WORD 





SEQ 0123 


- 


a 


g H10 
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*eeeeeeee¢e% DOUBLE OPERAND TESTS eeecetcecececeeees 


6696 027240 000002 -WORD 2 sTEST PSW 
6697 027242 025677 -WORD 25677 sRESULT WORD 
ote 027244 170000 -WORD 170000 sRESULT WORD 
6700 027246 177711 -WORD 177711 s SOURCE 

6701 027250 065700 -WORD 65700 sDESTINATION 
6702 027252 000012 -WORD 12 ;DESTINATION 
6703 027254. 000013 -WORD 13 sTEST PSW 
6704 027256 100000 -WORD 100000 sRESULT WORD 
te 027260 012000 -WORD 12000 s;RESULT WORD 
6707 027262 177737 -WORD 177737 s SOURCE 

6708 027264 000000 -WORD O ;DESTINATION 
6709 027266 000001 -WORD 1 ;DESTINATION 
6710 027270 000004 -WORD 4 sTEST PSW 
6711 027272 000000 -WORD 0O sRESULT WORD 
oy 027274 000000 -WORD O sRESULT WORD 
6714 027276 177736 -WORD 177736 s SOURCE 

6715 027300 000000 -WORD 0O ;DESTINATION 
6716 027302 000001 -WORD 1 ;DESTINATION 
6717 027304 000000 -WORD O sTEST PSW 
6718 027306 040000 -WORD 40000 sRESULT WORD 
athe 027310 000000 -WORD O sRESULT WORD 
6721 027312 177740 -WORD 177740 3 SOURCE 

6722 027314 100000 -WORD 100000 ;DESTINATION 
6723 027316 000000 -WORD O DESTINATION 
6724 027320 000011 -WORD 11 sTEST PSW 
6725 027322 177777 *  ,WORD 177777 sRESULT WORD 
6726 027324 177777 -WORD 177777 sRESULT WORD 
6727 

6728 027326 177725 -WORD 177725 s SOURCE 

6729 027330 177777 -WORD 177777 ;DESTINATION 
6730 027332 174000 -WORD 174000 ;DESTINATION 
6731 027334 000007 -WORD 7 ;TEST PSW 
6732 027336 000000 -WORD 0 sRESULT WORD 
6733 027340 000000 -WORD O sRESULT WORD 
6734 

6735 027342 177724 -WORD 177724 ; SOURCE 

6736 027344 177777 «WORD 177777 ;DESTINATION 
6737 027346 174000 -WORD 174000 ;DESTINATION 
6738 027350 000011 -WORD il sTEST PSW 
6739 027352 100000 -WORD 100000 sRESULT WORD 
6740 027354 000000 -WORD O sRESULT WORD 
6741 

6742 027356 177733 -WORD 177733 3 SOURCE 

6743 027360 177777 -WORD 177777 ;DESTINATION 
6744 027362 157023 -WORD 157023 ;DESTINATION 
6745 027364 000012 -WORD 12 sTEST PSW 
6746 027366 114000 -WORD 114000 sRESULT WORD 
oe 027370 000000 -WORD O sRESULT WORD 
6749 027372 177727 -WORD 177727 ; SOURCE 

6750 027374 000000 -WORD 0 ;DESTINATION 
6751 027376 177777 -WORD 177777 sDESTINATION 


6752 027400 000013 -WORD 13 sTEST PSW 











ure 


ur 


SEQ 0124 








ee 


= 
' 


110 


COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-106 
**eeee¢e¢¢¢ee DOUBLE OPERAND TESTS saeuaccaceaseneen 


6753 027402 177600 -WORD 177600 sRESULT WORD 
eras 027404 000000 -WORD O sRESULT WORD 
6756 027406 177717 -WORD 177717 s SOURCE 

6757 027410 177777 «WORD 177777 DESTINATION 
6758 027412 000001 -WORD 1 DESTINATION 
6759 027414 000011 -WORD 11 sTEST PSW 
6760 027416 100000 -WORD 100000 sRESULT WORD 
thy 027420 100000 -WORD 100000 sRESULT WORD 
6763 027422 177741 «WORD 177741 s SOURCE 

6764 027424 100000 -WORD 100000 ; DESTINATION 
6765 027426 000000 -WORD O ;DESTINATION 
6766 027430 000010 -WORD 10 sTEST PSW 
6767 027432 177777 «WORD 177777 sRESULT WORD 
th 4 027434 177777 «WORD 177777 sRESULT WORD 
6770 027436 177742 -WORD 177742 s SOURCE 

6771 027440 037777 «WORD 37777 sDESTINATION 
6772 027442 177777 «WORD 177777 DESTINATION 
6773 027444 000005 -WORD 5 sTEST PSW 
6774 027446 000000 -WORD O sRESULT WORD 
cree 027450 000000 -WORD O sRESULT WORD 
6777 027452 177742 -WORD 177742 s SOURCE 

6778 027454 077777 -WORD 77777 DESTINATION 
6779 027456 177777 -WORD 177777 ;DESTINATION 
6780 027460 000001 -WORD 1 sTEST PSW 
6781 027462 000000 -WORD O sRESULT WORD 
ths 027464 000001 -WORD 1 sRESULT WORD 
6 , 

6784 027466 177711 -WORD 177711 s SOURCE 

6785 027470 065600 -WORD 65600 sDESTINATION 
6786 027472 000012 -WORD 12 sDESTINATION 
6787 027474 000003 -WORD 3 sTEST PSW 
6788 027476 000000 -WORD O sRESULT WORD 
6789 027500 012000 -WORD 12000 sRESULT WORD 
6790 

6791 027502 177740 «WORD 177740 ; SOURCE 

6792 027504 077777 -WORD 77777 sDESTINATION 
6793 027506 177777 «WORD 177777 ; DESTINATION 
6794 027510 000004 -WORD 4 sTEST PSW 
6795 027512 000000 -WORD O sRESULT WORD 
the 4 027514 000000 -WORD 0O sRESULT WORD 
6 

6798 027516 177737 «WORD 177737 s SOURCE 

6799 027520 177777 -WORD 177777 ;DESTINATION 
6800 027522 177774 «WORD 177774 ;DESTINATION 
6801 027524 000011 -WORD 11 sTEST PSW 
6802 027526 177777 «WORD 177777 sRESULT WORD 
— 027530 177777 «WORD 177777 sRESULT WORD 
6805 027532 177747 «WORD 177747 s SOURCE 

6806 027534 100000 -WORD 100000 ;DESTINATION 
6807 027536 174000 -WORD 174000 ;DESTINATION 
6808 027540 000010 . WORD sTEST PSW 


10 
| 6809 027542 177777 -WORD 177777 sRESULT WORD 





_— | SS ED SE 


WORD 
1 








ites 


SEQ 0125 


ee 





COKDADO KDJ11-B CLUSTER DIAG. 
*eeeeeeeeeee DOUBLE OPERAND TESTS seeeuceeceecesees 


027544 
1 


027546 


027576 


027576 
027600 
027604 
027610 


027612 
027614 
027616 
027622 
027626 
027632 
027634 


027636 
027642 


027702 
027704 
027706 
027712 
027714 


027716 
027722 
027724 
027730 
027732 


177700 
177753 


102351 


153314 
000002 


153276 


153272: 
000004 


001000 
153252 
000776 


001000 
153232 
153226 
000774 


000002 


001000 
000776 


MACRO YOS.02 


FINi30: 
MSPAU: 


SPAUL: 


SPAUV2: 


SPAU3: 


SPAU4: 


SPAUS: 





J10 
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177700 
177753 


177760 
116477 





sRESULT WORD 2 


s SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 
sTEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


s SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 
sTEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


bar aor AUTO DEC/INC OPERATIONS oo x ARE ON WORD BOUNDRYS 


6 

CR6)+, COUNT 
#2 ,R6 

SPAU1 


+1 
R6 
CR6)+, COUNT 


;CLEA 
;TRY AUTOINC ON R6 
;VERIFY AUTO INC BY 2 
;BRANCH IF GOOD 
;BAD AUTO-INC 

;CPU ERROR 
sCLEAR R6 


s;DOUBLE BYTE AUTO-INC 
;VERIFY RESULT 
sBRANCH IF GOOD 
;CPU ERROR 


;BAD DOUBLE AUTO-INC 


@STBOT ,R6 
-(R6), COUNT 
#776 ,R6 
SPAU3 

+1 


#STBOT ,R6 
-CR6), COUNT 
-CR6), COUNT 
#774 ,R6 
SPAU4 

+1 


R6 
CR6)+ 
R6,#2 
SPAUS 
+1 


#STBOT ,R6 
-(R6) 
#776 ,R6 
SPAU6 

+1 


sLOAD R6 

3; TEST AUTO-DEC 
;VERIFY RESULT 
sBRANCH IF GOOD 
;CPU ERROR 


s;LOAD R6 
s TEST AUTO-DEC 
; TEST AUTO-DEC 
;VERIFY RESULT 
sBRANCH IF GOOD 
s;CPU ERROR 


; TEST AUTO-INC ON SOP 
s TEST AUTO-INC 


sBRANCH IF GOOD 
;CPU ERROR 


sLOAD R6 

; TEST AUTO-DEC 
sVERIFY RESULT 
sBRANCH IF GOOD 
;CPU ERROR 


SEQ 0126 


ae 


COKDADO KDJ11-B CLUSTER DIAG. 
¢eeee¢¢e¢¢% DOUBLE OPERAND TESTS «eaceeececececece 


6869 027734 
2 

6874 027740 
5 

6877 027740 


6878 027744 
6880 027750 


012706 


005067 
012706 


016767 
012767 
016701 
016702 
016703 
005067 
005046 
012706 
104001 


022767 
001003 
020627 
001401 
104001 


005067 
016767 
010167 
010267 
010367 
012706 


001000 


150022 
000150 


150030 
030014 
150156 
150150 
150142 
150142 


001000 


000010 
000142 


147726 
152746 
150074 
150066 
150060 
001000 


147674 
030126 
150260 
001000 


147634 
001000 


000400 
030160 
001000 


MACRO YOS.02 


147744 


147736 


152706 
147672 


147634 


SPAU6 : 


a 
MTRY: 


MTRYA: 


1$: 


MTRYB: 


; 
MTRYM: 


TRYMA: 





MOV 


K10 
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#STBOT ,R6 





nat YELLOW ZONE TRAP ON AUTO DEC OF R6 


MOV 


CPEREG 
#150,R6 


-(R6) 
@STBOT ,R6 


+1 


R6, #142 
MTRYB 
+1 


sINIT CPU ERROR REGISTER 

sLOAD R6 WITH A VALUE THAT WILL 
sCAUSE A YELLOW STACK TRAPCIE. <400) 
sSAVE VECTOR 

sSETUP THE STACK OVERFLOW TRAP POINTER 
sSAVE VECTOR 

sSAVE VECTOR 

sSAVE VECTOR 

sJUST AS A PRECAUTION 

sCAUSE A STACK OVERFLOW TRAP 

sRESTORE R6 FOR ERROR CALL 

CPU ERROR 


. 
;OVERFLOW TRAP FAILED 
+ learns 


sWAS CPU ERROR REG SET PROPERLY? 
:GO TO ERROR IF NOT 

sVERIFY CORRECT DECRIMENT OF R6 
s;BRANCH IF GOOD 

;CPU ERROR 


sR6 IMPROPERLY DECRIMENTED 
;OR CPU ERROR REGISTER NOT CORRECT 


CPEREG 
SLOCOO,4 
R1,146 
R2,144 
R3,142 
#STBOT ,R6 


CLR PERE 

MOV #400 ,R6 
MOV 4,SLOCOO 
MOV @TRYMA, 4 
CLR 376 

CLR -(R6) 

MOV @STBOT ,R6 
ERROR +1 

CLR CPEREG 
MOV #1000,R5 
MOV #400 ,R6 
MOV @TRYMB ,4 
ADD ~(R6),-CRS) 
MOV #STBOT ,R6 
ERROR +1 





s;CLEAR THE CPU ERROR REGISTER 
sRESTORE VECTOR 

sRESTORE VECTORS 

; “ 


TEST — — TRAPS IN VARIOUS MODES 


;CLEAR CPU ERROR REGISTER 
sSETUP OVERFLOW R6 DATA 
;SAVE VECTOR 


sJUST AS A PRECAUTION 
sCAUSE OVERFLOW TRAP 
sRESTORE R6 FOR ERROR CALL 
;CPU ERROR 
sNO OVERFLOW TRAP 


s;CLEAR CPU ERROR REGISTER 
sSETUP RS DATA 
sSETUP OVERFLOW R6 DATA 


sCAUSE OVERFLOW TRAP 
sRESTORE R6 FOR ERROR CALL 
;CPU ERROR 


SEQ 0127 


— a - 





COKDADO KDJ11-B CLUSTER DIAG. 
*e¢eeeeee¢¢% DOUBLE OPERAND TESTS seeseececeecescaese 


6947 030224 


6950 030224 
6951 030230 
6952 030234 
6953 030242 
6954 030250 
6955 030256 
6956 030264 
6957 030266 
6958 030270 
6959 030274 


6961 030276 
6962 030276 
6963 030304 
6964 030312 
6965 030316 


6972 030322 


6975 030322 


6985 030372 


6987 030374 
6988 030374 
6989 030400 
| 6990 030404 


016767 
016767 
005067 
012706 


005067 
012706 
016767 
012767 
016767 
012767 


000004 
000240 
012706 
104001 


005067 
012706 
016767 


147530 
030276 


001000 


152512 
152502 
147450 
001000 


147440 
0004 


00 
147462 
030366 
147432 
030374 


001000 


147366 
001000 
152404 


MACRO YOS.02 


147606 


147564 


152550 
147540 
152536 
147520 


147500 
147476 


152452 
147452 
152440 
147422 


147372 





TRYMB: 


TRYMC: 


MILLOA: 


MILLOB: 


3 
MIOTO: 


IOTOA: 


IOTOB: 





CL 





TEST STACK OVERFLOW ON IOT TRAP 
R CPEREG 





L1i0 
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sNO OVERFLOW TRAP 


CPEREG sCLEAR CPU ERROR REGISTER 
#150 ,R6 sSETUP OVERFLOW R6 DATA 
@TRYMC 4 
-CRS5),-CR6) sCAUSE OVERFLOW TRAP 
#STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
+1 sCPU ERROR 

sNO OVERFLOW TRAP 
CPEREG s;CLEAR CPU ERROR REGISTER 
SLOCOO,4 sRESTORE VECTOR 
#STBOT ,R6 


TEST STACK OVERFLOW ON ILLEGAL INST TRAP 
R CPEREG 


sCLEAR CPU ERROR REGISTER 


#400 ,R6 sSETUP FOR OVERFLOW TRAP 
10,SLOCOO s;SAVE VECTOR 
@MILLOA,10 sSETUP ILLEGAL TRAP VECTOR 
4,SLOCO1 sSAVE VECTOR 
@MILLOB ,4 sSETUP OVERFLOW TRAP VECTOR 

sUNUSED INSTRUCTION TRAP 
#STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
+1 ;CPU ERROR 

sUNUSED INSTRUCTION TRAP 

SLOCO1,4 sRESTORE VECTOR 
SLOCOO,10 sRESTORE VECTOR 
CPEREG sCLEAR CPU ERROR REGISTER 
#STBOT ,R6 sRESTORE R6 


sCLEAR CPU ERROR REGISTER 


#400 ,R6 sSETUP STACK FOR OVERFLOW 
20,SLOCOO sSAVE OLD IOT VECTOR 
#IOTOA,20 sSETUP ERROR ACTION ON IOT 
4,SLOCO1 sSAVE VECTOR 
#IOTOB ,4 sSETUP CORRECT TRAP VECTOR FOR 

s OVERFLOW 

s TEST INSTRUCTION 
#STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
+1 sCPU ERROR 

sFAILURE OF STACK OVERFLOW 

CPEREG ;CLEAR CPU ERROR REGISTER 
@STBOT ,R6 
SLOCO01,4 sRESTORE VECTOR 








SEQ 0128 


-—_———-- 











SEQ 0129 


eeeeeeeeeeee DOUBLE OPERAND TESTS seseeseceesessece 


a M10 
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cone 030412 016767 152374 147400 MOV SLOCOO, 20 sRESTORE TRAP VECTOR 
6994 3 
6995 3 
6997 030420 MEMTO: 
6998 
6999 3 TEST STACK OVERFLOW ON EMT TRAP 
7000 030420 005067 147342 CLR CPEREG sCLEAR CPU ERROR REGISTER 
7001 030424 012706 000400 MOV #400 ,,R6 sSETUP STACK FOR OVERFLOW 
7002 030430 016767 147374 152354 MOV 30,SLOCO0O sSAVE OLD EMT VECTOR 
7003 030436 012767 030464 147364 MOV #EMTOA, 30 sSETUP ERROR ACTION ON EMT 
7004 030444 016767 147334 152342 MOV 4,SLOCO1 sSAVE VECTOR 
7005 030452 012767 030472 147324 MOV #EMTOB ,4 sSETUP CORRECT TRAP VECTOR FOR 
7006 ; OVERFLOW 
7007 030460 104000 EMT ; TEST INSTRUCTION 
7008 030462 000240 NOP 
7009 0 012706 001000 EMTOA: MOV @STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
7010 030470 104001 ERROR +1 ;CPU ERROR 
7011 sFAILURE OF STACK OVERFLOW 
7012 030472 EMTOB: 
7013 030472 016767 152314 147330 MOV SLOCOO, 30 sRESTORE TRAP VECTOR 
7014 030500 016767 152310 147276 MOV SLOCO1,4 sRESTORE VECTOR 
7015 030506 005067 147254 CLR CPEREG sCLEAR CPU ERROR REGISTER 
Le 4 030512 012706 001000 MOV #STBOT ,R6 
7020 030516 MTRPO 
7021 
7022 F TEST STACK OVERFLOW ON TRAP 
7023 030516 005067 147244 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
7024 030522 012706 000400 MOV #400 ,R6 sSETUP STACK FOR OVERFLOW 
7025 030526 016767 147302 152256 MOV 34,SLOCO0O sSAVE OLD TRP VECTOR 
7026 030534 012767 030562 147272 MOV @TRPOA, 34 sSETUP ERROR ACTION ON TRP 
7027 030542 016767 147236 152244 MOV 4,SL0C01 ;SAVE VECTOR 
7028 030550 012767 030570 147226 MOV #TRPOB ,4 sSETUP CORRECT TRAP VECTOR FOR 
7029 ; OVERFLOW 
7030 030556 104400 TRAP ; TEST INSTRUCTION 
7031 030560 000240 NOP 
7032 030562 012706 001000 TRPOA: MOV #STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
7033 030566 104001 ERROR ol ;CPU ERROR 
7034 sFAILURE OF STACK OVERFLOW 
7035 030570 TRPOB: 
7036 030570 016767 152216 147236 MOV SLOC9O, 34 sRESTORE TRAP VECTOR 
7037 030576 016767 152212 147200 MOV SLOCO1,4 sRESTORE VECTOR 
7038 030604 005067 147156 CLR CPEREG sCLEAR CPU ERROR REGISTER 
7039 030610 012706 001000 MOV #STBOT ,R6 
7040 
7042 3 
7043 F 
7045 030614 MBPTO: 
7046 
7047 3 TEST STACK OVERFLOW ON BPT 
7048 030614 005067 147146 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
7049 030620 012706 000400 MOV 9400 ,R6 sSETUP STACK FOR OVERFLOW 
7050 030624 016767 147164 152160 MOV 14,SLOCOO sSAVE OLD BPT VECTOR 
7051 030632 012767 030660 147154 MOV @BPTOA,14 ;SETUP ERROR ACTION ON BPT 
7052 030640 016767 147140 152146 MOV 4,SLOCO1 sSAVE VECTOR 

| 7053 030646 012767 030666 147130 MOV #BPTOB,4 ;SETUP CORRECT TRAP VECTOR FOR 
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SEQ 0130 

eeeeeeeeeeee DOUBLE OPERAND TESTS eeseesseseseseses 

7054 s OVERFLOW 

7055 030654 000003 BPT s TEST INSTRUCTION 

7056 030656 000240 NOP 

7057 030660 012706 001000 BPTOA: MOV @STBOT ,R6 sRESTORE R6 FOR ERROR CALL 

7058 030664 104001 ERROR ol sCPU ERROR 

7059 sFAILURE OF STACK OVERFLOW 

7060 030666 BPTOB 

7061 030666 005067 147074 CLR CPEREG ;CLEAR CPU ERROR REGISTER 

7062 030672 016767 152114 147114 MOV SLOCOO,14 sRESTORE TRAP VECTOR 

7063 030700 016767 152110 147076 MOV SLOCO1,4 sRESTORE VECTOR 

ar 030706 012706 001000 MOV @STBOT ,R6 

7067 3 

7068 3 

wore 030712 MILAO: 

7072 3 ny STACK OVERFLOW AND ILLEGAL JMP INSTRUCTION 

7073 030712 005067 147050 CLR CPEREG sCLEAR CPU ERROR REGISTER 

7074 030716 012706 000400 MOV #400 ,R6 sSETUP STACK FOR OVERFLOW 

7075 030722 016767 147062 152062 MOV 10,SLOCOO sSAVE OLD ILLEGAL INST. VECTOR 

7076 030730 012767 030760 147052 MOV @ILAOA,10 +SETUP ERROR ACTION ILLEGAL OPCODE 

7077 030736 016767 147042 152050 MOV 4,SLOCO1 sSAVE VECTOR 

7078 030744 012767 030766 147032 MOV #ILBOB ,4 sSETUP CORRECT TRAP VECTOR FOR 

7079 ; OVERFLOW 

7080 030752 005001 CLR Ri 

7081 030754 000101 JMP R1 ; TEST INSTRUCTION 

7082 030756 000240 NOP 

7083 030760 012706 001000 ILAOA: MOV #STBOT ,R6 sRESTORE R6 FOR ERROR CALL 

7084 030764 104001 ERROR ol ;CPU ERROR 

7085 sFAILURE OF STACK OVERFLOW 

7086 030766 IL60B 

7087 030766 016767 152022 147010 MOV SL0CO1,4 sRESTORE VECTOR 

7088 030774 016767 152012 147006 MOV SLOCOO,10 sRESTORE TRAP VECTOR 

7089 031002 005067 146760 CLR CPEREG sCLEAR CPU ERROR REGISTER 

7090 031006 012706 001000 MOV #STBOT ,R6 

7091 

7093 F 

7094 3 

La 4s 031012 MILLBO: 

7098 ; TEST STACK OVERFLOW ON ILLEGAL JSR INST 

7099 031012 012706 000400 MOV #400 ,R6 sSETUP STACK FOR OVERFLOW 

7100 031016 016767 146766 151766 MOV 10,SLO0CO0O sSAVE OLD VECTOR 

7101 031024 012767 031054 146756 MOV @ILLBOA,10 sSETUP ERROR ACTION ON ILL. OPCODE 

7102 031032 016767 146746 151754 MOV 4,SLOCO1 sSAVE VECTOR 

7103 031040 012767 031062 146736 MOV @ILLBO0B ,4 sSETUP CORRECT TRAP VECTOR FOR 

7104 s OVERFLOW 

7105 031046 005001 CLR R1 

7106 031050 004501 JSR RS,R1 s TEST INSTRUCTION 

7107 031052 000240 NOP 

7108 031054 012706 001000 ILLBOA: MOV @STBOT RE sRESTORE R6 FOR ERROR CALL 

7109 031060 104001 ERROR el ;CPU ERROR 

7110 ;FAILURE OF STACK OVERFLOW 

7111 031062 ILL608: 

7il2 031062 016767 151726 146714 MOV $.0C01.4 ;RESTORE VECTOR 

7113 031070 016767 151716 146712 MOV $L0C00.10 sRESTORE TRAP VECTOR 

7114 031076 012706 001000 MOV @STBOT RE 
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eeeeeeeeeeee DOUBLE OPERAND TESTS scescevececececeses oe Soee 
7115 
7117 3 
7118 3 
7120 031102 MSTO: 
7121 
7122 TEST FOR FALSE STACK OVERFLOW 
7123 031102 016767 146676 151702 MOV 4,SLO0CO00 sSAVE VECTOR 
7124 031110 012767 031156 146666 MOV @MSTOE, sANTICIPATE OVERFLOW ERROR 
7125 031116 012706 001002 MOV #1002 ,R6 ;SETUP LEGAL R6 
7126 031122 005746 TST -(R6) ;TRY TO ag es OVERFLOW 
7127 031124 012706 002002 MOV $2002 ,R6 sSETUP LEGAL Ri 
7128 031130 005746 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
7129 031132 012706 004002 MOV $4002 ,R6 sSETUP LEGAL R6 
7130 031136 005746 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
7131 031140 012706 010002 MOV #10002 ,R6 sSETUP LEGAL R6 
7132 031144 005746 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
7133 031146 012706 100402 MOV #100402 ,R6 sSETUP LEGAL R6 
7134 031152 005746 TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
7135 031154 000403 BR MSTOEE ;EXIT MODULE 
7136 031156 012706 001000 MSTOE: MOV @STBOT ,R6 sRESTORE R6 FOR ERROR CALL 
7137 031162 104001 ERROR +1 ;CPU ERROR 
7138 sSTACK OVERFLOW ERROR 
7139 031164 016767 151622 146612 MSTOEE: MOV SLOCOO,4 sRESTORE VECTOR 
phar 031172 012706 001000 MOV @STBOT ,R6 
7143 3 
7144 3 
7146 031176 MTT: 
7147 
7148 F TEST T-BIT TRAPS 
7149 031176 012706 001000 MOV @STBOT .R6 sSETUP STACK 
7150 031202 016767 146606 151602 MOV 14, SL0C00 ;SAVE OLD T-BIT VECTOR 
7151 031210 012746 000020 MOV #20, -CR6) 3PUSH T-BIT 
7152 031214 012746 031232 MOV @MTTA, -CR6) sSETUP ERROR TRAP VECTOR 
7153 031220 012767 031234 146566 MOV @MTTB,14 ;SETUP NEW T-BIT VECTOR 
7154 031226 000002 RTI ;CAUSE A T BIT SET IN PSW 
7155 031230 104001 ERROR ol ;CPU ERROR 
7156 ;SHOULD NEVER BE EXECUTED 
7157 031232 104001 MTTA: ERROR +1 ;CPU ERROR 
7158 sDIONT TAKE CORRECT TRAP 
7159 031234 022706 000774 MTTB: CMP @STBOT-4,R6 ;VERIFY SP DECIRMENT 
7160 031240 001401 BEQ MTTD ;BRANCH IF GOOD 
7161 031242 104001 ERROR o1 ;CPU ERROR 
7162 ;BAD SP 
7163 031244 021627 031232 MTTD: CMP CR6),@MTTA sVERIFY PC SAVED ON STACK 
7164 031250 001401 BEQ MTTE ;BRANCH IF GOOD 
7165 031252 104001 ERROR ol ;CPU ERROR 
7166 s INCORRECT PC ON STACK 
7167 031254 MTTE: 
Led 031254 016767 151532 146532 MOV SLOCOO,14 sRESTORE VECTOR 14 
ha 031262 012706 001000 MOV @STBOT ,R6 
7173 ; 
7175 031266 MTTS 
7176 
7177 3 TEST T-BIT TRAPS WITH RTT 


eo 
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7178 031266 012706 001000 MOV @STBOT ,R6 
7179 031272 016767 146516 151512 MOV 14,SL0C0O 
7180 031300 012746 000020 MOV #20, -C(R6) 
7181 031304 012746 031322 MOV @MTTSA, -CR6) 
7182 031310 012767 031326 146476 MOV OMTTSB,14 
7183 031316 000006 KTT 
res 031320 104001 ERROR +1 
pe. 031322 000240 MTTSA: NOP 
vise 031324 104001 MTTSQ: ERROR +1 
7190 031326 022706 000774 MTTSB: CMP @STBOT-4,R6 
7191 031332 001401 BEQ MTTSD 
ide 031334 104001 ERROR +1 
7194 031336 021627 031324 MTTSO: CMP (R6), OMTTSQ 
7195 031342 001401 BEQ MTTSE 
de 031344 104001 ERROR +1 
7198 031346 MTTSE 
7199 031346 016767 151440 146440 MOV SLOCOO,14 
Hey 031354 012706 001000 MOV @STBOT ,R6 
7204 031360 MTTR 
7205 
7206 ; TEST OLO 
7207 031360 012706 001000 MOV *ST80T ,R6 
7208 031364 016767 146424 151420 mov 16 .SLOCOO 
7209 031372 012746 000020 MOV #20. -(R6) 
7210 031376 012746 031424 MOV OMTTPA, -CRE) 
7211 031402 012767 031426 146404 MOV OMTTRS 14 
7212 031410 012767 000357 146360 MOV 0357,P5 
7213 031416 000277 SCC 
7214 031420 000002 RTI 
seea 031422 104001 ERROR +1 

16 
aaen 031424 104001 MTTRA: ERROR 1 
218 
7219 031426 026727 147344 000020 MTTRB: CMP STBOT -2,420 
7220 031434 001401 BEQ MTTRC 
La 3 031436 104001 ERROR +1 
2 
7223 031440 012706 001000 MTTRC: MOV @STBOT ,R6 
7224 031444 012746 000377 MOV #377, -CR6) 
7225 031450 012746 031476 MOV @MTTROD, -CR6) 
7226 031454 012767 031500 146332 MOV OMTTRE ,14 
7227 031462 012767 000000 146306 MOV #0,PS 
7228 031470 000257 ccc 
7229 031472 000002 RTI 
Mong 031474 104001 ERROR +1 
ot 031476 104001 MTTRO: ERROR +1 
7234 031500 026727 147272 000377 MTTRE: CMP STBOT-2, #377 
7235 031506 001401 BEQ MTTRF 

031510 104001 ERROR +1 


x 
& 





SEQ 0132 


sSETUP STACK 
sSAVE OLD T-BIT VECTOR 
;PUSH T-BIT 
sSETUP ERROR TRAP VECTOR 
sSETUP NEW T-BIT VECTOR 
sCAUSE A T BIT SET IN PSW 

;CPU ERROR 

;SHOULD NEVER BE EXECUTED 
sRTT WILL EXECUTE THIS INSTRUCTION 
sWITH A T-BIT TRAP 

;CPU ERROR 

sDIONT TAKE CORRECT TRAP 
sVERIFY SP DECIRMENT 
;BRANCH IF GOOD 

;CPU ERROR 

;BAD SP 
;VERIFY PC SAVED ON STACK 
sBRANCH IF GOOD 

;CPU ERROR 

s INCORRECT PC ON STACK 


sRESTORE VECTOR 14 


STATUS ON T-BIT TRAP 


sSETUP STACK 

sSAVE OLD VECTOR 

sPUSH T-BIT 

sSETUP ERROR TRAP VECTOR 
;SETUP NEW T-BIT VECTOR 
sSET PRIORITY AND COND C 


;CPU ERROR 
;SHOULD NEVER EXECUTE 
;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 
;CPU ERROR 
;BAD STATUS ON STACK 
sSETUP STACK 
;PUSH T-BIT 
sSETUP ERROR TRAP VECTOR 
;SETUP NEW T-BIT VECTOR 
;CLEAR PRIORITY 
;CLEAR CONDITION CODES 


s;CPU ERROR 

;SHOULD NEVER EXECUTE 

sCPU ERROR 

sDIDNT TAKE CORRECT TRAP 
sVERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 








me ee eee 
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‘ 
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7237 ;0LD PSW INCORRECT 

7238 031512 MTTRF: 

7239 031512 016767 151274 146274 MOV SLOCOO,14 sRESTORE VECTOR 

onaa 031520 012706 001000 MOV #STBOT ,R6 

7243 3 

7245 031524 MRT: 

7246 

7247 F TEST RESERVED INST TRAP 

7248 031524 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 

7249 031530 016767 146254 151254 MOV 10,SLOCO0O sSAVE OLD VECTOR 
7250 031536 012767 031550 146244 MOV #MRTB,10 sSETUP NEW RESERVED VECTOR 
7251 031544 000077 77 

7252 031546 104001 MRTA: ERROR o1 ;CPU ERROR 

7253 sDIDNT TAKE CORRECT TRAP 

7254 031550 022706 000774 MRTB: CMP #STBOT-4,R6 ;VERIFY SP DECRIMENT 
7255 031554 001401 BEQ MRTE ;BRANCH IF GOOD 

7256 031556 104001 ERROR ol ;CPU ERROR 

7257 ;BAD PC ON STACK 

7258 031560 021627 031546 MRTE: CMP CR6),@MRTA ;VERFY PROPER PC ON STACK 
7259 031564 001401 BEQ MRTF ;BRANCH IF GOOD 

7260 031566 104001 ERROR +1 ;CPU ERROR 

7261 s INCORRECT PC ON STACK 

7262 031570 MRTF : 

7263 031570 016767 151216 146212 MOV SLOCOO,10 sRESTORE TRAP VECTOR 
7264 031576 012706 001000 MOV #STBOT ,R6 

7265 

7267 3 

7268 3 

7270 031602 MRTO: 

7271 

7272 3 TEST OLD STATUS ON RESERVED INST TRAP 

7273 031602 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 

7274 031606 016767 146176 151176 MOV 10,SLOCOO ;SAVE OLD VECTOR 
7275 031614 012767 031634 146166 MOV #MRTOB,10 ;SETUP NEW VECTOR 
7276 031622 005067 146150 CLR PS ;CLEAR PRIORITY AND COND C 
7277 031626 000257 ccc 

7278 031630 000077 77 

7279 031632 104001 MRTOA: ERROR +1 ;CPU ERROR 

7280 ;DIDNT TAKE CORRECT TRAP 

7281 031634 026727 147136 000000 MRTOB: CMP STBOT-2, #0 sVERIFY PSW ON STACK 
7282 031642 001401 BEQ MRTOC sBRANCH IF CORRECT STATUS 
7283 031644 104001 ERROR o1 ;CPU ERROR 

7284 ;BAD STATUS ON STACK 

7285 031646 012706 001000 MRTOC: MOV #STBOT ,R6 ;SETUP STACK 

7286 031652 012767 031674 146130 MOV @MRTOE ,10 ;SET UP TRAP VECTOR 
7287 031660 012767 000357 146110 MOV #357,PS ;SET PRIORITY 

7288 031666 000277 scc :SET CONDITION CODES 
seen 031670 000077 77 sRESERVED INSTRUCTION 
7291 031672 104001 MRTOD: ERROR +1 ;CPU ERROR 

7292 sDIDNT TAKE CORRECT TRAP 

7293 031674 026727 147076 000357 MRTOE: CMP STBOT-2, #357 ;VERIFY OLD PSW ON STACK 
7294 031702 001401 BEQ MRTOF ;BRANCH IF GOOD 

7295 031704 104001 ERROR ol ;CPU ERROR 

7296 ;O0LD PSW INCORRECT 


7297 031706 MRTOF ; 


a A RD A 
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031706 
031714 


031720 


031720 
031724 
031732 
031740 
031744 
031746 
031750 


031752 
031756 
031760 


031762 
031766 
031770 


031772 
031772 
032000 


032004 


032110 
032110 
032116 


016767 
012706 


021627 
001401 
104001 


016767 
012706 


012706 
016767 
012767 
005067 
000257 
104400 
104001 


026727 
001401 
104001 


012706 
012767 
012767 
000277 
104400 
104001 


026727 
001401 
104001 


016767 
012706 


151100 
0010600 


001000 
146104 
031752 
146032 


000774 


031750 


151014 
001000 


001000 
146020 
032036 
145746 


146734 


001000 
032076 
000357 


146674 


150676 
001000 
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146074 


151060 
146074 


146034 


150774 
146010 


145752 
145706 


000357 


145716 


MTP: 


MTPR: 
MTPB: 


MTPQ: 


MTPF : 


MTPOA: 
MTPOB: 


MTPOC: 


MTPOD: 
MTPOE: 


MTPOF : 
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sea 0134s! 


MOV SLOCOO, 10 sRESOTRE TRAP VECTOR 


MOV @STBOT ,R6 


TEST TRAP INST 

MOV @STBOT ,R6 sSETUP STACK 

MOV 34,SLOCOO ;SAVE OLD VECTOR 

MOV OMTPB , 34 ;SETUP NEW TRAP VECTOR 


on PS ;CLEAR PRIORITY ABND COND C 
TRAP 
ERROR +1 ;CPU ERROR 


sDIONT TAKE CORRECT TRAP 


CMP @STBOT-4,R6 ;VERIFY SP DECRIMENT 
BEQ MTPQ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
sBAD PC ON STACK 
CMP CR6),@MTPR ;VERFY PROPER PC ON STACK 
BEQ MTPF ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
s INCORRECT PC ON STACK 
MOV SLOCOO , 34 sRESTORE VECTOR 
MOV ®STBOT ,R6 


TEST OLD STATUS SAVED ON TRAP 


MOV @STBOT ,R6 sSETUP STACK 

MOV 34,SLOCOO sSAVE OLD VECTOR 

MOV @MTPOB , 34 sSETUP NEW TRAP VECTOR 

4 PS ;CLEAR PRIORITY AND COND C 
TRAP 

ERROR +1 ;CPU ERROR 


sDIONT TAKE CORRECT TRAP 


CMP STBOT-2, 00 ;VERIFY PSW ON STACK 


BEQ MTPOC s;BRANCH IF CORRECT STATUS 
ERROR +1 ;CPU ERROR 
;BAD STATUS ON STACK 
MOV @STBOT ,R6 sSETUP STACK 
MOV @MTPOE , 34 ;SET UP TRAP VECTOR 
MOV #357,PS sSET PRIORITY 
Scc 3SET CONDITION CODES 
TRAP sISSUE TRAP 
ERROR +1 ;CPU ERROR 
s;DIDNT TAKE CORRECT TRAP 
CMP STBOT-2, 4357 ;VERIFY OLD PSW ON STACK 
BEQ MTPOF ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 


;OLD PSW INCORRECT 


MOV SLOCOO, 34 sRESTORE TRAP VECTOR 


MOV @STBOT ,R6 





r 
| 


ee 
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7364 032122 


7379 032170 
7381 032174 


7384 032176 
7385 032176 


7387 032200 
7388 032204 
7389 032210 
7390 032212 
7391 032220 
7392 032224 
7393 032226 


7395 032226 
7396 032234 


7398 032242 


7404 032246 


7407 032246 
7408 032252 
7409 032260 
7410 032266 
7411 032270 


7413 032272 
7414 032276 
7415 032300 


7417 032302 
7418 032306 
7419 032310 


005003 
012706 
016767 
016767 
012767 
012767 
000167 


000000 
104001 


000167 
104001 


005203 


012706 
020327 
001406 
012767 
060367 
000757 


016767 
016767 
012706 


021627 
001401 
104001 


001000 
145700 
145642 
032174 
032176 
000012 


000002 


001000 
000400 


104400 
177740 


150560 
150554 


001000 


001000 
145542 
032272 


000774 


032270 
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150654 
150650 
145632 
145654 


177744 


145600 
145542 


150532 
145532 


’ 
3 
MTPA: 


: 
MTPAH: 


MTPAA: 


MTPAE: 
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TEST ALL TRAP OPCODES - SELF MODIFYING 
CLR R3 


MOV #STBOT ,R6 
MOV 34,SLOCOO 
MOV 4,SLOCO1 


MOV @MTPAH,4 
MOV @MTPAA, 34 
JMP MTPAA 
HALT 

ERROR +1 

JMP MTPAA 
ERROR +1 

INC R3 

MOV #STBOT ,R6 
CMP R3, #400 
BEQ MTPAE 

MOV #104400 ,MTPAL 
ADD R3,MTPAL 
BR MTPAL 

MOV SLOCOO, 34 
MOV SLOCcO1,4 
MOV #STBOT ,R6 


TEST IOT TRAP 

MOV #STBOT ,R6 
MOV 20,SLOCOO 
MOV #MIOTB,20 
I0T 


ERROR +1 

CMP #STBOT-4,R6 
BEQ MIOTD 

ERROR +1 

CMP (R6),#MIOTA 
BEQ MIOTF 

ERROR +1 


sSETUP REGISTER TO INDICATE OPCODE 
sSETUP STACK 

sSAVE OLD VECTOR 

sSAVE IN CASE OF HALT 

s;SETUP HALT TRAP 

;SETUP NEW TRAP VECTOR 

:GO INTO LOOPING CODE 


;SET TO A ZERO 

;CPU ERROR 

; TRAP INSTRUCTION FAILED TO TRAP 
sEXAMINE OPCCODE AT LOCATION MTPAL: 
;ATTEMPT TO GO ON 


;CPU ERROR 
sERROR, EITHER CANT MODIFY LOCATION MTPAL 
;OR TRAP INSTRUCTION FAILED 


;GET NEXT OPCODE 


sRESTORE STACK 

;SEE IF LAST OPCODE 
sBRANCH IF DONE 

;TRAP OPCODE INTO LOCATION 
sFORM TEST OPCODE 

sEXECUTE TEST 


sRESTORE VECTORS 


;SETUP STACK 
sSAVE OLD VECTOR 
;SETUP NEW IOT VECTOR 


;CPU ERROR 

sDIDNT TAKE CORRECT TRAP 
;VERIFY SP DECRIMENT 
;BRANCH IF GOOD 

;CPU ERROR 

;BAD PC ON STACK 
;VERFY PROPER PC ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 








SEQ 0135 


——— 
‘ 
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7420 
7421 
7422 


032312 
032320 


032324 


032324 
032330 


032370 
032374 
032402 
032410 
032412 
032414 


032416 
032424 
032426 


032430 
032430 
032436 


032442 


032442 
032446 
032454 
032462 
032470 
032476 
032500 
032502 
032504 
032506 


032510 
032514 
032516 


032520 
032524 
032526 


016767 
012706 


012706 
016767 
012767 
005067 
000257 
000004 


104001 


026727 
001401 
104001 


026727 
001401 
104001 


016767 
012706 


021627 
001401 
104001 


150474 
001000 


001000 
145464 
032356 
145426 


146414 


001000 
032416 
000357 


146354 


150356 
001000 


001000 
145356 
032510 
145346 
140776 


000774 


032500 
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145500 MIOTF: 


150454 
145454 


000000 


145416 
145366 


000357 


145362 


150336 
145346 
150324 
145336 


MITO: 


MITOA: 
MITOB: 


META: 


METB: 


METD: 


s INCORRECT PC ON STACK 


MOV SLOCOO, 20 
MOV @STBOT ,R6 


TEST OLD STATUS ON IOT TRAP 
MOV #STBOT , R6 
MOV 20,SLO0COO 
MOV #MITOB ,20 


sRESTORE VECTOR 


sSETUP STACK 

s;SAVE OLD VECTOR 

;SETUP NEW IOT VECTOR 
;CLEAR PRIORITY AND COND C 


;CPU ERROR 


sDIDNT TAKE CORRECT TRAP 


;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 


;CPU ERROR 


;BAD STATUS ON STACK 


sSETUP STACK 

;SET UP TRAP VECTOR 
;SET PRIORITY 

3SET CONDITION CODES 


;CPU ERROR 


sDIDNT TAKE CORRECT TRAP 


CLR PS 

ccc 

IOT 

ERROR +1 

CMP STBOT-2, #0 
BEQ MITOC 
ERROR +1 

MOV #STBOT ,R6 
MOV #MITOE ,20 
MOV #357,PS 
scc 

IOT 

ERROR +1 

CMP STBOT-2, #357 
BEQ MITOF 
ERROR +1 


;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 


;CPU ERROR 


;OLD PSW INCORRECT 


MOV SLOCOO, 20 
MOV #STBOT ,R6 


TEST EMULATOR TRAP INSTRUCTION 
MOV #STBOT ,R6 
MOV 30,SLOCOO 
MOV #METB , 30 
MOV 34,SL0CO1 


sRESTORE VECTOR 


CEMT ) 

sSETUP STACK 

sSAVE OLD VECTOR 

;SETUP NEW EMT VECTOR 

sSAVE TRAP VECTOR 

;SET UP TO HANDLE EMT ERROR 


; TRAP ON ERROR 


sE 
;DIDNT TAKE CORRECT TRAP 


;VERIFY SP DECRIMENT 
;BRANCH IF GOOD 


;CPU ERROR 


s;BAD PC ON STACK 


MOV #$ERROR , 34 
EMT 

TRAP 

-WORD 559. 

-WORD 1 

-WORD 1 

CMP #STBOT-4,R6 
BEQ METD 

ERROR +1 

CMP C(R6),#META 
BEQ METF 

ERROR +1 


;VERFY PROPER PC ON STACK 
;BRANCH IF GOOD 


;CPU ERROR 


s INCORRECT PC ON STACK 





SEQ 0136 


— 


a ee ee 


Hii 
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¢eeeeee0¢0¢e DOUBLE OPERAND TESTS seeeeeeeeeacecese 


7481 032530 016767 150260 145276 METF: MOV SLOCO1,34 sRESTORE VECTOR 

7482 032536 016767 150250 145264 MOV SLOCOO,30 sRESTORE VECTOR 

7483 032544 012706 001000 MOV #STBOT ,R6 

7484 

7486 ; 

7488 032550 METO: 

7489 

7490 3 TEST OLO STATUS ON EMT TRAP 

7491 032550 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 

7492 032554 016767 145250 150230 MOV 30,SLO0C00 ;SAVE OLD VECTOR 

7493 032562 012767 032624 145240 MOV #METOB , 30 ;SETUP NEW EMT VECTOR 

7494 032570 016767 145240 150216 MOV 34,SL0C01 ;SAVE TRAP VECTOR 

7495 032576 012767 140776 145230 MOV #$ERROR , 34 ;SET UP TRAP VECTOR 

7496 032604 005067 145166 CLR PS ;CLEAR PRIORITY AND COND C 

7497 032610 000257 ccc 

7498 032612 104000 EMT 

7499 022614 104400 METOA: TRAP 

7500 032616 001062 . WORD 562. 

7501 032620 000001 . WORD 1 ; CPUERR 

7502 032622 000001 .» WORD 1 ;ERRTN 

7503 sDIDNT TAKE CORRECT TRAP 

7504 032624 026727 146146 000000 METOB: CMP STBOT-2, #0 ;VERIFY PSW ON STACK 

7505 032632 001401 BEQ METOC ;BRANCH IF CORRECT STATUS 

7506 032634 104001 ERROR +1 ;CPU ERROR 

7507 ;BAD STATUS ON STACK 

7508 032636 012706 001000 METOC: MOV #STBOT ,R6 ;SETUP STACK 

7509 032642 012767 032672 145160 MOV #METOE , 30 ;SET UP TRAP VECTOR 

7510 032650 012767 000357 145120 MOV #357,PS ;SET PRIORITY 

7511 032656 000277 scc ;SET CONDITION CODES 

7512 032660 104000 EMT 

7513 032662 104400 METOD: TRAP 

7514 032664 001064 . WORD 564. 

7515 032666 000001 . WORD 1 ;CPUERR 

7516 032670 000001 . WORD 1 ;ERRTN 

7517 sDIDNT TAKE CORRECT TRAP 

7518 032672 026727 146100 000357 METOE: CMP STBOT-2, #357 ;VERIFY OLD PSW ON STACK 

7519 032700 001401 BEQ METOF ;BRANCH IF GOOD 

7520 032702 104001 ERROR +1 ;CPU ERROR 

7521 ;0LD PSW INCORRECT 

7522 032704 METOF : 

7523 032704 016767 150104 145122 MOV SLOCO1,34 sRESTORE VECTOR 

7524 032712 016767 150074 145110 MOV SLOCOO,30 sRESTORE VECTOR 

7525 032720 012706 001000 MOV #STBOT ,R6 

7526 

7528 3 

7529 F 

7531 032724 MBT : 

7532 

7533 3 TEST BPT TRAP 

7534 032724 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 

7535 032730 016767 145060 150054 MOV 14,SLOCOO ;SAVE OLD VECTOR 

7536 032736 012767 032750 145050 MOV #MBTB,14 ;SETUP NEW BPT VECTOR 

7537 032744 000003 BPT 

7538 032746 104001 MBTA ERROR o1 ;CPU ERROR 

7539 ;DIDNT TAKE CORRECT TRAP 

7540 032750 022706 000774 MBTB: CMP #STBOT-4,R6 ;VERIFY SP DECRIMENT 
032754 001401 BEQ MBTD ;BRANCH IF GOOD 














SEQ 0137 
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SE 
**eeee¢¢00e% DOUBLE OPERAND TESTS «eacencececececedce 3S coms 

7542 032756 104001 ERROR +1 ;CPU ERROR 

7543 ;BAD PC ON STACK 

7544 032760 021627 032746 MBTD: CMP CR6),#MBTA ;VERFY PROPER PC ON STACK 

7545 032764 001401 BEQ MBTF ;BRANCH IF GOOD 

7546 032766 104001 ERROR +1 ;CPU ERROR 

7547 s INCORRECT PC ON STACK 

7548 032770 016767 150016 145016 MBTF: MOV SLOCOO, 14 sRESTORE VECTOR 

7549 032776 012706 001000 MOV #STBOT ,R6 

7550 

7552 3 

7553 3 

7555 033002 MBTO: 

7556 

7557 3 TEST OLD STATUS ON BPT TRAP 

7558 033002 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 

7559 033006 016767 145002 147776 MOV 14,SLOCO0O ;SAVE OLD VECTOR 

7560 033014 012767 033034 144772 MOV #MBTOB ,14 sSETUP NEW BPT VECTOR 

7561 033022 005067 144750 CLR PS ;CLEAR PRIORITY AND COND C 

7562 033026 000257 ccc 

7563 033030 000003 BPT 

7564 033032 104001 MBTOA: ERROR +1 ;CPU ERROR 

7565 sDIDNT TAKE CORRECT TRAP 

7566 033034 026727 145736 000000 MBTOB: CMP STBOT-2,#0 ;VERIFY PSW ON STACK 

7567 033042 001401 BEQ MBTOC ;BRANCH IF CORRECT STATUS 

7568 033044 104001 ERROR +1 ;CPU ERROR 

7569 ;BAD STATUS ON STACK 

7570 033046 012706 001000 MBTOC: MOV #STBOT ,R6 sSETUP STACK 

7571 033052 012767 033074 144734 MOV #MBTOE,14 ;SET UP TRAP VECTOR 

7572 033060 012767 000357 144710 MOV #357,PS ;SET PRIORITY 

7573 033066 000277 SCC ;SET CONDITION CODES 

7574 033070 000002 BPT 

7575 033072 104001 MBTOD: ERROR +1 ;CPU ERROR 

7576 ;DIDNT TAKE CORRECT TRAP 

7577 033074 026727 145676 000357 MBTOE: CMP STBOT-2, #357 ;VERIFY OLD PSW ON STACK 

7578 033102 001401 BEQ MBTOF ;BRANCH IF GOOD 

7579 033104 104001 ERROR +1 ;CPU ERROR 

7580 ;O0LD PSW INCORRECT 

7581 033106 MBTOF : 

7582 033106 016767 147700 144700 MOV SLOCOO,14 sRESTORE VECTOR 

7583 033114 012706 001000 MOV #STBOT ,R6 

7584 

7586 F 

7587 3 

7589 033120 MIL: 

7590 

7591 F TEST ILLEGAL JUMP INSTRUCTION TRAP 

7592 033120 012706 001000 MOV #STBOT,R6 ;SETUP STACK 

7593 033124 016767 144660 147660 MOV 10,SL0C00 ;SAVE OLD VECTOR 

7594 033132 012767 033146 144650 MOV #MILB,10 ;SETUP NEW ILLEGAL VECTOR 

7595 033140 005001 CLR R1 

7596 033142 000101 JMP R1 3*#*#TEST INSTRUCTIO 

7597 033144 104001 MILA: ERROR o1 ;CPU ERROR 

7598 ;DIDNT TAKE CORRECT TRAP 

7599 033146 022706 000774 MILB: CMP #STBOT-4,R6 ;VERIFY SP DECRIMENT 

7600 033152 001401 BEQ MILD ;sBRANCH IF GOOD 

7601 033154 104001 ERROR ol ;CPU ERROR 


| 7602 sBAD PC ON STACK 








tan” ee 


g J14 
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SEQ 0139 
**eeee¢0¢¢¢0e DOUBLE OPERAND TESTS *«eeeeeeeeeeececes 


7603 033156 021627 033144 MILD: CMP CR6),@MILA ;VERFY PROPER PC ON STACK 
7604 033162 001401 BEQ MILF ;BRANCH IF GOOD 
7605 033164 104001 ERROR +1 ;CPU ERROR 
7606 s INCORRECT PC ON STACK 
7607 033166 016767 147620 144614 MILF: MOV SLOCOO,10 sRESTORE VECTOR 
feos 033174 012706 001000 MOV #STBOT ,R6 
7612 033200 MILO: 
7613 
7614 3 TEST OLD STATUS ON ILLEGAL JUMP TRAP 
7615 033200 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 
7616 033204 016767 144600 147600 MOV 10,SLOCOO ;SAVE OLD VECTOR 
7617 033212 012767 033234 144570 MOV #MILOB,10 ;SETUP NEW ILLEGAL VECTOR 
7618 033220 005067 144552 CLR PS ;CLEAR PRIORITY AND COND C 
7619 033224 000257 ccc 
7620 033226 005001 CLR R1 
7621 033230 000101 JMP R1 
7622 033232 104001 MILOA: ERROR +1 ;CPU ERROR 
7623 sDIDNT TAKE CORRECT TRAP 
7624 033234 026727 145536 000004 MILOB: CMP STBOT-2, #4 ;VERIFY PSW ON STACK 
7625 033242 001401 BEQ MILOC ;BRANCH IF CORRECT STATUS 
7626 033244 104001 ERROR +1 ;CPU ERROR 
7627 ;BAD STATUS ON STACK 
7628 033246 012706 001000 MILOC: MOV #STBOT ,R6 ;SETUP STACK 
7629 033252 012767 033274 144530 MOV #MILOE,10 ;SET UP TRAP VECTOR 
7630 033260 012767 000357 144510 MOV #357,PS 3;SET PRIORITY 
7631 033266 000277 scc :SET CONDITION CODES 
7632 033270 000101 JMP Ri 
7633 033272 104001 MILOD: ERROR +1 ;CPU ERROR 
7634 sDIDNT TAKE CORRECT TRAP 
7635 033274 026727 145476 000357 MILOE: CMP STBOT-2, #357 ;VERIFY OLD PSW ON STACK 
7636 033302 001401 BEQ MILOF ;BRANCH IF GOOD 
7637 033304 104001 ERROR +1 ;CPU ERROR 
7638 ;0LD PSW INCORRECT 
7639 033306 MILOF : 
7640 033306 016767 147500 144474 MOV SLOCOO,10 sRESTORE VECTOR 
7641 033314 012706 001000 MOV #STBOT ,R6 
7642 
7644 3 
7645 3 
7647 033320 MIALL 
7648 
7649 3 TEST ILLEGAL JSR INSTRUCTION TRAP 
7650 033320 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 
7651 033324 016767 144460 147460 MOV 10,SLOCO0O ;SAVE OLD VECTOR 
7652 033332 012767 033346 144450 MOV #MIALLB,10 ;SETUP NEW ILLEGAL VECTOR 
7653 033340 005003 CLR R3 
7654 033342 004303 JSR R3,R3 
7655 033344 104001 MIALLA: ERROR +1 ;CPU ERROR 
7656 sDIDNT TAKE CORRECT TRAP 
7657 033346 022706 000774 MIALLB: CMP #STBOT-4,R6 ;VERIFY SP DECRIMENT 
7658 033352 001401 BEQ MIALLD ;BRANCH IF GOOD 
7659 033354 104001 ERROR +1 ;CPU ERROR 
7660 ;BAD PC ON STACK 
7661 033356 021627 033344 MIALLD: CMP (R6), #MIALLA ;VERFY PROPER PC ON STACK 
7662 033362 001401 BEQ MIALLF ;BRANCH IF GOOD 
033364 104001 ERROR o1 ;CPU ERROR 


é 











' 
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COKDADO KDJ11-B CLUSTER DIAG. 
*eeeee¢e0¢ee DOUBLE OPERAND TESTS eaeeeceseacescase 
7664 s INCORRECT PC ON STACK 
7665 033366 016767 147420 144414 MIALLF: MOV SLOCOO,10 sRESTORE VECTOR 
wees 033374 012706 001000 MOV #STBOT ,R6 
7669 F 
7670 F 
7672 033400 MJSI: 
7673 
7674 F TEST OLD STATUS ON ILLEGAL JSR TRAP 
7675 033400 012706 001000 MOV #STBOT ,R6 ;SETUP STACK 
7676 033404 016767 144400. 147400 MOV 10,SLOC0O sSAVE OLD VECTOR 
7677 033412 012767 033434 144370 MOV #MJSIB,10 ;SETUP NEW VECTOR 
7678 033420 005067 144352 CLR PS ;CLEAR PRIORITY AND COND C 
7679 033424 000257 ccc 
7680 033426 0050035 CLR R3 
7681 033430 004303 JSR R3,R3 
7682 033432 104001 MJSIA: ERROR o1 ;CPU ERROR 
7683 ;DIDNT TAKE CORRECT TRAP 
7684 033434 026727 145336 000004 MJSIB: CMP STBOT-2, #4 ;VERIFY PSW ON STACK 
7685 033442 001401 BEQ MJSIC ;BRANCH IF CORRECT STATUS 
7686 033444 104001 ERROR +1 ;CPU ERROR 
7687 ;BAD STATUS ON STACK 
7688 033446 012706 001000 MJSIC: MOV #STBOT,R6 sSETUP STACK 
7689 033452 012767 033474 144330 MOV #MJSIE,10 ;SET UP TRAP VECTOR 
7690 033460 012767 000357 144310 MOV #357,PS sSET PRIORITY 
7691 033466 000277 scc :SET CONDITION CODES 
7692 033470 004303 JSR R3,R3 
7693 033472 104001 MJSID: ERROR +i ;CPU ERROR 
7694 ;DIDNT TAKE CORRECT TRAP 
7695 033474 026727 145276 000357 MJSIE: CMP STBOT-2,4#357 ;VERIFY OLD PSW ON STACK 
7696 033502 001401 BEQ MJSIF ;BRANCH IF GOOD 
7697 033504 104001 ERROR +1 ;CPU ERROR 
7698 ;OLD PSW INCORRECT 
7699 033506 MJSIF 
7700 033506 016767 147300 144274 MOV SLOCOO,10 sRESTORE VECTOR 
7701 033514 012706 001000 MOV #STBOT ,R6 
7702 
7704 3 
7705 3 
7707 033520 IOXXX 
7708 3 I/O TIME OUT TEST 
7709 033520 005067 144242 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
7710 033524 016767 144254 147260 MOV 4,SLOCO0O sSAVE VECTOR 
7711 033532 012767 033554 144244 MOV $2$,4 ;SET UP VECTOR TO HANDLE NXM 
7712 033540 012767 030000 144230 MOV #30000 ,PS ;INIT THE PSW TO A KNOWN STATE 
7713 033546 005737 177700 TST 8#177700 sTRY TO ACCESS HARDWARE ADDRESS 
7714 ;FOR GENERAL PURPOSE REG 0. THIS 
7715 31S NOT IMPLEMENTED ON KDJ11 
7716 ;SHOULD CAUSE TIME OUT. 
7717 033552 104001 1$: ERROR ol ;CPU ERROR 
7718 033554 022767 000020 144204 23: CMP #BITO4,CPEREG :I1S CPU ERROR REGISTER CORRECT? 
7719 033562 001401 BEQ 3$ 
7720 033564 104001 ERROR ol ;CPU ERROR 
7721 033566 022627 033552 3$: CMP (SP)+,#1$ sCHECK THAT STACK CONTAINS CORRECT ADDR. 
7722 033572 001401 BEQ 4$ 3 
7723 033574 104001 ERROR ol ;CPU ERROR 
| 7724 033576 022627 030000 4$: CMP (SP)+, #30000 31S THE PSW OK? 
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SEQ 0141 


7725 033602 001401 BEQ 5$ 3 
7726 033604 104001 ERROR ol ;CPU ERROR 
7727 033606 005067 144154 5$: CLR CPEREG ;CLEAR THE CPU ERROR REGISTER 
hed 033612 016767 147174 144164 MOV SLOCOO,4 sRESTORE VECTOR 
rat 033620 ODDXx: 
7742 3 ODD ADDRESS/ILLEGAL INST FETCH TRAP TEST 
7743 Wetiiiititiitiittitiititiititiiitiiitiitiiiitiiitititiiititititit | 

;THIS PROGRAM GENERATES AN ODD ADDRESS IN THE PC. THE KDJ11 SHOULD 

sTRAP THROUGH ADOR 4 
7744 033620 005067 144142 CLR CPEREG sINIT THE CPU ERROR REG 
7745 033624 016767 144154 147160 MOV 4,SLOCOO sSAVE VECTOR 
7746 033632 012767 033666 144144 MOV #2$,4 3SET UP VECTOR TO HANDLE ODD ADDR TRAP 
7747 033640 016767 144142 147146 MOV 6,SLOCO1 ;SAVE VECTOR 
7748 033646 005067 144134 CLR 6 ;INIT VECTOR 
7749 033652 012746 030000 MOV #30000, -( SP) ;PUSH A KNOWN PSW ON THE STACK 
7750 033656 012746 033665 MOV #1$+1,-(CSP) sPUSH AN ODD NUMBER ON THE STACK 
7751 033662 000002 RTI sPOP ODD ADDRESS OFF STACK INTO PC 
7752 ;SHOULD TRAP HERE 
7753 033664 104001 i$: ERROR ol ;CPU ERROR 
7754 033666 022767 000100 144072 23: CMP #BITO6 , CPEREG :I1S CPU ERROR REGISTER CORRECT? 
7755 033674 001401 BEQ 3$ 
7756 033676 104001 ERROR +1 ;CPU ERROR 
7757 033700 022726 033665 3$: CMP #1$+1,(SP)-+ :I1S STACK CONTENTS CORRECT? 
7758 033704 001401 BEQ 4$ 3 
7759 033706 104001 ERROR o1 ;CPU ERROR 
7760 033710 022726 030000 4$: CMP #30000, (SP )+ :IS PSW CORRECT ON STACK? 
7761 033714 001401 BEQ S$ ; 
7762 033716 104001 ERROR +1 ;CPU ERROR 
7763 033720 005067 144042 S$: CLR CPEREG ;CLEAR CPU ERROR REG 
7764 F 
7765 sNOW WE'LL TRY TO FETCH AN INSTRUCTION FROM AN INTERNAL REGISTER. 
7766 sTHIS SHOULD CAUSE A TRAP TO ADDR 4 AND SET BIT 6 IN THE CPU 
7767 sERROR REGISTER. 
7768 3 
7769 033724 012767 033752 144052 MOV #7$,4 sLOAD VECTOR WITH TRAP HANDLER ADDR 
7770 033732 012767 930340 144046 MOV #30340,6 ;LOAD VEC WITH PSW VALUE ON TRAP 
7771 033740 005067 144032 CLR PS ;CLEAR THE PSW 
7772 033744 000167 144026 JMP PS ;*eeeeeeTEST INSTRUCTIONeseseses 
7773 ;TRY INSTRUCTION FETCH FROM INTERNAL 
7774 sREGISTER-- SHOULD TRAP VIA ADDR 4 
7775 033750 104001 6$: ERROR +1 ;CPU ERROR 
7776 033752 016701 144020 7$: MOV PS,R1 ;SAVE CONTENTS OF PSW IN R1 
7777 033756 022767 000100 144002 CMP #BIT06,CPEREG :IS CPU ERROR REGISTER CORRECT? 
7778 033764 001401 BEQ 8$ : 
7779 033766 104001 ERROR ol ;CPU ERROR 
7780 033770 022726 177776 8$: CMP @PS,CSP)+ 31S STACK CONTENTS CORRECT? 
7781 033774 001401 BEQ 9¢ ; 
7782 033776 104001 ERROR +1 ;CPU ERROR 
7783 034000 022726 000000 9$: CMP #0,(SP)+ 31S STACK CONTENTS CORRECT? 
7784 034004 001401 BEQ 10$ 3 
7785 034006 104001 ERROR ol ;CPU ERROR 
7786 034010 022701 000340 10$: CMP #340,R1 sWAS PSW LOADED PROPERLY ON TRAP? 
7787 034014 001401 BEQ 11$ 3 
7788 034016 104001 ERROR ;CPU ERROR 


+1 
7789 034020 005067 143742 11%: CLR CPEREG ;CLEAR CPU ERROR REGISTER 
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SEQ 0142 

eee¢eeeeee¢2 DOUBLE OPERAND TESTS eeesecececesesese 

7790 034024 016767 146762 143752 MOV SLOCOO,4 sRESTORE VECTOR 

44] 034032 016767 146756 143746 MOV SLOCO1 ,6 3 be 

7795 034040 RXXX: 

7796 

7797 3 RED ZONE TRAP TEST 

7798 034040 013767 000004 146744 MOV 204 ,SLOCOO ;SAVE VECTOR 

7799 034046 012737 034076 000004 MOV $2$ , 804 ;SET UP VECTOR 

7800 034054 012706 000777 MOV #777 ,R6 ;SET UP THE STACK WITH ODD ADDRESS 

780i 034060 005067 143702 CLR CPEREG ;CLEAR THE CPU ERROR REGISTER 

7802 034064 005067 143706 CLR PSW ;CLEAR THE PSW 

7803 034070 005737 177700 TST 80177700 ;ACCESS NON-EXISTANT I/0 ADDRESS 

7804 034074 104001 i$: ERROR +1 ;CPU ERROR 

7805 034976 022706 000000 2s: CMP #0,SP :1S R6 CORRECT? 

7806 034102 001401 BEQ 3$ ;BRANCH IF YES 

7807 034104 104001 ERROR o1 ;CPU ERROR 

7808 034106 022726 034074 3$: CMP #1$,(SP)-+ 31S DATA AT ADDR O CORRECT? 

7809 034112 001401 BEQ 4$ ;BRANCH IF YES 

7810 034114 104001 ERROR o1 ;CPU ERROR 

7811 034116 022716 000000 4$: CMP #0,(SP) 31S PSW DATA IN ADDR 2 CORRECT? 

7812 034122 001401 BEQ 5$ ;BRANCH IF YES 

7813 034124 104001 ERROR o1 ;CPU ERROR 

7814 034126 022767 000124 143632 5$: CMP #124, CPEREG :IS CPU ERROR REGISTER CORRECT? 

7815 034134 001401 BEQ 6$ ;BRANCH IF YES 

7816 034136 104001 ERROR o1 ;CPU ERROR 

7817 034140 005067 143622 6$: CLR CPEREG ;CLEAR CPU ERROR REGISTER 

7818 034144 012706 001000 MOV #STBOT ,SP sRESTORE STACK 

7819 034150 016737 146636 000004 MOV SLOCOO , 804 sRESTORE VECTOR 

7820 034156 005037 000000 CLR ae0 sRESTORE ADDR O 

beg 3 034162 005037 000002 CLR ave sRESTORE ADDR 2 

7824 

7826 

7827 034166 PIRXXX: 

7828 ; TEST PIRQ REGISTER RESPONSE 

7829 034166 016767 143612 146616 MOV »SLOCOO sSAVE CONTENTS OF VECTORS 

7830 034174 012767 034222 143602 MOV @PIRQNX ,4 sSETUP INTERRUPT VECTOR 

7831 034202 005067 143560 CLR CPEREG sCLEAR CPU ERROR REGISTER 

7832 034206 005737 177772 TST aePIRQ ;LOOK FOR REPLY FROM PIRQ 

7833 034212 016767 146574 143564 MOV SLOCOO,4 sRESTORE VECTORS 

7834 034220 000401 BR PIRTEX ;IF IT RESPONDS, CONTINUE TESTING. 

7835 sERROR! NO RESPONSE FROM PIRQ REG 

7836 034222 104001 PIRQNX: ERROR ol ;CPU ERROR 

7837 034224 PIRTEX: 

7838 

7839 034224 PIRI: 

7840 3 TEST PIRQ REGISTER DATA 

7841 034224 013767 000240 146560 MOV @eOPIRQVEC ,SLOCOO ~—. PIRQ VECTORS 

7842 034232 013767 000242 146554 MOV @OPIRQVEC:2, SLOCO1 

7843 034240 012737 034450 000240 MOV OUNXPIR , SOPIRQVEC 1SET UP prra VECTOR FOR UNEXPECTED INTERRUPT 

7844 034246 012737 000340 000242 MOV @PR7 , BOPIRQVEC+2 

7845 034254 012703 001000 MOV #1000 ,R3 ‘PUT 1000 IN R3: START TESTING 

7846 ;BITS IN PIRQ REG BY FLOATING 

7847 :A BIT THROUGH BITS 9-i5. 

7848 034260 012704 034324 MOV @PIRTBL ,R4 ;SET UP R4& AS A POINTER TO EXPECTED 

7849 sENCODED PRIORITY LEVELS IN PIRTBL 

7850 034264 000237 1$: SPL 7 ;DO0N'T ALLOW INTERRUPTS. 


wap 




















Nii 
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SEQ 0143 
eeseeeeseees DOUBLE OPERAND TESTS seseesesesecesece 

7851 034266 005037 177772 CLR 8OPIRQ sCLEAR OUT THE PIRQ 
7852 034272 023724 177772 CMP BOPIRQ,(R4)+ sIS PIRQ@ OK?? 
7853 034276 001401 BEQ 2s sBRANCH IF OK 
7854 sERROR; PIRQ REG WAS NOT CLEAR 
7855 034300 104001 ERROR +1 ;CPU ERROR 
7856 034302 010337 177772 2s: MOV R3,@OPIRQ sSET A BIT IN PIRQ REGISTER 
7857 034306 023724 177772 CMP BOPIRQ, (R4)- sCOMPARE THE ENCODED PRIORITY BITS 
7858 sWITH DATA IN THE TABLE CPIRTBL) 
7859 034312 001401 BEQ 3% sBRANCH IF ITS OK 
7860 sERROR; ENCODED PRIORITY LEVELS ARE 
7861 sNOT CORRECT 
7862 034314 104001 ERROR 1 sCPU ERROR 
7863 034316 006303 34%: ASL R3 sFLOAT A “1" THRU BITS 9-15 
7864 034320 103370 BCC 2s sIF CARRY BIT ISN'T SET, DO AGAIN. 
roen 034322 000410 BR EXPIR1 3GO0 TO EXIT TEST. 
7867 034324 000000 PIRTBL: .WORD 0O 
7868 034326 001042 -WORD 1042 
7869 034330 002104 _s WORD 2104 
7870 034332 004146 WORD 4146 
7871 034334 010210 WORD 10210 
7872 034336 020252 WORD 20252 
7873 034340 040314 WORD 40314 
a dans 034342 100356 WORD 100356 
7876 034344 EXPIR1: 
7877 
7887 
7888 034344 PIR2: 
7889 ; TEST PIRQ REGISTER LEVEL ENCODING 
7890 MELITI ITT Ti iii tii ti it tit ttt iti TTT iT TT TTT TTTTTTTTTrrrrrTrTTTr ts 

sTHIS TEST IS TO CHECK THAT THE HIGHEST PRIORITY LEVEL SET IN THE 

sPROGRAM INTERRUPT REQUEST BITS IS REFLECTED IN THE ENCODED PROGRAM 

3s INTERRUPT acta BITS. 
7891 034344 000237 SPL sSHUT OFF INTERRUPTS 
7892 034346 005037 177772 CLR oerrre sCLEAR PIRQ REGISTER 
7893 034352 012767 000001 146450 MOV #1,FLAG sSE1uUP END OF LOOP SIGNAL 
7894 034360 012703 177000 MOV #177000,R3 sSET UP DESIRED PATTERN IN R3 
7895 034364 012704 034430 MOV @PITBL1,R4 sSETUP R4 AS A TABLE POINTER 
aoe 034370 010337 177772 1$: MOV R3,90PIRQ sSET PATERN IN PIRQ@ REGISTER 
8 
7898 034374 023724 177772 CMP QOPIRQ,(R4)- sCOMPARE PATTERN IN PIRQ WITH PATTERN IN 
7899 sEXPECTED PATTERN TABLE. 
7900 034400 001012 BNE 2s :GO TO ERROR IF NOT THE SAME 
7901 034402 005737 003030 TST S0FLAG sIS THIS THE LAST TIME THROUGH? ? 
7902 034406 001421 BEQ PIR2EX sYES, IF FLAG IS ZERO 
7903 034410 006003 ROR R3 sSHIFT PATTERN TO RIGHT FOR NEXT TEST 
7904 034412 042703 000777 BIC 0777,R3 sSTRIP OFF BITS 8-0 
7905 034416 001364 BNE is sIF R3 IS NOT = O GO' DO THE NEXT PATTERN 
7906 034420 005037 003030 CLR @0OFLAG sCLR THE FLAG TO INDICATE LAST 
7907 sTIME THROUGH THE LOOP 
7908 034424 000761 BR is 3GO THROUGH LOOP ONCE MORE 
7909 sERROR; PATTERNS WERE NOT THE SAME 
seat 034426 104001 2%: ERROR +1 ;CPU ERROR 
bas | 034430 177356 077314 037252 PITBL1: .WORD 177356, 77314,37252.17210, 7146, 3104, 1042.0 











Bie 
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COKDADO KDJ11-B8 CLUSTER DIAG. 
SEQ 0144 


7914 034450 UNXPIR : sUNEXPECTED PIRQ INTERRUPT 
a 034450 104001 ERROR +1 OR 

7917 034452 PIR2EX: 

7925 

7926 034452 PIR3: 

7927 ; TEST PIRQ INTERRUPTS 

7928 j PRS SSSS SSS SSSSSSSESESESSSESESESESESESESESESESEEEESESEETESESE 


sTHIS TEST CHECKS THAT EACH PROGRAM INTERRUPT OCCURS PROPERLY 


7929 034452 012703 001000 MOV #1000 ,R3 sSETUP R3 AS A WORKING REGISTER 

7930 034456 012737 034522 000240 MOV OPIRRTN, BOPIRQVEC ‘wl uP INTERRUPT ROUTINE AT PIR , VECTOR 
7931 034464 012737 000340 000242 MOV 9340, BOPIRQVEC+2 

7932 034472 005004 CLR R4 t INITIALIZE R4 As EXPECTED DATA HOLDER. 
7933 034474 005724 PIi: TST (R4)+ sINCREMENT R4 BY 2 

793% 034476 050337 177772 BIS R3, BOPIRQ sSET PIRQ TO INTERRUPT 

7935 034502 000230 SPL 0 sENABLE INTERRUPT TO OCCUR 

7936 sERROR! INTERRUPT DID NOT OCCUR 

7937 034504 104001 ERROR +1 OR 

7938 sERROR! INTERRUPT OCCURRED IN WRONG SEQUENCE 
7939 034506 104001 PI2: ERROR +1 OR 

7940 034510 062706 000004 PI3: ADD @4,SP ;CLEAN UP THE STACK 

7941 034514 006303 ASL R3 sSHIFT R3 TO LEFT FOR NEXT INTERRUPT 
7942 034516 103366 BCC PIi sEND IF CARRY BIT IS SET 

oosa 034520 000412 BR PIRSEX ;ON TO THE NEXT TEST 

7945 034522 013705 177772 PIRRTN: MOV @ePIRQ,RS sMOVE THE CONTENTS OF PIRQ REG TO RS 
7946 034526 005037 177772 CLR aePIRQ sKILL PIRQ INTERRUPT. 

7947 034532 042705 177761 BIC #177761,R5 sMASK OFF ALL BITS EXCEPT 1-4. 

7948 034536 020405 CMP R4,RS sDID THE CORRECT LEVEL INTERRUPT OCCUR? 
7949 034540 001362 BNE PI2 sIF NOT; GO TO ERROR. 

7950 034542 000167 177742 JMP PI3 sRETURN FROM SUCCESSFUL INTERRUPT ,GET 
7951 sREADY FOR THE NEXT ONE. 

7952 

7953 034546 PIR3EX: 

7954 

7963 

7964 034546 PIR4: 

7965 3 TEST PIRQ VS PSW INTERRUPT LEVEL 

7966 fF RPRSSESSSESRESESSS SESE SESE ESES ESE SSREEEEE ESSE ESE EEEEESEEEES 


sTHIS TEST IS TO ENSURE THAT PIRQ CANNOT INTERRUPT WHEN PSW INTERRUPT 
sLEVEL IS SET TO BLOCK THEM OUT. 
CLR aePIRQ 


7967 034546 005037 177772 sCLEAR THE PIRQ 


7968 034552 005037 177776 CLR aePSW ;CLEAR THE PSW. 

7969 034556 000237 SPL 7 sBLOCK INTERRUPTS FROM BEING SERVICED. 

7970 034560 012703 001000 MOV #1000,R3 sUSE R3 AS A WORKING REGISTER. 

7971 034564 012737 034616 000240 MOV $2$ , @OPIRQVEC sSETUP INTERRUPT VECTORS 

7972 034572 012737 000340 000242 MOV 9340, @OPIRQVEC+2 H 

7973 034600 010337 177772 1$: MOV R3,9ePIRQ sSET INTERRUPT LEVEL IN PIRQ. 

7974 034604 006303 ASL R3 sSHIFT A "1" LEFT TO INCREASE INTERRUPT 

7975 sPRIORITY LEVEL. 

7976 034606 103374 BCC 1$ :IF C BIT NOT SET THEN DO IT AGAIN. 

7977 034610 005037 177772 CLR aePIRQ sELSE CLEAR THE PIRQ 

aa 034614 000403 BR 3$ s;EXIT TEST. 

7980 034616 005037 177772 2s: CLR aePIRQ :STOP PIRQ FROM INTERRUPTING. 

7981 sERROR! NO INTERRUPTS SHOULD OCCUR. 
104001 ERROR +1 ;CPU ERROR 


~ 
] 
ao 
f 
: 
LS] 
~ 
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7983 
7984 
7998 
7999 
8000 
8001 


034624 


005037 
012737 
012737 
012705 
012737 
005004 
012703 
012567 
005724 
010337 


013701 
013702 
042701 
042702 
020102 
002001 


104001 
006303 


103360 
005337 
001350 
000167 


013746 
005037 
016601 
011602 
042702 
042701 
020102 
100401 


104001 
012602 
042702 
020402 
001401 


177772 
034742 
000340 
035020 
000006 


001000 
143106 


177772 
177776 
177772 


177437 
177437 


114144 
000072 


177772 
177772 
000004 


177437 
177437 


177761 








Cle 
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000240 
000242 


114144 


3$: 


PIRS: 
i TEST PIRQ INTERRUPTS OCCUR AT PROPER LEVEL 
FERRERS ESESEEESERERESESESESERERESESESESESEESERESEEEES 
sTHIS TEST ENSURES THAT INTERRUPTS OCCUR AT THE PROPER LEVEL 
sTHE PRIORITY LEVEL IS INITIALLY SET TO PRI6. THE PIRQ THEN STARTS INTERRUPTING 
sAT PRI1. NO INTERRUPTS SHOULD OCCUR UNTIL THE INTERRUPTING LEVEL EXCEEDS THE 
sPRIORITY LEVEL IN THE PSW. AFTER EACH LEVEL OF INTERRUPT HAS BEEN TRIED; THE 
sPSW PRIORITY LEVEL IS LOWERED ONE NOTCH, AND THE CYCLE REPEATS UNTIL PSW 
sPRIORITY LEVEL 0 IS REACHED. INTERRUPTS AT PSW PRIORITY LEVEL 0 HAVE BEEN DONE 
sPREVIOUSLY. 

CLR aePIRQ sCLR THE PIRQ 

MOV #10$ , a#PIRQVEC sSET UP INTERRUPT VECTORS 


MOV @PR7 , APPIRQVEC+2 3 
MOV #PITBL2,R5 ;SETUP RS AS A TABLE POINTER. 
MOV #6 , 9@DCOUNT ;INIT LOCATION DCOUNT: 
1$: CLR R4 sINITIALIZE R4 AS A COUNTER. 
MOV #1000 ,R3 ;USE R3 AS A WORKING REGISTER. 
MOV CRS)+,PS sMOVE PRIORITY LEVEL TO PSW 
3$: TST CR4)+ ; INCREMENT R4 BY 2 
MOV R3,aePIRQ ;SET INTERRUPT LEVEL IN PIRQ. 
;*eeeeeeINTERRUPTS WILL HAPPEN HERE seseseces 
MOV @ePs,Ri sSAVE PS IN Ri !ONLY EXECUTED 
NO 


MOV aePIRQ, R2 sSAVE PIRQ IN R2 mE 

BIC #177437,R1 ;CLEAR EXTRANEOUS BITS ! INTERRUPT 

BIC #177437 ,R2 ; g HAS 

CMP R1,R2 sR1 SHOULD BE >= R2 ! OCCURRED 

BGE as sIF IT IS GO ON $o------ 
;ERROR! SHOULD HAVE INTERRUPTED. 

ERROR +1 ;CPU ERROR 

4$: ASL R3 sSHIFT A “1” LEFT UNTIL INTERRUPT LEVEL 

:IS REACHED. 

BCC 3$ sBRANCH BACK IF CARRY IS NOT SET. 

DEC ae0COUNT sLOWER INTERRUPT PRIORITY LEVEL 

BNE 1$ sIF DCOUNT= 0 , WE'RE DONE. 


JMP PIRSEX sJUMP TO END OF THIS TEST. 


sPIRQ INTERRUPT SERVICE ROUTINE 
; 


10$: MOV @OPIRQ, -CSP) sSAVE PIRQ DATA ON STACK 

CLR aePIRQ sSHUT OFF PIRQ INTERRUPTS 

MOV 4(SP),R1 sGET OLD PSW. SAVE IN Ri. 

MOV (SP),R2 sGET PIRQ FROM STACK. 

BIC #177437 ,R2 ;CLEAR UNWANTED BITS FROM R2 

BIC #177437,R1 ;CLEAR UNWANTED BITS FROM R1 

CMP R1,R2 sR2 SHOULD BE > R1. 

BMI 20$ 3GO CHECK SEQUENCE OF INTERRUPT. 
sERROR! PRIORITY OF INTERRUPT WAS NOT 
sHIGH ENOUGH. SHOULDN'T HAVE OCCURRED. 

ERROR +1 ;CPU ERROR 


20$: MOV (SP)+,R2 sPOP OLD PIRQ OFF THE STACK. 
BIC #177761,R2 ;CLEAR OFF a BITS. 
CMP R4,R2 sSHOULD BE EQUAL 
BEQ 2i$ ;IF THEY ARE EQUAL, CLEAN UP STACK AND 


SEQ 0145 





RR A RR RR SR A ER re i 





f a ae 
| 
Die 
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8046 ;GET READY FOR THE NEXT INTERRUPT 


SEQ 0146 


8047 3;ELSE 

8048 sERROR! INTERRUPT OCCURRED OUT OF SEQUENCE. 

8049 035010 104001 ERROR ol ;CPU ERROR 

8050 035012 012716 034724 21s: MOV 04$,(SP) sPUT RETURN ADDRESS ON THE STACK. 

poe 035016 000002 RTI sRETURN FROM INTERRUPT. RESTORE PSW. 

8053 035020 000300 PITBL2: .WORD 300 sPRIORITY LEVEL 6 

8054 035022 000240 -WORD 240 sPRIORITY LEVEL 5S 

8055 035024 000200 -WORD 200 sPRIORITY LEVEL 4 

8056 035026 000140 -WORD 140 sPRIORITY LEVEL 3 

8057 035030 000100 .WORD 100 sPRIORITY LEVEL 2 

oe 035032 000040 -WORD 40 ;PRIORITY LEVEL 1 

8060 035034 PIRSEX: 

8061 

8076 

8077 035034 PIR6: 

8078 F TEST THAT PIRQS ARE SERVICED IN CORRECT ORDER 

8079 Wetitititittitititititititiitititittitititiititttiti tt it ttt ttt ttt 
sTHIS TEST CHECKS THAT ALL PIRQ INTERRUPTS ARE SERVICED 
3IN THE CORRECT DECENDING ORDER. I.E. IRQ6 IS NOT SERVICED 
sBEFORE IRQ7 ETC. THE PIRQ IS LOADED WITH ALL INTERRUPTS SIMULTANEOUSLY 
sTURNED ON. THE PSW PRIORITY LEVEL IS THEN LOWERED TO 0. EACH INTERRUPT 
;SHOULD BE SERVICED IN DECENDING ORDER. EACH TIME AN INTERRUPT OCCURRS, THE PSW 
:IS LOADED WITH PRIORITY LEVEL 7 WHICH STOPS THE PIRQ FROM FURTHER INTERRUPTS. 
;AFTER A CORRECT INTERRUPT, AN RTI IS EXECUTED, AND THE PSW PRIORITY LEVEL 
sRETRUNS TO ZERO ALLOWING THE NEXT LOWER INTERRUPT TO OCCUR. 

8080 035034 005037 177772 CLR aePIRQ ;CLEAR OUT THE PIRQ 

8081 035040 000237 SPL ¥ sNO INTERRUPTS WILL BE SERVICED. 

8082 035042 012737 035102 000240 MOV #10$ , A@PIRQVEC ;SET UP VECTORS 

8083 035050 012737 000340 000242 MOV @#PR7 , 9OPIRQVEC+2 3 

8084 035056 012703 177000 MOV #177000,R3 ;SETUP DESIRED PATTERN IN R3 

8085 035062 010337 177772 MOV R3,aePIRQ sMOVE PATTERN IN R3 TO PIRQ. 

8086 035066 012704 000016 MOV Ses. R4 sPRELOAD R4 AS A DECREMENTING COUNTER. 

8087 035072 000230 SPL sLET THE PIRQ INTERRUPT 

8088 a en OCCUR HERE! ! $eaceceecececesesese 

8089 035074 005704 TST R4 ;IS R4 ZERO? IT SHOULD BE. THIS 

8090 s INSTRUCTION SHOULON'T BE EXECUTED 

8091 sUNTIL ALL INTERRUPTS HAVE OCCURRED. 

8092 035076 001417 BEQ PIR6EX ;GO TO NEXT TEST. 

8093 sERROR! ALL INTERRUPTS DID NOT OCCUR. 

8094 035100 104001 ERROR +1 ;CPU ERROR 

8095 035102 013702 177772 10$: MOV aePIRQ,R2 ;SAVE THE PIRQ IN R2 

8096 035106 042702 177761 BIC #177761,R2 ;STRIP OFF EXTRANEOUS BITS. 

8097 035112 020402 CMP R4,R2 ;SHOULD BE EQUAL. 

8098 035114 001401 BEQ 15$ ;SETUP FOR NEXT INTERRUPT. 

8099 sERROR! INTERRUPT WAS SERVICED OUT OF ORDER 

8100 035116 104001 ERROR «1 ;CPU ERROR 

8101 035120 005744 15$: TST -(R4) ;DECREMENT R4 BY 2 

8102 035122 006003 ROR R3 ;CHANGE PATTERN IN R3; LOWER INTERRUPT PRIORITY 

8103 035124 042703 000777 BIC #777,R3 ;STRIP OFF UNNEEDED BITS 

8104 035130 010337 177772 MOV R3,9ePIRQ ;LOWER INTERRUPT PRIORITY LEVEL. 

eo 035134 000002 RTI F 

1 
8107 035136 016737 145650 000240 PIR6EX: MOV SLOCOO , a#PIRQVEC sRESTORE VECTORS 


8108 035144 016737 145644 000242 MOV SLOCO1 , A#PIRQVEC+2 ; 


——— 
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8109 
8111 
6114 
6115 


035372 
035374 


172710 


142610 
177572 
003030 
000004 
137720 


177572 
177574 
177576 
172516 
000004 


000000 


142524 
177572 
003030 
000244 
000246 
000004 
000246 
000002 
137720 
172200 
172400 
177600 
177700 


000200 
003052 


003052 
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000244 
000246 
000004 
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SEEKERS SSS SSRSESASSSESASE ESSERE ERESESEEEEEEEEERESEESEEEEESEEESE 
FESS SSSA SESSESSERESESSESSESESSSSSESSESESSESSESERESESERESEEESE 


BEGIN MMU TESTING 


‘ 
FESS SSSSESSSARSRSESSESSSSSESESESERESESSERESESSESSE ESE ESSEESESESERESESESEEEES 
FEES SSSSSSSSSRSESASSSEKERSESSSSSRSSESSESSSESSESSESSESESSESESSSESEEEKEEEEESEEEEESS 


TSMMU1 : 

; STATUS REGISTER TEST 
CLR CPEREG 
CLR 80177572 


MOV #ADDTRP, ao4 
RS 


LOD (RO), AC2 


;CLEAR CPU ERROR REGISTER 
sTURN MMU OFF 

;CLEAR MMU TRAP FLAG 
sSAVE OLD VECTOR 

s;SETUP NEW VECTOR 

;CLEAR FLAG 


MOV 80177572,R1 ; TEST MMRO 
MOV 0#177574,R1 ; TEST MMR1I 
MOV 80177576,R1 ; TEST MMR2 
MOV 0#172516,R1 ; TEST MMR3 
MOV (SP)+,a04 sRESTORE VECTOR 
CMP R5,#0 ;DID WE TRAP 
BEQ 1$ 3;NO, THEN BRANCH 
ERROR +2 sMMU ERROR 
He :YES, GO TO ERROR 
TSMMU2: 
3 ADDRESS TEST OF PARS,PDRS, AND FP REGS 
CLR CPEREG ;CLEAR CPU ERROR REGISTER 
CLR #177572 sMMU OFF 
CLR OeFLAG ;CLEAR MMU TRAP FLAG 
MOV 0#244 , -(SP) ;SAVE FP VECTOR 
MOV 8#246, -( SP) 
MOV a#4,-(SP) ;SAVE TIME OUT VECTOR 
MOV #246 , 88244 ;SETUP NEW FP VECTOR 
MOV #2 , 988246 3 
MOV #ADDTRP , 004 ;SETUP NEW TIME OUT VECTOR 
CLR RS ;CLEAR TIMEOUT FLAG 
MOV #172200,RO0 ;LOAD ALL PARS AND PORS WITH ZERO 
1$: CLR CRO)+ 3 
CMP RO, #172400 3 
BNE 1$ 3 
MOV #177600,RO 3 
2s: CLR CRO)+ 3 
CMP RO, #177700 3 
2$ 3 
LOFPS #200 F 
MOV #FLOAT,RO ;LOAD ACO-ACS WITH O 
CLR CRO)+ 3 
CLR CRO)+ 3 
CLR CRO)+ 3 
CLR CRO)+ 3 
MOV #FLOAT,RO ; 
3 
F 
; 
3 


LOD CRO), ACS 
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8172 035376 
8173 035400 
8174 035402 
8175 035404 
8176 035410 
8177 035414 
8178 035420 
8179 035422 


8181 035424 
8182 035430 
8183 035432 


8201 035512 
8202 035514 


8204 035516 
8205 035520 
8206 035522 
8207 035526 
8208 035530 
8209 035534 
8210 035540 
8211 035542 
8212 035544 
8213 035546 
8214 035552 
8215 035556 
8216 035560 


8218 035562 
8219 035564 
8220 035566 
8221 035572 
8222 035576 
8223 035600 
8224 035602 
8225 035604 
8226 035606 
8227 035612 
8228 035616 


021427 
001401 
104002 


012704 
012701 
010102 
072227 
021427 
001401 
104002 


010224 
005201 
020427 
001364 
012704 
010102 
072227 
021427 
001401 
104002 


010224 
005201 
020427 
001364 
012704 
012703 
174014 
172405 
174013 
012702 
022327 
001401 
104002 


005302 
001372 
012703 
012713 
172413 
174005 
172404 
174013 
012702 
022327 
001401 


48 


035402 


172200 
000001 


000010 
000000 


172400 
177600 
000010 
000000 


003052 
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3$: 


21$: 


22$: 


4$: 


S$: 


6$: 


7$: 


8$: 


9$: 


10$; 
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ACO,AC4 
ACO,ACS 
ACO,AC1 
aeFLO 
#FLO,R4 
CR4)+, #4 
2i¢ 

+2 
CR4),83$ 
22$ 

+2 
#172200 ,R4 
#1,R1 
R1,R2 


#10,R2 
C(R4), #0 
S$ 


+2 
R2,(R4)+ 
R1 
R4,#172400 
4$ 
#177600,R4 


R2,(R4)+ 
R1 
R4,#177700 
6$ 


#6, (R3) 





Fie 








SEQ 0148 


3 
sLOAD FEC WITH 4 AND FEA WITH #3$ 
sCHECK FEC FOR 4 AND FEA FOR #3$ 


; 
sMMU ERROR 

; 

: 


; 
sMMU ERROR 
; 


sCHECK EACH PAR, POR FOR O THEN 
;WRITE A UNIQUE NUMBER TO IT 


;MMU ERROR 


CHECK ACS FOR ALL ZEROES THEN LOAD A 6 


CHECK AC4 FOR ALL ZEROES THEN LOAD A 5S 








| Ce G12 | 
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aoee 035620 104002 ERROR +2 sMMU ERROR 
; 
8231 035622 005302 11$: DEC R2 3 
8232 035624 001372 BNE 10$ 4 
8233 035626 012703 003052 MOV @FLOAT ,R3 : 
8234 035632 012713 000005 MOV #5,(R3) ; 
8235 035636 172413 LOD (R3),ACO i: 
8236 035640 174004 STD ACO, AC4 ; 
8237 035642 012702 000004 MOV #4 ,R2 s;CHECK ACO FOR ALL ZEROES THEN LOAD A 1 
8238 035646 022427 000000 12$: CMP (R4)+,90 ; 
8239 035652 001401 BEQ 13$ ; 
rt} 035654 104002 ERROR +2 sMMU ERROR 
; 
8242 035656 005302 13$: DEC R2 ; 
8243 035660 001372 BNE 12$ ; 
8244 035662 012713 000001 MOV #1,(R3) 3 
8245 035666 172413 LOD C(R3),ACO ; 
8246 035670 012704 003062 MOV #FLO,R4 sCHECK ACi FOR ALL ZEROES THEN LOAD A 2 
8247 035674 012702 000004 MOV #4,R2 3 
8248 035700 174114 STD AC1,(R4) ; 
8249 035702 022427 000000 14%: CMP (R4)+,#0 ; 
8250 035706 001401 BEQ 15$ ; 
ea 035710 104002 ERROR +2 sMMU ERROR 
; 
8253 035712 005302 15$: DEC R2 i 
8254 035714 001372 BNE 14$ 3 
8255 035716 012713 000002 MOV #2 ,(R3) ; 
8256 035722 172513 LOD C(R3),AC1 ; 
8257 035724 012704 003062 MOV #FLO,R4 sCHECK AC2 FOR ALL ZEROES THEN LOAD A 3 
8258 035730 012702 000004 MOV #4,R2 ; 
8259 035734 174214 STO AC2,(R4) ; 
8260 035736 022427 000000 16$: CMP (R4)+, 80 : 
8261 035742 001401 BEQ 17$ ; 
aoe 035744 104002 ERROR +2 ;MMU ERROR 
826 ; 
8264 035746 005302 17$: DEC R2 : 
8265 035750 001372 BNE 16$ 
8266 035752 012713 000003 MOV #3,(R3) ; 
8267 035756 172613 LOD (R3),AC2 ; 
8268 035760 012704 003062 MOV #FLO,R4 ;CHECK AC3 FOR ALL ZEROES THEN LOAD A 4 
8269 035764 012702 000004 MOV #4 ,R2 ; 
8270 035770 174314 STD AC3,(R4) ; 
8271 035772 022427 000000 18$: CMP (R4)+,80 3 
8272 035776 00.1401 BEQ 19$ ; 
ohh 036000 104002 ERROR +2 sMMU ERROR 
8275 036002 005302 19$: DEC R2 3 
8276 036004 001372 BNE 18$ ; 
8277 036006 012713 000004 MOV #4,(R3) : 
8278 036012 172713 LOD (R3),AC3 ‘ 
8279 036014 012704 003062 MOV #FLO,R4 ;CHECK FPS FOR 100204 THEN LOAD IT WITH 200 
8280 036020 170214 STFPS (R4) : 
8281 036022 022714 100204 CMP #100204 , (R4) ; 
8282 036026 001401 BEQ 20$ ; 
a 036030 104002 ERROR +2 sMMU ERROR 
; 


| 8285 036032 170127 000200 205; LOFPS #200 ; 








| COKDADO KDv11-8 CLUSTER 
MEMORY MANAGEMENT TESTS 


eee ae ee 


036146 


036150 
036154 
036160 
036162 


036164 
036166 
036170 
036174 
036176 
036200 
036204 
036206 


036210 
036214 
036220 
036222 


036224 
036226 
036230 
036234 
036236 


036240 
036244 


012704 
012701 
010102 
072227 


012703 
022127 
001401 
104002 


005303 
001372 
012701 
172404 
174011 
022127 
001401 
104002 


012703 
022127 
001401 
104002 


005303 
001372 
022427 
001401 
204002 


012703 
022427 


DIAG. 


172200 
000001 


000010 


172400 
177600 
000010 


177700 


003052 
003062 


000006 


000003 
000000 


003052 


000005 


000003 
000000 


000001 


000003 
000000 
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23$: 


24$: 


25$: 


26$: 


27$: 
288: 


293: 


30$: 
31$: 


32$: 


33$: 
34$: 





#172200,R4 


R1 

R4, #172400 
23$ 
#177600,R4 
R1,R2 
#10,R2 
(R4)+,R2 


26$ 
+2 


R1 
R4, #177700 


#3,R3 
CR4)+, #0 





Hie 


;CHECK PDR, PAR FOR UNIQUE NUMBERS 


;MMU ERROR 


; 
;MMU ERROR 
; 

; 


}CHECK AC4 FOR #5 


3 
s;MMU ERROR 


; 
; 
; 
sMMU ERROR 
; 
3 


6 
sCHECK ACO FOR #1 


i 
s;MMU ERROR 


SEQ 0150 


~—_—<y 





COKDADO KDJ11-B CLUSTER DIAG. 
MEMORY MANAGEMENT TESTS 


8343 036250 001401 
8344 036252 104002 


8346 036254 005303 
8347 036256 001372 
8348 036260 012701 003052 
8349 036264 174111 
8350 036266 022127 000002 
8351 036272 001401 
8352 036274 104002 


8354 036276 012703 000003 
8355 036302 022127 000000 
8356 036306 001401 
8357 036310 104002 


8359 036312 005303 
8360 036314 001372 
8361 036316 012701 003052 
8362 036322 174211 
8363 036324 022127 000003 
8364 036330 001401 
8365 036332 104002 


8367 036334 012703 000003 
8368 036340 022127 000000 
8369 036344 001401 
8370 036346 104002 


8372 036350 005303 
8373 036352 001372 
8374 036354 012701 003052 
8375 036360 174311 
8376 036362 022127 000004 
8377 036366 001401 
8378 036370 104002 


8380 036372 012703 000003 
8381 036376 022127 000000 
8382 036402 001401 
8383 036404 104002 


8385 036406 005303 
8386 036410 001372 
8387 036412 020527 000000 
8388 036416 001401 
8389 036420 104002 


8391 036422 012637 000004 
8392 036426 012637 000246 
8393 036432 012637 000244 


8399 036436 005037 177572 
8400 036442 005037 003030 
8401 036446 012703 172200 
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35$: 


36$: 
37$: 


38$: 


39$: 
40$: 


41$: 


42$: 
43$: 


44$: 


45$: 


35$ 
+2 


R3 

34$ 
#FLOAT,R1 
ACi,(R1) 
(R1)+,#2 
36$ 


+2 
#3,R3 
C(R1)+,#0 


38$ 
+2 


(SP)+, 904 


(SP)+,8%246 
(SP)+,a#244 


; 
;MMU ERROR 
; 

; 


; 
;CHECK AC1 FOR #2 
; 

; 


; 
;MMU ERROR 
: 


‘ 
; 
; 
;MMU ERROR 
; 
; 


; 
sCHECK AC2 FOR #3 


;MMU ERROR 
1 


; 

; 

; 
;MMU ERROR 
; 

; 


; 
sCHECK AC3 FOR #4 
; 

; 


; 
sMMU ERROR 
i 


;MMU ERROR 
: 
1 


3 
;IS TIME OUT FLAG 0 
;YES GO ON 
;MMU ERROR 
sNO GO TO ERROR 
sRESTORE TIME OUT VECTOR 
sRESTORE FP VECTOR 
i 


WRITE ALL PARS/PDRS WITH ONES THEN ZEROS 


CLR 
CLR 
MOV 


90177572 
aeFLAG 


#172200 ,R3 





3MMU OFF 
;CLEAR MMU ABORT FLAG 


;LOAD ALL PARS AND PORS WITH ONES 


SEQ 0151 


' 


—-— -— -—— 


| COKDADO KDV11-B CLUSTER DIAG. 


MEMORY MANAGEMENT TESTS 


8402 036452 
8403 036456 


036570 
036574 
036576 
036602 
036606 
036610 


036612 
036616 


012723 
020327 
001373 
012703 
012723 
020327 
001373 
012703 
022327 
001401 


104002 


020327 
001371 
022327 
001401 
104002 


020327 
001371 
022327 
001401 
104002 


020327 
001371 
022327 
001401 
104002 


020327 
001371 
012703 
022327 
001401 
104002 


020327 
001371 
022327 
001401 
104002 


020327 
001371 
012703 
012723 
020327 
001373 
012703 
012723 
020327 
001373 
012703 
022327 
001401 
104002 


177777 
172400 


177600 
177777 
177700 


172200 
177416 


172240 
177777 


- 172300 


177416 


172340 
177777 


172400 


177600 
177416 


177640 
177777 


177700 





J1le2 
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1$: 


2$: 


3$: 


4$: 
5$: 


- 6$: 
7$: 


8$: 
9$: 


10$: 


11$: 


12$: 
13$: 


14$: 


15$: 


16$: 


17$: 





#177777, CR3)+ 
oe 
1 


#177600 ,R3 
#177777, CR3)+ 
R3, #177700 


2s 

#172200,R3 

> pe aaah 
4 


+2 
oe 
CR3)+,%177777 
6$ 

+2 

R3, #172300 

5$ 

(R3)+, #177416 
8$ 

+2 

R3, #172340 

7$ 
CR3)+¢,#177777 
10$ 

+2 

R3, #172400 

9$ 

#177600 ,R3 
CR3)+¢, #177416 
12$ 

+2 

R3, #177640 
11$ 

(R3)¢, #177777 
14$ 

+2 

R3, #177700 
13$ 
#172200,R3 
#0,(R3)+ 

R3, #172400 
15$ 
#177600,R3 
#0,(R3)+ 

R3, #177700 
16$ 
#172200,R3 
CR3)+, 80 


18$ 
+2 


SEQ 0152 


CHECK SPDRS FOR ONES 


=e @s ef ef Ge =e ee ee Se os 


sMMU ERROR 
; 
; 


; 
;CHECK SPARS FOR ONES 
; 

sMMU ERROR 


; CHECK KPDRS FOR ONES 
3MMU ERROR 
; 

; CHECK KPARS FOR ONES 
3MMU ERROR 

; 


; 
;CHECK UPDRS FOR ONES 
; 


;MMU ERROR 
, ; 
I CHECK UPARS FOR ONES 
;MMU ERROR 
3 


; 
;LOAD ALL PARS AND PORS WITH ZEROES 


CHECK ALL PARS AND PORS FOR ZEROES 


; 
sMMU ERROR 








COKDADO KDJ11-B CLUSTER DIAG. 


MEMORY MANAGEMENT TESTS 


8460 036706 
8461 036712 
8462 036714 
8463 036720 
8464 036724 
8465 036726 


8467 036730 
8468 036734 


8472 036736 


8503 037102 
8504 037106 
8505 037112 
8506 037114 


8508 037116 
8509 037122 
8510 037124 


8512 037126 
8513 037132 
8514 037134 
8515 037140 
8516 037142 


020327 


001371 


012703 
022327 
001401 
104002 


022327 
001401 
104002 


020327 
001365 
022327 
001401 
104002 


172400 
177600 
000000 


177700 


177572 
144062 
172200 
052404 
125012 
172240 


125252 
052525 
172300 


052404 
125012 
172340 


125252 
052525 
172400 


177600 
052404 
125012 
177640 
125252 


052525 
177700 


172200 
052404 


125012 


172240 
125252 





MACRO YOS.02 


18$: 


19$: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


8$: 


9$: 
10$: 


A ——— — — 





K1ie2 
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CMP R3,#172400 
BNE 17$ 

MOV #177600 ,R3 
CMP CR3)+,80 

BEQ 20$ 

ERROR +2 

CMP R3, #177700 
BNE 19$ 

CLR 0#17757 

CLR FLAG 

MOV #172200,RO0 
MOV #52404 ,(RO)+ 
MOV #125012, (RO)+ 
CMP RO, #172240 
BNE i$ 

MOV #125252, (RO)+ 
MOV #52525, (RO)+ 
CMP RO, #172300 
BNE 2s 

MOV #52404 , (RO)+ 
MOV #125012, (RO)+ 
CMP RO, #172340 
BNE 3$ 

MOV #125252, (RO)+ 
MOV #52525, (CRO)}+ 
CMP RO, #172400 
BNE 4$ 

MOV #177600,RO0 
MOV #52404, C(RO)+ 
MOV #125012, (RO)-+ 
CMP RO, #177640 
BNE 5$ 

MOV #125252, (RO)+ 
MOV #52525, (RO)+ 
CMP RO, #177700 
BNE 6$ 

MOV #172200,R3 
CMP CR3)+, #52404 
BEQ 8$ 

ERROR +2 

CMP (R3)+,#125012 
BEQ 9$ 

ERROR +2 

CMP R3, #172240 
BNE 7$ 

CMP (R3)+, #125252 
BEQ 11$ 

ERROR +2 


TEST FOR aYrte SHORTS IN PARS/PORS 


sMMU OFF 

;CLEAR MMU ABORT FLAG 

;LOAD SPDRS WITH ALTERNATING PATTERN 
3 

3 

3 


° 
;LOAD SPARS WITH ALTERNATING PATTERN 
; 
a 


é 
;LOAD KPDRS WITH ALTERNATING PATTERN 
’ 
3 


; 

sLOAD KPARS WITH ALTERNATING PATTERN 
; 

j 


; 

;LOAD UPDRS WITH ALTERNATING PATTERN 
; 

; 

: 


3 
sLOAD UPARS WITH ALTERNATING PATTERN 
; 
3 
3 


sCHECK SPDRS 
é 


; 
sMMU ERROR 


; 
;MMU ERROR 


; 
; 
;CHECK SPARS 


; 
sMMU ERROR 


fae 


SEQ 0153 


' 





COKDADO KDJ11-B8 CLUSTER DIAG. 


MEMORY MANAGEMENT TESTS 


8518 037144 
8519 037150 
8520 037152 


8522 037154 
8523 037160 
8524 037162 
8525 037166 
8526 037170 


8528 037172 
8529 037176 
8530 037200 


1 
8532 037202 
8533 037206 
8534 037210 
8535 037214 
8536 037216 


8538 037220 
8539 037224 
8540 037226 


8542 037230 
8543 037234 
8544 037236 
8545 037242 
8546 037246 
8547 037250 


8549 037252 
8550 037256 
8551 037260 


8553 037262 
8554 037266 
8555 037270 
8556 037274 
8557 037276 


8559 037300 
8560 037304 
8561 037306 


8563 037310 
8564 037314 


8568 037316 
8569 037322 
8570 037326 
8571 037332 
8572 037336 
8573 037340 
8574 037344 


022327 
001401 
104002 


020327 


022327 
001401 
104002 


020327 


022327 
001401 
104002 


020327 
001365 
012703 
022327 
001401 
104002 


022327 
001401 
104002 


020327 
001365 
022327 
001401 
104002 


022327 
001401 
104002 


020327 
001365 


012700 
012720 
012720 
020027 
001371 
012720 
012720 


052525 


172300 
052404 


125012 


172340 
125252 


052525 


172400- 


177600 
052404 


125012 


177640 
125252 


052525 


177700 


172200 
125012 
052404 
172240 


052525 
125252 





;MMU 
a 





; 
; 
ERROR 
; 
; 
sCHECK KPDRS 
; 
ERROR 
; 
; 
ERROR 
; 
; 
sCHECK KPARS 
; 
ERROR 
; 
; 
ERROR 
; 
; 
CHECK UPORS 
; 


; 
ERROR 
; 
; 
ERROR 
; 
; 
sCHECK UPARS 
; 
ERROR 
; 
; 
ERROR 


sLOAD SPDRS WITH REVERSE PATTERN 


6 
sLOAD SPARS WITH REVERSE PATTERN 
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11$: CMP CR3)+, #52525 
BEQ 12$ 
ERROR 2 

12$: CMP R3, #172300 
BNE 10$ 

13%: CMP CR3)+, #52404 
BEQ 14$ 
ERROR +2 

14$: CMP CR3)+, #125012 
BEQ 15$ 
ERROR +2 

15$: CMP R3,#172340 
BNE 13$ 

16$: CMP CR3)+, #125252 
BEQ 17$ 
ERROR +2 

17$: CMP CR3)+, #52525 
BEQ 18$ 
ERROR 22 

18$: CMP R3,#172400 
BNE 16$ 
MOV #177600 ,R3 

19$: CMP CR3)+, 952404 
BEQ 20$ 
ERROR +2 

20$: CMP (R3)+,#125012 
BEQ 21$ 
ERROR +2 

21$: CMP R3,#177640 
BNE 19$ 

22$: CMP (R3)+, #125252 
BEQ 23$ 
ERROR +2 

23%: CMP CR3)+, #52525 
BEQ 24$ 
ERROR +2 

243: CMP R3, #177700 
BNE 22$ 

F 

sREVERSE ALTERNATING PATTERN 

F 
MOV #172200,RO 

25$: MOV #125012, (RO)+ 
MOV #52404, (RO)+ 
CMP RO, #172240 
BNE 25$ 

263: MOV #52525, (RO)+ 
MOV #125252, (RO)>+ 





Sea o1sa_ Cs! 








--—— 


Mie 
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SEQ 0155 
MEMORY MANAGEMENT TESTS 
8575 037350 020027 172300 CMP RO, #172300 3 
8576 037354 001371 BNE 26$ $ 
8577 037356 012720 125012 27$: MOV #125012, (RO)+ ;LOAD KPDRS WITH REVERSE PATTERN 
8578 037362 012720 052404 MOV #52404 ,(RO)+ 3 
8579 037366 020027 172340 CMP RO, #172340 3 
8580 037372 001371 BNE 27$ 3 
8581 037374 012720 052525 283: MOV #52525, (RO)+ ;LOAD KPARS WITH REVERSE PATTERN 
8582 037400 012720 125252 MOV #125252, (RO)- F 
8583 037404 020027 172400 CMP RO, #172400 3 
86584 037410 001371 BNE 28$ 3 
8585 037412 012700 177600 MOV #177600 ,RO ;LOAD UPDRS WITH REVERSE PATTERN 
8586 037416 012720 125012 29%: MOV #125012, (RO)+ 3 
6587 037422 012720 052404 MOV #52404 ,,(RO)+ 3 
8588 037426 020027 177640 CMP RO, #177640 3 
8589 037432 001371 BNE 29% 3 , 
8590 037434 012720 052525 30$: MOV #52525, (RO)+ ;LOAD UPARS WITH REVERSE PATTERN 
6591 037440 012720 125252 MOV #125252, (RO)+ 3 
8592 037444 020027 177700 CMP RO, #177700 3 
Bees 037450 001371 BNE 30$ 3 
3 

86595 037452 012703 172200 MOV #172200,R3 ;CHECK SPDRS 
8596 037456 022327 125012 31$: CMP CR3)+, #125012 3 
8597 037462 001401 BEQ 32$ 3 
ote 037464 104002 ERROR +2 ;MMU ERROR 

8 
8600 037466 022327 052404 32$: CMP CR3)+, 952404 3 
8601 037472 001401 BEQ 33% 3 
ee 037474 104002 ERROR +2 ;MMU ERROR 

0 PF 

8604 037476 020327 172240 33$: CMP R3, #172240 3 
8605 037502 001365 BNE 31$ 3 
8606 037504 022327 052525 34$: CMP CR3)+, #52525 ;CHECK SPARS 
8607 037510 001401 BEQ 35$ ; 
8608 037512 104002 ERROR +2 sMMU ERROR 
8609 F 
8610 037514 022327 125252 35$: CMP (R3)+, #125252 : 
8611 037520 001401 BEQ 36$ : 
ore 037522 104002 ERROR 22 ;MMU ERROR 
861 F 
8614 037524 020327 172300 36$: CMP R3, #172300 ; 
8615 037530 001365 BNE 34$ : 
8616 037532 022327 125012 37$: CMP CR3)+, #125012 ;CHECK KPORS 
86617 037536 001401 BEQ 38$ : 
ety 4 037540 104002 ERROR “2 sMMU ERROR 
861 3 
8620 037542 022327 052404 38%: CMP (R3)+, #52404 : 
8621 037546 001401 BEQ 39$ ; 
aes 037550 104002 ERROR *2 ;MMU ERROR 

3 
8624 037552 020327 172340 39%; CMP R3, 0172340 3 
8625 037556 001365 BNE 37$ 3 
8626 037560 022327 052525 40$: CMP CR3)+, #52525 ;CHECK KPARS 
8627 037564 001401 BEQ 41$ 3 
8628 037566 104002 ERROR 22 ;MMU ERROR 
8629 F 
8630 037570 022327 125252 41$: CMP CR3)+, 0125252 3 
8631 037574 001401 BEQ 42$ 3 








COKDADO KDJ1'-B CLUSTER DIAG. 


MEMORY MANAGEMENT TESTS 


8632 037576 
8633 


8668 037716 


8670 037720 
8671 037724 
8672 037730 
8673 037734 
8674 037740 
8675 037742 


8677 037744 
8678 037752 
8679 037756 
8680 037762 
8681 037766 
8682 037770 


8683 
8684 037772 
8685 040000 


104002 
020327 
001365 


012703 
022327 


013700 


013700 


172400 


177600 
125012 


052404 


177640 
052525 


125252 


177700 


160000 
143130 
177572 
000176 
160000 


177572 
177572 
000176 
000000 


120000 
177572 
000176 
120000 


040000 
177572 
000176 
040000 


Nie 
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SEQ 0156 
ERROR 2 3MMU ERROR 
8 
42$: CMP R3, 0172400 ’ 
BNE 40$ F 
MOV 177600 ,R3 sCHECK UPORS 
43%: CMP CR3)+, 9125012 8 
BEQ@ 44$ 3 
ERROR 2 3MMU ERROR 
443; CMP CR3)+, 952404 3 
BEQ 4s$ 3 
ERROR 2 sMMU ERROR 
3 
45$: CMP R3, 0177640 3 
BNE . 43% 3 
463: CMP CR3)-, 52525 sCHECK UPARS 
BEQ 47% 3 
ERROR +2 sMMU ERROR 
47%: CMP (R3)+-, 9125252 3 
BEQ 48$ 3 
ERROR 2 sMMU ERROR 
3 
48%: CMP R3, 4177700 ; 
BNE 46$ 3 
TSMMUS: 
3 TEST MMRO ABORT BITS 
177572 MOV #160000 , 80177572 sLOAD MMRO<15:13>=111 
CLR FLAG sCLEAR MMU ABORT FLAG 
MOV @OSRO,RO sSAVE SRO IN RO 
BIC #176,RO0 sCLEAR UNDEFINED BITS FROM SRO 
CMP RO, #160000 sCHECK MMRO 
BEQ 1$ 3 
ERROR +2 3sMMU ERROR 
i$: CLR 80177572 sLOAD MMRO=0 
MOV @SRO,RO sSAVE SRO IN RO 
BIC #176,RO sCLEAR UNDEFINED BITS FROM SRO 
CMP RO, ;CHECK MMRO 
BEQ 2s 3 
ERROR *2 sMMU ERROR 
3 
177572 2%: MOV #120000 ,80177572 3LOAD MMRO<15:13>2101 
MOV @OSRO,RO sSAVE SRO IN RO 
BIC 176,RO0 sCLEAR UNDEFINED BITS FROM SRO. 
CMP RO, #120000 sCHECK MMRO 
BEQ 3$ 3 
ERROR 2 3sMMU ERROR 
177572 3%: MOV #40000 , 80177572 sLOAD MMRO<15:13>2010 
MOV @OSRO RO sSAVE SRO IN RO 
BIC #176,R0 sCLEAR UNDEFINED BITS FROM SRO. 
cmp RO, : CHECK MMRO 
BEQ 4 3 
os ERROR 2 MMU ERROR 











B1i3 
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COKDADO KDJ11-B CLUSTER DIAG. 


——— 


‘ 
-_--- 


SEQ 0157 
MEMORY MANAGEMENT TESTS “2 

8693 040020 TSMMU6 : 

8694 ; TEST MMRS BITS 5-0 

8695 040020 005037 177572 CLR 80177572 sMMU OFF 

8696 040024 005067 143000 CLR FLAG sCLEAR MMU ABORT FLAG 

8697 040030 012737 000077 172516 MOV 077 ,80172516 sLOAD MMR3<5:0>2#77 

8698 040036 023727 172516 000077 CMP 90172516, 077 sCHECK MMRS 

8699 040044 001401 BEQ i$ ; 

8700 040046 104002 ERROR +2 sMMU ERROR 

8701 040050 005037 172516 1$: CLR 90172516 sLOAD MMR3<5:0>20 

8702 040054 023727 172516 000000 CMP 80172516, 90 ;CHECK MMRS 

8703 040062 001401 BEQ 2¢ ; 

8704 040064 ERROR +2 sMMU ERROR 

8705 040066 012737 000052 172516 2%: MOV #52 ,80172516 sLOAD MMR3<5:0>=52 

8706 040074 023727 172516 000052 CMP 80172516,#52 sCHECK MMR3 

8707 040102 001401 BEQ 3$ : 

8708 040104 104002 ERROR +2 sMMU ERROR 

8709 040106 012737 000025 172516 3%: MOV #25 ,80172516 sLOAD MMR3<5:0>=25 

8710 040114 023727 172516 000025 CMP 90172516,#25 s;CHECK MMR3 

8711 040122 001401 BEQ 43 : 

8712 040124 104002 ERROR +2 sMMU ERROR 

8713 040126 4$: 

8716 040126 TSMM6A : 

8717 ; TEST MFPI CMOVE FROM PREVIOUS INST SPACE) 

8718 040126 005037 177572 CLR 80177572 ; OFF 

8719 040132 005037 003030 CLR QF LAG s;CLEAR MMU ABORT FLAG 

8720 040136 012737 140000 177776 MOV #140000 , 89177776 sPOINT TO USER SPACE 

8721 040144 012706 001000 MOV @STBOT SP sINIT THE USER STACK POINTER 

8722 040150 010637 003040 MOV R6 , @@SAVUSE sSAVE USER SP 

8723 040154 012737 040000 177776 MOV #40000 , 80177776 sPOINT TO SUPERVISOR SPACE 

8724 040162 012706 001000 MOV @STBOT,SP sINIT THE SUPERVISOR STACK POINTER 

8725 040166 010637 003036 MOV R6 , @@SAVSUP sSAVE SUPERVISOR SP 

8726 040172 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 

8727 040200 004767 077346 JSR PC MMU sINIT MMU 

8728 040204 012737 000027 172516 MOV $27 ,80172516 ;SETUP MMRS 

8729 040212 013746 000244 MOV @0244,-(SP) sSAVE DATA AT TEST LOCATION 

8730 040216 012746 177777 MOV #177777,-CSP) 3;PUT KNOWN DATA ON TOP OF STACK 

8731 040222 012737 135072 000244 MOV #135072 ,80244 sSETUP DATA 4T TEST LOCATION 

8732 040230 012767 077400 137362 MOV #77400, UDPDRO sSETUP UDPDRO TO ABORT 

8733 040236 012703 000244 MOV 9244 ,R3 sSETUP POINTER TO TEST LOCATION 

8734 040242 005237 177572 INC 90177572 ;TURN MMU ON 

8735 040246 006523 MFPI (R3)+ 3; TEST INSTRUCTION 

8736 040250 022737 030010 177776 CMP #30010, 80177776 sIS PSW CORRECT 

8737 040256 001401 BEQ i$ ;YES GO ON 

8738 040260 104002 ERROR +2 sMMU ERROR 

8739 sNO GO TO ERROR 

8740 040262 005037 177572 1$: CLR 90177572 sTURN MMU OFF 

8741 040266 012737 140000 177776 MOV #140000 , 80177776 sPOINT TO USER SPACE 

8742 040274 020637 003040 CMP R6, A@SAVUSE 3IS USER SP CORRECT 

8743 040300 001401 BEQ 100$ sYES GO ON 

8744 040302 104002 ERROR +2 sMMU ERROR 

8745 sNO GO TO ERROR 

8746 040304 012737 040000 177776 100%: MOV #40000 , 80177776 sPOINT TO SUPERVISOR SPACE 

8747 040312 020637 003036 CMP R6, 9@SAVSUP sIS SUPERVISOR SP CORRECT 

8748 040316 001401 BEQ 200$ ;YES GO ON 

8749 040320 104002 ERROR +2 3;MMU ERROR 

8750 sNO GO TO ERROR 

8751 040322 023727 000244 135072 200%: CMP 80244 , #135072 :IS TEST DATA OK 

















‘ 
' 
i 
' 
' 
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: 


SEQ 0158 
MEMORY MANAGEMENT TESTS 

8752 040330 001401 BEQ 2s s;YES GO ON 
8753 040332 104002 ERROR +2 sMMU ERROR 
8754 sNO GO TO ERROR 
8755 040334 020327 000246 2$: CMP R3, 9246 sIS RPS CORRECT 
8756 040340 001401 BEQ 3$ sYES GO ON 
8757 040342 104002 ERROR +2 sMMU ERROR 
8758 sNO GO TO ERROR 
8759 040344 005037 177776 3$: CLR 90177776 sSET PSW TO KERNEL MODE 
8760 040350 022627 135072 CMP (SP )+, #135072 3IS KERNEL STACK CORRECT 
8761 040354 001401 BEQ 4$ sYES GO ON 
8762 040356 104002 ERROR +2 ;MMU ERROR 
8763 sNO GO TO ERROR 
8764 040360 021627 177777 4$: CMP (SP),#177777 sIS STACK CORRECT 
8765 040364 001401 BEQ S$ ;YES GO ON 
8766 040366 104002 ERROR +2 sMMU ERROR 
8767 sNO GO TO ERROR 
8768 040370 012737 030017 177776 S$: MOV #30017 , 80177776 sSETUP PSW 
8769 040376 012737 173621 000244 MOV #173621 ,3%244 sSETUP TEST LOCATION 
8770 040404 012701 000244 MOV 0244 ,R1 sSETUP Ri 
8771 040410 005237 177572 INC 9177572 ;TURN MMU ON 
8772 040414 006511 MFPI (R1) sTEST INSTRUCTION 
8773 040416 022737 030011 177776 CMP #30011 ,80177776 :IS PSW CORRECT 
8774 040424 001401 BEQ 300$ ;YES GO ON 
8775 040426 104002 ERROR +2 ;MMU ERROR 
8776 sNO GO TO ERROR 
8777 040430 005037 177572 300$: CLR 90177572 3TURN MMU OFF 
8778 040434 023727 000244 173621 CMP 89244 , #173621 ;IS TEST LOCATION CORRECT 
8779 040442 001401 BEQ 301% sYES GO ON 
8780 040444 104002 ERROR +2 ;MMU ERROR 
8781 sNO GO TO ERROR 
8782 040446 020127 000244 301$: CMP R1, 9244 sIS R1 CORRECT 
8783 040452 001401 BEQ 302$ ;YES GO ON 
8784 040454 104002 ERROR +2 sMMU ERROR 
8785 sNO GO TO ERROR 
8786 040456 005037 177776 302$: CLR 90177776 sSET PSW TO KERNEL MODE 
8787 040462 022627 173621 CMP (SP )+, #173621 sIS STACK CORRECT 
8788 040466 001401 BEQ 303$ ;YES GO ON 
8789 040470 104002 ERROR +2 sMMU ERROR 
8790 sNO GO TO ERROR 
8791 040472 021627 177777 303$: CMP (SP),#177777 3IS STACK CORRECT 
8792 040476 001401 BEQ 304$ ;YES GO ON 
8793 040500 104002 ERROR +2 sMMU ERROR 
8794 sNO GO TO ERROR 
8795 040502 005003 304$: CLR R3 sSETUP SOURCE FOR NEXT TEST 
8796 040504 005237 177572 INC a#177572 ;TURN MMU ON 
8797 040510 006503 MFPI R3 ; TEST INSTRUCTION 
8798 040512 022737 000004 177776 CMP 04 ,80177776 :IS PSW CORRECT 
8799 040520 001401 BEQ 6$ ;YES GO ON 
8800 040522 104002 ERROR +2 sMMU ERROR 
8801 sNO GO TO ERROR 
8802 040524 005037 177572 6$: CLR 90177572 ;TURN MMU OFF 
8803 040530 020327 000000 CMP R3,#0 sIS R3 CORRECT 
8804 040534 001401 BEQ 7$ ;YES GO ON 
8805 040536 104002 ERROR +2 sMMU ERROR 
8806 sNO GO TO ERROR 
8807 040540 022627 000000 7$: CMP (SP)+,#0 3IS STACK CORRECT 

001401 BEQ 8$ sYES GO ON 

! 





A A SS 
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MEMORY MANAGEMENT TESTS 


SEQ 0159 


8809 040546 104002 ERROR «2 sMMU ERROR 
8810 ;NO GO TO ERROR 
8811 040550 022627 177777 8$: CMP (SP)+, #177777 :IS STACK CORRECT 
8812 040554 001401 BEQ 9$ sYES GO ON 
8813 040556 104002 ERROR +2 ;MMU ERROR 
8814 ;NO GO TO ERROR 
pete 040560 012637 000244 9$: MOV (SP )+,a#244 sRESTORE TEST LOCATION 
8817 H 
8820 040564 TSMM6B : 
8821 3 TEST MFPD (MOVE FROM PREVIOUS DATA SPACE) 
8822 040564 005037 177572 CLR 80177572 sMMU OFF 
8823 040570 005037 003030 CLR QeFLAG ;CLEAR MMU ABORT FLAG 
8824 040574 012737 140000 177776 MOV #140000 , 84177776 sPOINT TO USER SPACE 
8825 040602 010637 003040 MOV R6 , ABSAVUSE sSAVE USER SP 
8826 040606 012737 040000 177776 MOV #40000 , 80177776 ;POINT TO SUPERVISOR SPACE 
8827 040614 010637 003036 MOV R6 , 9@SAVSUP sSAVE SUPERVISOR SP 
8828 040620 012737 030000 177776 MOV #30000 , 84177776 ‘SETUP PSW 
8829 040626 004767 076720 JSR PC, MMU sINIT MMU 
8830 040632 012737 000027 172516 MOV #27 ,80172516 ;SETUP MMR3 
8831 040640 013746 000244 MOV 80244 ,-(SP) sSAVE DATA AT TEST LOCATION 
8832 040644 012746 177777 MOV #177777, -CSP) ;PUT KNOWN DATA ON TOP OF STACK 
8833 040650 012737 157002 000244 MOV #157002 ,8#244 sSETUP DATA AT TEST LOCATION 
8834 040656 012767 077400 136714 MOV #77400, UIPDRO ;SETUP UIPDRO TO ABORT 
8835 040664 012703 000244 MOV #244 ,R3 sSETUP POINTER TO TEST LOCATION 
8836 040670 905237 177572 INC #177572 3 TURN MMU ON 
8837 040674 106523 MFPD CR3)+ ; TEST INSTRUCTION 
8838 040676 022737 030010 177776 CMP #30010 ,80177776 31S PSW CORRECT 
8839 040704 001401 BEQ i$ ;YES GO ON 
8840 040706 104002 ERROR +2 ;MMU ERROR 
8841 s;NO GO TO ERROR 
8842 040710 005037 177572 1$: CLR #177572 ;TURN MMU OFF 
8843 040714 012737 140000 177776 MOV #140000 , 84177776 sPOINT TO USER SPACE 
8844 040722 020637 003040 CMP R6, @#SAVUSE 31S USER SP CORRECT 
8845 040726 001401 BEQ 100$ ;YES GO ON 
8846 040730 104002 ERROR +2 :MMU ERROR 
8847 ;NO GO TO ERROR 
8848 040732 012737 040000 177776 100$: MOV #40000 , 84177776 sPOINT TO SUPERVISOR SPACE 
8849 040740 020637 003036 CMP R6, 2@SAVSUP ;I1S SUPERVISOR SP CORRECT 
8850 040744 001401 BEQ 200$ :YES GO ON 
8851 040746 104002 ERROR +2 ;MMU ERROR 
8852 ;NO GO TO ERROR 
8853 040750 023727 000244 157002 200$: CMP #244 , #157002 :IS TEST DATA OK 
8854 040756 001401 BEQ 2$ 4 ;YES GO ON 
8855 040760 104002 ERROR +2 ;MMU ERROR 
8856 :NO GO TO ERROR 
8857 040762 020327 000246 2s: CMP R3, #246 :ES R3 CORRECT 
8858 040766 001401 BEQ 3$ ;YES GO ON 
8859 040770 104002 ERROR +2 ;MMU ERROR 
8860 sNO GO TO ERROR 
8861 040772 005037 177776 3$: CLR 0177776 ;SET PSW TO KERNEL MODE 
8862 040776 022627 157002 CMP (SP)+, #157002 ;IS KERNEL STACK CORRECT 
8863 041002 001401 BEQ 4$ ;YES GO ON 
8864 041004 104002 ERROR +2 ;MMU ERROR 
8865 s;NO GO TO ERROR 
8866 041006 021627 177777 4$: CMP (SP), #177777 31S STACK CORRECT 
001401 BEQ 5$ ;YES GO ON 


@ 
: 
g 
4 
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SS ee 


‘aa 


COKDADO KDJ11-B CLUSTER 
MEMORY MANAGEMENT TESTS 
041014 104002 


012737 
012737 
012701 
005237 
106511 
022737 
001401 
104002 


005037 
023727 
001401 
104002 


020127 
001401 
104002 


005037 
022627 
001401 
104002 


021627 
001401 
104002 


012737 
012737 


020127 
001401 
104002 


005037 
022627 
001401 
104002 


021627 
001401 
104002 


005003 





DIAG. 


000244 
177572 


030011 


177572 
000244 


000244 


177776 
103456 


177777 


030017 
113672 
000246 
177572 


030011 


177572 
000244 


000244 


177776 
113672 


177777 





MACRO YO5.02 


177776 
000244 


177776 


103456 


177776 
000244 


177776 


113672 


5$: 


300$: 


301$: 


302$: 


303$: 


304$: 


400$: 


401$: 


4025: 


4035: 


404$: 
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+2 


#30017 , 80177776 


#103456 ,8#244 


+2 


80177572 
89244 , #103456 
301$ 

+2 


R1,%244 
3C2$ 
+2 


80177776 

CSP )+, #103456 
303$ 

+2 
(SP),#177777 
304$ 


+2 


#30017 ,8#177776 


#113672 ,3%244 
#246,R1 
84177572 
-(R1) 


#30011 ,8#177776 
400$ 


+2 


9#177572 
09244 , #113672 
401$ 

+2 


R1, #244 
402$ 
+2 


84177776 

CSP )+, #113672 
403$ 

+2 

(SP), #177777 
404$ 

+2 


R3 


) 
#30011 ,980177776 
300$ 


SEQ 0160 


;MMU ERROR 
sNO GO TO ERROR 
;SETUP PSW 
;SETUP TEST LOCATION 
sSETUP Ri 
;TURN MMU ON 
;TEST INSTRUCTION 
31S PSW CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
; TURN MMU OFF 
3IS TEST LOCATION CORRECT 
;YES GO ON 
;MMU E 


RROR 
:NO GO TO ERROR 
31S Ri CORRECT 
;YES GO ON 
sMMU ERROR 
sNO GO TO ERROR 
;SET PSW TO KERNEL MODE 
3IS STACK CORRECT 
:YES GO ON 
;MMU E 


RROR 
sNO GO TO ERROR 
31S STACK CORRECT 
;YES GO ON 
;MMU ERROR 
:NO GO TO ERROR 
;SETUP PSW 
;SETUP TEST LOCATION 
sSETUP R1 
3; TURN MMU ON 
;TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 
;MMU ERROR 
:NO GO TO ERROR 
;TURN MMU OFF 
:IS TEST LOCATION CORRECT 
;YES GO ON 
;MMU ERROR 
:NO GO TO ERROR 
:IS Ri CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
;SET PSW TO KERNEL MODE 
31S STACK CORRECT 
;YES GO ON 
;MMU E 


RROR 
sNO GO TO ERROR 
3IS STACK CORRECT 
;YES GO ON 
sMMU ERROR 
sNO GO TO ERROR 
;SETUP SOURCE FOR NEXT TEST 








, cena 
i 

COKDADO KDJ11-B8 CLUSTER 
MEMORY MANAGEMENT TESTS 


8925 041244 005237 
106503 
022737 
001401 
104002 


005037 
020327 
001401 
104002 


022627 
001401 
104002 


022627 
001401 
104002 


012637 


012737 
020637 
001401 
104002 


023727 





DIAG. 


177572 
000004 


177572 
000000 


177777 


000244 


177572 
003030 


000244 
177572 


030010 


177572 
140000 
003040 


040000 
003036 


000244 
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177776 


6$: 


7$: 


177776 
177776 
177776 
172516 


000244 
136170 


177776 


1$: 


177776 


177776 100$%: 


120413 200$: 


Fis 


84177572 

R3 

#4 ,9#177776 
6$ 

+2 

8#177572 
R3,#0 


7$ 
+2 


(SP)+,177777 
9$ 

+2 
(SP)+,a#244 


CLR 84177572 

CLR QeFLAG 

MOV #140000 ,8#177776 
MOV R6 , A@SAVUSE 

MOV #40000 , 8177776 
MOV R6, @@SAVSUP 

MOV #30000 , 84177776 
JSR PC, MMU 

MOV #27 , 80172516 
MOV 00244, -(SP) 

MOV #177777,-CSP) 
MOV #120413, -(CSP) 
MOV 0177777 ,8#244 
MOV #77400 , UDPDRO 
MOV #244 ,R3 

INC 8#177572 

MTPI CR3)-+ 

CMP #30010, 8#177776 
BEQ i$ 

ERROR +2 

CLR 8#177572 

MOV #140000 ,8#177776 
CMP R6, @@SAVUSE 

BEQ 100$ 

ERROR +2 

MOV #40000 , 8#177776 
CMP R6, @¢@SAVSUP 

BEQ 200$ 

ERROR +2 

CMP 9244 , #120413 
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SEQ 0161 


sTURN MMU ON 
s TEST INSTRUCTION 
:1S PSW CORRECT 
;YES GO ON 

;MMU ERROR 

;NO GO TO ERROR 
;TURN MMU OFF 
:IS R3 CORRECT 
;YES GO ON 

;MMU ERROR 

sNO GO TO ERROR 
31S STACK CORRECT 
;YES GO ON 

;MMU ERROR 

sNO GO TO ERROR 
31S STACK CORRECT 
;YES GO ON 

;MMU ERROR 

;NO GO TO ERROR 
sRESTORE TEST LOCATION 


TEST MTPI (MOVE TO PREVIOUS INSTRUCTION SPACE) 
OFF 


;MMU 
;CLEAR MMU ABORT FLAG 
sPOINT TO USER SPACE 
;SAVE USER SP 
sPOINT TO SUPERVISOR SPACE 
;SAVE SUPERVISOR SP 
;SETUP PSW 
sINIT MMU 
;SETUP MMR3 
s;SAVE DATA AT TEST LOCATION 
;PUT KNOWN DATA ON STACK 
;PUT TEST DATA ON STACK 
sPUT KNOWN DATA AT TEST LOCATION 
;SETUP UDPDRO TO ABORT 
;SETUP POINTER TO TEST LOCATION 
;TURN MMU ON 
; TEST INSTRUCTION 
;IS PSW CORRECT 
;YES GO ON 

;MMU ERROR 

;NO GO TO ERROR 
; TURN MMU OFF 
sPOINT TO USER SPACE 
;IS USER SP CORRECT 
:YES GO ON 

;MMU ERROR 

sNO GO TO ERROR 
sPOINT TO SUPERVISOR SPACE 
:IS SUPERVISOR SP CORRECT 
:YES GO ON 

;MMU ERROR 

:NO GO TO ERROR 
31S TEST LOCATION CORRECT 








| 





COKDADO KDJ11-B CLUSTER DIAG. 
MEMORY MANAGEMENT TESTS 


8984 041522 001401 
8985 041524 104002 


020327 
001401 
104002 


005037 
021627 
001401 
104002 


012737 


000246 


177776 
177777 


030017 
145121 
000244 
177572 


030011 


177572 
000244 


020127 
001401 
104002 


005037 
021627 
001401 
104002 


012737 


000244 


177776 
177777 


030017 
122347 
000246 
177572 


030011 


177572 
000244 


020127 000244 
001401 


104002 


005037 
021627 
001401 
104002 


177776 
177777 





MACRO YOS.02 


2$: 


3$: 


177776 =4$: 


177776 


300$: 
145121 


301$: 


302$: 


177776 9 304$: 


177776 


400$: 
122347 


401$: 


402$: 


BEQ 
ERROR 





G13 


2s 
+2 


R3, #246 
3$ 
+2 


90177776 
(SP), #177777 
4s 


+2 


#30017 ,80177776 
#145121,-(SP) 
#244 ,R1 
8177572 

(R1) 

#30011 ,8#177776 
300$ 

+2 


8#177572 
0#244 , #145121 
301$ 

+2 


R1, #244 
302$ 
+2 


80177776 
(SP),#177777 
304$ 

+2 


#30017 , 80177776 
#122347, -(SP) 
#246,R1 
0177572 

-(R1) 

#30011 ,80177776 
400$ 


+2 


9#177572 
8244 , #122347 
401$ 

+2 


R1, #244 
402$¢ 
+2 


8#177776 
(SP) ,#177777 
— 
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;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
31S R3 CORRECT 
:YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
;SET PSW TO KERNEL MODE 
31S KERNEL STACK CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
;SETUP PSW 
;SETUP TEST DATA 
;SETUP Ri 
;TURN MMU ON 
;TEST INSTRUCTION 
;I1S PSW CORRECT 
;YES GO ON 
;MMU ERROR 
sNO GO TO ERROR 
3; TURN MMU OFF 
:IS TEST LOCATION CORRECT 
;YES GO ON 
sMMU ERROR 
sNO GO TO ERROR 
:IS Ri CORRECT 


;NO GO TO ERROR 
;SET PSW TO KERNEL MODE 
31S STACK CORRECT 
;YES GO ON 

3;MMU E 


RROR 
sNO GO TO ERROR 
sSETUP PSW 
;SETUP TEST DATA 


;TEST INSTRUCTION 
:1S PSW CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
; TURN MMU OFF 
;1S TEST LOCATION CORRECT 
;YES GO ON 
;MMU E 


RROR 
sNO GO TO ERROR 
3IS R1 CORRECT 
;YES GO ON 
;MMU ERROR —_ 
;NO GO TO ERROR 
;SET PSW TO KERNEL MODE 
3IS STACK CORRECT 
;YES GO ON 
sMMU ERROR 





SEQ 0162 
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041752 
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022627 
001401 
104002 


012637 


005037 
005037 
012737 
010637 
012737 
010637 
012737 
004767 
012737 
013746 
012746 
012746 
012737 
012767 
012703 
005237 
106623 
022737 
001401 
104002 


005037 
012737 
020637 
001401 
104002 


012737 
020637 
001401 
104002 


023727 
001401 
104002 


177572 
000004 


177572 
000000 


177777 


000244 


177572 
003030 


177572 
030010 


177572 
140000 
003040 


040000 
003036 


000244 
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404$: 


177776 


5$: 


6$: 


177776 
177776 
177776 
172516 


000244 
135450 


177776 
1$: 
177776 


177776 100%: 


100004 200%: 


SEQ 0163 
sNO GO TO ERROR 
-(SP) sSETUP STACK FOR NEXT TEST 
8177572 ;TURN MMU ON 
R3 ; TEST INSTRUCTION 
#4 ,9#177776 IS PSW CORRECT 
S$ ;YES GO ON 
+2 ;MMU ERROR 
;NO GO TO ERROR 
9177572 sTURN MMU OFF 
R3, #0 sIS R3 CORRECT 
6$ sYES GO ON 
+2 ;MMU ERROR 
+NO GO TO ERROR 
(SP )+,#177777 31S STACK CORRECT 
7$ ;YES GO ON 
-92 sMMU ERROR 
;NO GO TO ERROR 
(SP)+,a%244 sRESTORE TEST LOCATION 


TEST MTPD CMOVE TO PREVIOUS DATA SPACE) 


CLR 





94177572 sMMU OFF 
@eFLAG ;CLEAR MMU ABORT FLAG 
#140000 , 84177776 sPOINT TO USER SPACE 
R6, A#SAVUSE sSAVE USER SP 
#40000 , 8177776 sPOINT TO SUPERVISOR SPACE 
R6 , 9#SAVSUP sSAVE SUPERVISOR SP 
#30000 , 80177776 sSETUP PSW 
PC, MMU sINIT MMU 
#27, 8172516 sSETUP MMR3 
#244 ,-(SP) sSAVE DATA AT TEST LOCATION 
#177777, -CSP) sPUT KNOWN DATA ON STACK 
#100004 , -(SP) sPUT TEST DATA ON STACK 
#177777 , 88244 sPUT KNOWN DATA AT TEST LOCATION 
#77400 , UIPDRO s;SETUP UIPDRO TO ABORT 
#244 ,R3 sSETUP POINTER TO TEST LOCATION 
8177572 ;TURN MMU ON 
CR3)+ ;_ TEST INSTRUCTION 
#30010 ,80177776 sIS PSW CORRECT 
1$ ;YES GO ON 
+2 ;MMU ERROR 
sNO GO TO ERROR 
90177572 ;TURN MMU OFF 
#140000 ,8#177776 sPOINT TO USER SPACE 
R6, @BSAVUSE ;IS USER SP CORRECT 
100$ ;YES GO ON 
+2 sMMU ERROR 


sNO GO TO ERROR 


#40000 , 8#177776 sPOINT TO SUPERVISOR SPACE 
R6, 9#SAVSUP :IS SUPERVISOR SP CORRECT 
200$ ;YES GO ON 
+2 3MMU ERROR 

sNO GO TO ERROR 
84244 , #100004 31S TEST LOCATION CORRECT 
2s ;YES GO ON 
+2 ;MMU ERROR 














pe ee 
| 
113 
COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-145 
MEMORY MANAGEMENT TESTS 


SEQ 0164 


9156 042452 005046 404$: CLR -(SP) ;SETUP STACK FOR NEXT TEST 


9100 ;NO GO TO ERROR 

9101 042226 020327 000246 2s: CMP R3, #246 sIS R3 CORRECT 

9102 042232 001401 BEQ 3$ sYES GO ON 

9103 042234 104002 ERROR +2 ;MMU ERROR 

9104 sNO GO TO ERROR 

9105 042236 005037 177776 3$: CLR 80177776 sSET PSW TO KERNEL MODE 
9106 042242 021627 177777 CMP (SP),#177777 sIS KERNEL STACK CORRECT 
9107 042246 001401 BEQ 4$ ;YES GO ON 

9108 042250 104002 ERROR +2 sMMU ERROR 

9109 ;NO GO TO ERROR 

9110 042252 012737 030017 177776 4$: MOV #30017 ,80177776 sSETUP PSW 

9111 042260 012746 100737 MOV #100737, -(CSP) sSETUP TEST DATA 

9112 042264 012701 000244 MOV #244 ,R1 sSETUP R1 

9113 042270 005237 177572 INC 9177572 ;TURN MMU ON 

9114 042274 106611 MTPD (R1) sTEST INSTRUCTION 

9115 042276 022737 030011 177776 CMP #30011 ,8%177776 sIS PSW CORRECT 

9116 042304 001401 BEQ 300$ ;YES GO ON 

9117 042306 104002 ERROR +2 ;MMU ERROR 

9118 sNO GO TO ERROR 

9119 042310 005037 177572 300$: CLR 80177572 ;TURN MMU OFF 

9120 042314 023727 000244 100737 CMP 89244 , #100737 sIS TEST LOCATION CORRECT 
9121 042322 001401 BEQ 301$ ;YES GO ON 

9122 042324 104002 ERROR +2 ;MMU ERROR 

9123 sNO GO TO ERROR 

9124 042326 020127 000244 301$: CMP R1, #244 sIS R1 CORRECT 

9125 042332 001401 BEQ 302$ sYES GO ON 

9126 042334 104002 ERROR +2 sMMU ERROR 

9127 sNO GO TO ERROR 

9128 042336 005037 177776 302$: CLR 80177776 ;SET PSW TO KERNEL MODE 
9129 042342 021627 177777 CMP (SP),#177777 3IS STACK CORRECT 

9130 042346 001401 BEQ 304$ sYES GO ON 

9131 042350 104002 ERROR +2 ;MMU ERROR 

9132 ;NO GO TO ERROR 

9133 042352 012737 030017 177776 304$: MOV #30017 ,80177776 sSETUP PSW 

9134 042360 012746 156711 MOV #156711,-(CSP) sSETUP TEST DATA 

9135 042364 012701 000246 MOV #246,R1 sSETUP R1 

9136 042370 005237 177572 INC 80177572 ;TURN MMU ON 

9137 042374 106641 MTPD -(R1) sTEST INSTRUCTION 

9138 042376 022737 030011 177776 CMP #30011 ,80177776 sIS PSW CORRECT 

9139 042404 001401 BEQ 400$ :YES GO ON 

9140 042406 104002 ERROR +2 s;MMU ERROR 

9141 ;NO GO TO ERROR 

9142 042410 005037 177572 400$: CLR 90177572 sTURN MMU OFF 

9143 042414 023727 000244 15€711 CMP 90244 , #156711 sIS TEST LOCATION CORRECT 
9144 042422 001401 BEQ 401$ sYES GO ON 

9145 042424 104002 » ERROR +2 ;MMU ERROR 

9146 sNO GO TO ERROR 

9147 042426 020127 000244 401$: CMP R1,#244 3IS R1 CORRECT 

9148 042432 001401 BEQ 402$ sYES GO ON 

9149 042434 104002 ERROR +2 ;MMU ERROR 

9150 sNO GO TO ERROR 

9151 042436 005037 177776 402%: CLR 90177776 sSET PSW TO KERNEL MODE 
9152 042442 021627 177777 CMP (SP),#177777 3IS STACK CORRECT 

9153 042446 001401 BEQ 404$ ;YES GO ON 

9154 042450 104002 ERROR +2 sMMU ERROR 

9155 sNO GO TO ERROR 





—— 
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042454 005237 
106603 
022737 
001401 
104002 


005037 
020327 
001401 
104002 


022627 
001401 
104002 


012637 


012737 
004767 


042610 
042616 


012701 
004767 
005003 
012767 
012737 
012737 
012241 
004767 


005067 
005067 





DIAG. 


177572 
000004 


177572 
000000 


177777 


000244 


177572 
140274 


000220 
074720 


140152 
140150 


MACRO YOS.02 


177776 


177776 
177600 


177600 


140166 
177572 
177776 


S$: 


6$: 








J13 


9177572 

R3 

#4 ,90177776 
S$ 

+2 
84177572 


6$ 
+2 


(SP)+, #177777 
7$ 

2 
(SP)+,a#244 


Mr NON-RESIDENT ABORT 


CLR 84177572 

CLR FLAG 

MOV a#214,-CSP) 

MOV a#216,-(CSP) 

CLR SAVMRO 

CLR SAVMR1 

CLR SAVMR2 

JSR PC, MMU 

MOV #30000 , 84177776 
MOV #200 ,R2 

MOV #77400 , 8%177600 
JSR PC,1TS7 

MOV #77404 ,8#177600 
JSR »1S7 

MOV #220,R1 

JSR PC, MMU 

CLR R3 

MOV #1,FLAG 

MOV #1,80177572 

MOV #100000 , #177776 
MOV (R2)+,-CR1) 

JSR PC,TSM7 

CLR SAVMRO 

CLR SAVMR1 
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;TURN MMU ON 
; TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 

;MMU ERROR 

;NO GO TO ERROR 
3 TURN MMU OFF 
:IS R3 CORRECT 
;YES GO ON 

;MMU ERROR 

sNO GO TO ERROR 
31S STACK CORRECT 
YES ON 

;MMU ERROR 

:NO GO TO ERROR 
sRESTORE TEST LOCATION 


3MMU OFF 
;CLEAR MMU ABORT FLAG 
;SAVE DATA AT TEST LOCATIONS 


; 
sCLEAR STATUS REGS SAVE AREAS 
a 


3 
sINIT MMU 
;SETUP PSW 


; 

sSETUP FOR AN ABORT 

sCAUSE AN ABORT TO OCCUR AND 

THEN CHECK IF ABORT FLAG REGISTERED 
s;THIS EVENT AND CHECK IF STATUS REGS 
sCONTAINED EXPECTED VALUES. 


sIF NO ABORT OCCURRED THEN GO TO ERROR 


sOTHERWISE CONTINUE. 

sSETUP FOR AN ABORT 

sCAUSE AN ABORT TO OCCUR AND 

s; THEN CHECK IF ABORT FLAG REGISTERED 
sTHIS EVENT AND CHECK IF STATUS REGS 
sCONTAINED EXPECTED VALUES. 


;IF NO ABORT OCCURRED THEN GO TO ERROR 


sOTHERWISE CONTINUE. 


; 

sINIT MMU 

sSETUP MMR1 EXPECTED DATA 
sSETUP FLAG FOR AN ABORT 
;TURN MMU ON 


sSETUP PSW FOR AN ABORT CILLEGAL MODE) 


;CAUSE AN ABORT 
sCHECK IF AN ABORT OCCURRED BY 
sCHECKING ABORT FLAG AND STATUS REGS 


sIF NO ABORT OCCURRED THEN GO TO ERROR 


sOTHERWISE CONTINUE. 
sCLEAR STATUS REGS SAVE AREAS 
3 


SEQ 0165 
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012737 


012637 
012637 


000167 


012767 
012737 
010701 
006522 
022767 
001401 
104002 


105067 
022767 
001401 
104002 


026727 
001401 
104002 


026701 
001401 
104002 


005067 
005067 
005067 
000207 


022767 
001401 
104002 


042737 
022767 


9272 043132 001401 


‘ 
-=_--- 
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030000 
077400 
177572 


000216 
000214 


000154 


000001 
000001 


137774 


137764 


137750 
137746 
137744 


040377 
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140116 
177572 
177776 


177776 
177600 


140026 
177572 


140006 


140002 


000022 


137716 


003042 
137710 





K13 


Wednesday 27-Feb-85 17:55 


CLR SAVMR2 

MOV #22 ,R3 

MOV #1,FLAG 

MOV #1,80177572 
MOV #20000 , 80177776 
MFPI (R2)+ 
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3 
;SETUP MMR1 EXPECTED DATA 
;SETUP FLAG FOR AN ABORT 
;TURN MMU ON 
;SETUP PSW FOR AN ABORT CILLEGAL MODE) 
;CAUSE AN ABORT 
;CHECK IF AN ABORT OCCURRED BY 
;CHECKING ABORT FLAG AND STATUS REGS 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 
;SETUP PSW 
;SETUP FOR AN ABORT 

OFF 


3;MMU 

;TRY TO CAUSE AN ABORT 

;POP THE STACK 

sRESTORE DATA AT TEST LOCATIONS 
é 


;SETUP FOR AN ABORT 
;TURN MMU ON 
;SAVE PC 
;CAUSE AN ABORT 
;DID AN ABORT OCCUR 
;IF YES GO ON 

;MMU E 


RROR 

s;IF NO GO TO ERROR 
sSETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 

sMMU ERROR 

sNOT OK THEN GO TO ERROR 
; TEST MMR1 FOR EXPECTED VALUE 
sIF OK THEN CONTINUE 

sMMU ERROR 

s;NOT OK THEN GO TO ERROR 
;_ TEST MMR2 FOR EXPECTED VALUE 
IF OK THEN CONTINUE 

sMMU ERROR 

sNOT OK THEN GO TO ERROR 
;CLEAR STATUS REGS SAVE AREAS 
; 


MOV #30000 , 84177776 
MOV #77400 , 84177600 
CLR 84177572 
MFPI CR2)+ 
MOV (SP)+,R3 
MOV (SP)+,8#216 
MOV (SP)+,a#214 
JMP TS7FIN 
H 
sROUTINE TO CAUSE AND CHECK NONRESIDENT ABORTS 
3 
TS7: MOV #1,FLAG 
MOV #1,980177572 
MOV R7,R1 
MFPI (R2)+ 
CMP #0,FLAG 
BEQ OK7 
ERROR +2 
OK7: CLRB SAVMRO 
CMP #100000, SAVMRO 
BEQ OKA7 
ERROR +2 
OKA7: CMP SAVMR1, #22 
BEQ OKAY7 
ERROR +2 
OKAY7: CMP SAVMR2,R1 
BEQ OKAY7A 
ERROR +2 
OKAY7A: CLR SAVMRO 
CLR SAVMR1 
CLR SAVMR2 
RTS PC 


a 
RETURN 


3 
sROUTINE TO CHECK IF A NONRESIDENT ABORT OCCURRED 


; 
TSM7: 


CMP #0,FLAG 
BEQ TSMA 
ERROR +2 

TSMA: BIC #40377 , A#@SAVMRO 
CMP #100000, SAVMRO 
BEQ TSMB 





;DID AN ABORT OCCUR 
IF YES GO ON 
sMMU ERROR 
;IF NO THEN GO TO ERROR 
sSETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
sIF OK THEN CONTINUE 








SEQ 0166 








j 
{ 
! 
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oe} 


SEQ 0167 


9273 043134 104002 ERROR +2 sMMU ERROR 
9274 ;IF NO THEN GO TO ERROR 
9275 043136 020367 137702 TSMB: CMP R3,SAVMR1 ;_ TEST MMR1 FOR EXPECTED VALUE 
9276 043142 001401 BEQ TSMC sIF OK THEN CONTINUE 
9277 043144 104002 ERROR +2 ;MMU ERROR 
9278 s;IF NOT OK THEN GO TO ERROR 
oes 043146 000207 TSMC: RTS PC RETURN 
i 
9281 043150 000240 TS7FIN: NOP 
9284 043152 TSMMUB : 
9285 ; TEST READ ONLY ABORTS 
9286 043152 005037 177572 CLR 80177572 sMMU OFF 
9287 043156 005067 137646 CLR FLAG ;CLEAR MMU ABORT FLAG 
9288 043162 013746 000244 MOV 80244, -(SP) sSAVE DATA AT TEST LOCATIONS 
9289 043166 013746 000246 MOV 8246, -(SP) 3 
9290 043172 005067 137644 CLR SAVMRO sCLEAR STATUS REGS SAVE AREAS 
9291 043176 005067 137642 CLR SAVMR1 ; 
9292 043202 005067 137640 CLR SAVMR2 ; 
9293 043206 004767 074340 JSR PC, MMU sINIT MMU 
9294 043212 012737 030000 177776 MOV #30000 , 80177776 sSETUP PSW 
9295 043220 012702 000244 MOV #244 ,R2 ; 
9296 043224 012737 077402 177600 MOV #77402 ,80177600 ;SETUP FOR AN ABORT 
9297 043232 012746 000246 MOV #246, -(SP) sPUSH DATA ONTO THE STACK 
9298 043236 012767 000001 137564 MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
9299 043244 012737 000001 177572 MOV #1,80177572 sTURN MMU ON 
9300 043252 010701 MOV R7,R1 sSAVE PC 
9301 043254 006622 MTPI (R2)+ sCAUSE ABORT 
9302 043256 022767 000000 137544 CMP #0,FLAG sDID ABORT OCCUR 
9303 043264 001401 BEQ i$ sIF YES THEN GO ON 
9304 043266 104002 ERROR +2 sMMU ERROR 
9305 s;IF NO THEN GO TO ERROR 
9306 043270 105067 137546 1$: CLRB SAVMRO sSETUP EXPECTED DATA 
9307 043274 022767 020000 137540 CMP #20000 , SAVMRO s_TEST MMRO FOR EXPECTED VALUE 
9308 043302 001401 BEQ 2s ;IF OK THEN CONTINUE 
9309 043304 104002 ERROR +2 sMMU ERROR 
9310 sOTHERWISE GO TO ERROR 
9311 043306 022767 011026 137530 2$: CMP #11026, SAVMR1 ; TEST MMR1 FOR EXPECTED VALUE 
9312 043314 001401 BEQ 3$ sIF OK THEN CONTINUE 
9313 043316 104002 ERROR +2 sMMU ERROR 
9314 sOTHERWISE GO TO ERROR 
9315 043320 020167 137522 3$: CMP R1, SAVMR2 ;_TEST MMR2 FOR EXPECTED VALUE 
9316 043324 001401 BEQ 4$ sIF OK THEN CONTINUE 
9317 043326 104002 ERROR +2 ;MMU ERROR 
9318 sOTHERWISE GO TO ERROR 
9319 043330 012737 030000 177776 4%: MOV #30000 , 80177776 sSETUP PSW 
9320 043336 012746 000002 MOV #2,-CSP) sPUSH DATA ONTO STACK 
9321 043342 006622 MTPI (R2)+ sTRY TO CAUSE ABORT 
9322 043344 012637 000246 MOV (SP)+, 89246 sRESTORE DATA AT TEST LOCATIONS 
Na 043350 012637 000244 MOV (SP)+,@%244 ; 
9327 043354 TSMMU9 : 
9328 ; TEST PAGE LENGTH ERROR ABORTS 
9329 043354 005037 177572 CLR 0177572 3;MMU OFF 
9330 043360 005067 137444 CLR FLAG sCLEAR MMU ABORT FLAG 
9331 043364 005067 137452 CLR SAVMRO sCLEAR STATUS REGS SAVE AREAS 
9332 043370 005067 137450 CLR SAVMR1 ; 


9333 043374 005067 137446 CLR SAVMR2 3 
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SEQ 0168 
MEMORY MANAGEMENT TESTS 
9334 043400 012737 030000 177776 MOV 930000 , 80177776 sSETUP PSW 
9335 043406 004767 074140 JSR PC ,MMU sINIT MMU 
9336 043412 012703 043674 MOV OPLFO,R3 ;LET R3, Ri, AND R2 POINT TO THE 
9337 043416 012701 043746 MOV #BNO,R1 sUPWARD EXPANSION TABLES 
9338 043422 012702 044016 MOV #ABORTO,R2 F 
9339 043426 012737 000026 172516 MOV $26 ,80172516 sDISABLE USER DATA SPACE 
9340 043434 004767 000050 JSR PC, TSM9 sTURN MMU ON 
9341 3D0 RELOCATIONS FOR THE DIFFERENT 
9342 sVALUES OF THE PAGE LENGTH FIELD AND 
9343 ;BLOCK NUMBER. IF AN ABORT OCCURS 
9344 sCHECK TO SEE IF IT WAS SUPPOSED TO, 
9345 sAND IF YES CHECK ABORT FLAG AND 
9346 sSTATUS REGISTERS. 
9347 043440 012703 044066 MOV @PLF1,R3 ;LET R3, R1, AND R2 POINT TO THE 
9348 043444 012701 044136 MOV #BN1,R1 ;DOWNWARD EXPANSION TABLES 
9349 043450 012702 044204 MOV #ABORT7 ,R2 3 
9350 043454 004767 000030 JSR PC, TSM9 ;TURN MMU ON 
9351 300 RELOCATIONS FOR THE DIFFERENT 
9352 sVALUES OF THE PAGE LENGTH FIELD AND 
9353 sBLOCK NUMBER. IF AN ABORT OCCURS 
9354 ;CHECK TO SEE IF IT WAS SUPPOSED TO, 
9355 sAND IF YES CHECK ABORT FLAG AND 
9356 sSTATUS REGISTERS. 
9357 043460 005037 177572 CLR 80177572 3MMU OFF 
9358 043464 012703 044076 MOV @PLF1+10,R3 sPOINT TO A VALUE WHICH SHOULD CAUSE 
9359 043470 012701 044146 MOV #BN1+10,R1 sAN ABORT IF MMU IS ON. 
9360 043474 011337 177600 . MOV CR3),80177600 ;SETUP UIPDRO 
9361 043500 006521 MFPI CR1i)-« 300 A RELOCATION 
oer 043502 012605 MOV CSP)+,R5 ;POP THE STACK 
eee 043504 000167 000542 JMP TSOFIN 
6 F 
9366 sROUTINE TO CAUSE AND CHECK PAGE LENGTH ERROR ABORTS 
9367 3 
9368 043510 012337 177600 TSM9: MOV (R3)+,8%177600 sSETUP UIPDRO 
9369 043514 010100 MOV R1,RO sSAVE A COPY OF Ri 
9370 043516 012767 000001 137304 MOV #1,FLAG ;SETUP FOR AN ABORT 
9371 043524 012737 000001 177572 MOV #1,80177572 3 TURN MMU ON 
9372 043532 010704 MOV R7,R4 sSAVE PC 
9373 043534 006530 MFPI @(RO)+ 3:00 A RELOCATION OPERATION 
9374 043536 021227 000000 CMP (R2),80 ;WAS AN ABORT SUPPOSED TO OCCUR 
9375 043542 001007 BNE es ;IF YES GO TO 2$ 
9376 043544 012605 MOV (SP)-,R5 ;POP THE STACK = 
9377 043546 022767 000001 137254 CMP #1,FLAG ;DID AN ABORT OCCUR 
9378 043554 001401 BEQ i$ sNO GO ON 
9379 043556 104002 ERROR +2 sMMU ERROR 
9380 ;YES GO TO ERROR 
9381 043560 000425 i$: BR 6$ 3 
9382 043562 022767 000000 137240 2%: CMP #0,FLAG ;DID AN ABORT OCCUR 
9383 043570 001401 BEQ 3$ sYES GO ON 
9384 043572 104002 ERROR +2 ;MMU ERROR 
9385 :NO GO TO ERROR 
9386 043574 105067 137242 3$: CLRB SAVMRO sSETUP EXPECTED DATA 
9387 043600 022767 040000 137234 CMP #40000 , SAVMRO s TEST MMRO FOR EAPECTED VALUE 
9388 043606 001401 BEQ 4$ 3IF OK THEN CONTINUE 
9389 043610 104002 ERROR 22 3MMU ERROR 
9390 ;NOT OK THEN GO TO ERROR 
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SEQ 0169 
MEMORY MANAGEMENT TESTS 
9391 043612 022767 000020 137224 4%: CMP #20, SAVMR1 s_ TEST MMR1 FOR EXPECTED VALUE 
9392 043620 001401 BEQ S$ 3IF OK THEN CONTINUE 
9393 043622 104002 ERROR +2 sMMU ERROR 
9394 sNOT OK THEN GO TO ERROR 
9395 043624 020467 137216 S$: CMP R4, SAVMR2 s_ TEST MMR2 FOR EXPECTED VALUE 
9396 043630 001401 BEQ 6$ sIF OK THEN CONTINUE 
9397 043632 104002 ERROR +2 sMMU ERROR 
9398 sNOT OK THEN GO TO ERROR 
9399 043634 005067 137170 6$: CLR FLAG sCLEAR MMU ABORT FLAG 
9400 043640 005067 137176 CLR SAVMRO sCLEAR STATUS REGS SAVE AREAS 
9401 043644 005067 137174 CLR SAVMR1 ; 
9402 043650 005067 137172 CLR SAVMR2 ; 
9403 043654 005201 INC Ri sPOINT TO NEXT ENTRY 
9404 043656 005201 INC R1 ; 
9405 043660 005202 INC R2 ; 
9406 043662 005202 INC R2 3 
9407 043664 021327 000777 CMP (R3),0777 sHAVE ALL ENTRIES BEEN TRIED 
9408 043670 001307 BNE TSM9 sNO REPEAT 
ore 043672 000207 RTS PC sYES RETURN 
é 
ery sUPWARD EXPANSION TABLES 
i 

9413 043674 070006 PLFO: -WORD 70006 
9414 043676 070006 -WORD 70006 
9415 043700 070006 WORD 70006 
9416 043702 013406 WORD 13406 
9417 043704 020006 WORD 20006 
9418 043706 004006 -WORD 04006 
9419 043710 040006 WORD 40006 
9420 043712 070006 -WORD 70006 
9421 043714 024006 WORD 24006 
9422 043716 004006 «WORD 04006 
9423 043720 014006 WORD 14006 
9424 043722 012006 WORD 12006 
9425 043724 002006 WORD 02006 
9426 043726 001406 WORD 01406 
9427 043730 004006 WORD 04006 
9428 043732 002006 WORD 02006 
9429 043734 000406 «WORD 00406 
9430 043736 007406 «WORD 07406 
9431 043740 001006 -WORD 01006 
9432 043742 003406 -WORD 03406 
9433 043744 000777 -WORD 777 
9434 043746 013000 BNO: -WORD 013000 
9435 043750 016000 -WORD 016000 

36 043752 017000 -WORD 017000 
9437 043754 002700 -WORD 002700 
9438 043756 014000 -WORD 014000 
9439 043760 002000 -WORD 002000 
9440 043762 004000 -WORD 004000 
9441 043764 007000 -WORD 007000 
9442 043766 -WORD 002000 ° 
9443 043770 000700 -WORD 000700 
9444 043772 -WORD 004000 
9445 043774 901000 -WORD 001000 
9446 043776 000300 -WORD 000300 
9447 000400 -WORD 000600 


i es 








—_—_— 
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000700 


OoOrOorrrPrOOrFOCOCOFFOrOCO 


; 
sDOWNWARD EXPANSION TABLES 


3 
PLF1i: 


BN1: 


00416 
20016 





SEQ 0170 
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SEQ 017 
MEMORY MANAGEMENT TESTS _ 
9505 044156 004000 WORD 004000 
9506 044160 004000 WORD 004000 
9507 044162 004000 WORD 004000 
9508 044164 000000 WORD 000000 
9509 044166 000300 WORD 000300 
9510 044170 000000 WORD 
9511 044172 000400 WORD 000400 
9512 044174 001000 WORD 001000 
9513 044176 000100 WORD 000100 
9514 044200 000400 -WORD 000400 
9515 044202 000200 -WORD 000200 
9516 044204 000000 ABORT7: .WORD 0 
9517 044206 000000 -WORD 0O 
9518 044210 000000 -WORD 0O 
9519 044212 000000 -WORD 0O 
9520 044214 000001 -WORD 1 
9521 044216 000001 -WORD 1 
9522 044220 000001 -WORD 1 
9523 044222 000000 -WORD 0 
9524 044224 000001 -WORD 1 
9525 044226 000000 -WORD O 
9526 044230 000000 -WORD O 
9527 044232 000001 -WORD 1 
9528 044234 000001 -WORD 1 
9529 044236 000001 -WORD 1 
9530 044240 000000 -WORD 0O 
9531 044242 000000 -WORD 0 
9532 044244 000001 -WORD 1 
9533 044246 000000 -WORD O 
on 044250 000000 -WORD 0O 
3 

9536 044252 000240 TSOFIN: NOP 
9539 044254 TSMM10: 
9540 ; FUNCTIONAL TEST OF BITS <6:1> OF MMRO 
9541 044254 005037 177572 CLR a0177572 sMMU OFF 
9542 044260 005067 136544 CLR FLAG ;CLEAR MMU ABORT FLAG 
9543 044264 005067 136552 CLR SAVMRO ;CLEAR STATUS REGS SAVE AREAS 
9544 044270 005067 136550 CLR SAVMR1 ; 
9545 044274 005067 136546 CLR SAVMR2 ; 
9546 044300 004767 073246 JSR PC, MMU sINIT MMU 
9547 044304 005037 177776 CLR 80177776 sINIT PSW: PREVIOUS MODE = KERNAL 
9548 044310 012702 020200 MOV #20200 ,R2 3 
9549 044314 012737 077400 172302 MOV #77400 , 84172302 sSETUP KIPDR1 TO ABORT 
9550 044322 012767 000001 136500 MOV #1,FLAG ;SETUP FLAG FOR AN ABORT 
9551 044330 012737 000001 177572 MOV #1,980177572 ; TURN MMU ON 
9552 044336 010701 MOV R7,R1 sSAVE PC 
9553 044340 006522 MFPI (R2)- :D0 A RELOCATION VIA KIPAR1 
9554 044342 012704 100003 MOV #100003 ,,R4 sSETUP EXPECTED DATA 
9555 044346 004767 000202 JSR PC,TS10 ;CHECK IF AN ABORT OCCURRED AND 
9556 sIF YES CHECK BITS <6:1> OF MMRO. 
9557 044352 012737 030000 177776 MOV #30000 , 80177776 sINIT PSW: PREVIOUS MODE = USER 
9558 044360 004767 073166 JSR PC MMU sINIT MMU 
9559 044364 012737 077400 177636 MOV #77400 ,80177636 sSETUP UDPDR7 TO ABORT 
9560 044372 012702 160000 MOV #160000 ,R2 ; 
9561 044376 012767 000001 136424 MOV #1,FLAG ;SETUP FLAG FOR AN ASORT 
9562 044404 012737 000001 177572 MOV #1,80177572 3 TURN MMU ON 

010701 MOV R7,R1 sSAVE PC 


wo 
2 
2 
LS) 














-_—, 
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106522 
012704 
004767 


012737 


022767 
001401 
104002 


020467 
001401 
104002 


022767 
001401 
104002 


020167 
001401 
104002 


005067 
005067 
005067 
000207 


000000 


136250 


000022 


136232 


136216 
136214 
136212 
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SEQ 0172 
MFPD (R2)+ :D0 A RELOCATION VIA UDPAR7 
MOV #100177,R4 sSETUP EXPECTED DATA 
JSR PC,TS10 sCHECK IF AN ABORT OCCURRED AND 
sIF YES CHECK BITS <6:1> OF MMRO. 
177776 MOV #10000 , 80177776 sINIT PSW: PREVIOUS MODE= SUPERVISOR 
JSR PC ,MMU sINIT MMU 
172212 MOV 977400 ,80172212 sSETUP SIPDRS TO ABORT 
MOV #120000 ,,R2 sACCESS PAGE 05 
136350 MOV #1,FLAG ;SETUP FLAG FOR AN ABORT 
177572 MOV #1,80177572 ;TURN MMU ON 
MOV R7,R1 sSAVE PC 
MFPI (R2)+ :D0 A RELOCATION VIA SIPARS 
MOV #100053 ,R4 ;SETUP EXPECTED DATA:ABORT, PAGE 0S 
JSR PC,TS10 sCHECK IF AN ABORT OCCURRED AND 
sIF YES CHECK BITS <6:1> OF MMRO. 
6 
sTEST THAT ILLEGAL MODE CAUSES MMU ABORT 
: 
177776 MOV #20000 , 80177776 sINIT ?SW:SET ILLEGAL PREVIOUS MODE 
JSR PC, MMU sINIT MMU 
MOV #40000 ,R2 sSET UP ACCESS TO PAGE 2 
136302 MOV #1,FLAG ;SETUP FLAG FOR AN ABORT 
177572 MOV #1,80177572 ;TURN MMU ON 
MOV R7,R1 sSAVE PC 
MFPD (R2)+ :D0 A RELOCATION 
MOV #100105,R4 sSETUP EXPECTED DATA:ABORT, ILLEGAL 
; PROCESSOR MODE, PAGE 02 
JSR PC,TS10 s;CHECK IF AN ABORT OCCURRED AND 
sIF YES CHECK BITS <6:1> OF MMRO. 
JMP T1OF IN 
‘ 
sROUTINE TO CHECK IF A MMU ABORT OCCURRED AND IF STATUS REG MMRO 
sCONTAINS EXPECTED DATA 
; 
136246 1S10: CMP #0,FLAG ;DID AN ABORT OCCUR 
BEQ 1$ sYES GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR 
1$: CMP R4,SAVMRO ; TEST MMRO FOR EXPECTED DATA 
BEQ 2s ;0K GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR zi 
136240 2$: CMP #22, SAVMR1 :; TEST MMR1 FOR EXPECTED DATA 
BEQ 3$ ;0K GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR 
3$: CMP R1,SAVMR2 ; TEST MMR2 FOR EXPECTED DATA 
BEQ as ;0K GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR 
4$: CLR SAVMRO ;CLEAR MMU STATUS REGS SAVE AREAS 
CLR SAVMR1 ; 
CLR SAVMR2 j 
RTS PC s;RETURN 
5 
TIOFIN: 


ES SS -- 


— 


—_ - — — 
- 


9623 044636 
9624 
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SEQ 0173 
TSMM11: 
; TEST DATA SPACE BITS MMR3S 
CLR 80177572 sMMU OFF 
CLR FLAG sCLEAR MMU ABORT FLAG 
MOV #30000 ,80177776 sSETUP PSW 
MOV #26 ,R1 sSETUP FIRST MMR3 VALUE 
MOV #177610,R3 sPOINT TO UIPDR4 
MOV #21,R4 sSETUP SECOND MMR3 VALUE 
JSR PC,TS11 ; TEST ENABLE USER DATA SPACE BIT 
MOV #0 ,80177776 sSETUP PSW 
MOV #23,R1 sSETUP FIRST MMR3 VALUE 
MOV #172310,R3 sPOINT TO KIPDR4 
MOV 924 ,R4 sSETUP SECOND MMR3 VALUE 
JSR PC,TS11 ; TEST ENABLE KERNEL DATA SPACE BIT 
MOV #10000 , 80177776 sSETUP PSW 
MOV #25,R1 sSETUP FIRST MMR3 VALUE 
MOV #172210,R3 sPOINT TO SIPDR4 
MOV #22,R4 sSETUP SECOND MMR3 VALUE 
JSR PC,TS1i1 ; TEST ENABLE SUPERVISOR DATA SPACE BIT 
JMP T1I1FIN 
5 
sROUTINE TO TEST ENABLE DATA SPACE BITS OF MMR3 
; 
TS11: JSR PC, MMU sINIT MMU 
MOV R1,#172516 sDISABLE DATA SPACE OF MODE UNDER TEST 
MOV #77400, (R3) sSETUP IPDR TO ABORT 
MOV #100000 ,R2 ; 
MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
MOV #1,89177S72 ;MMU ON 
MFPD C(R2)+ 300 A RELOCATION 
CMP #0,FLAG ;DID AN ABORT OCCUR 
BEQ 1$ ;YES GO ON 
ERROR +2 sMMU ERROR 
;NO GO TO ERROR 
i$: MOV R4, 90172516 sENABLE DATA SPACE OF MODE UNDER TEST 
MOV #100000 ,,R2 ; 
MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
MOV #1,80177572 ;MMU ON 
MFPD CR2)+ :D0 A RELOCATION 
TST (SP )+ ;POP THE STACK 
CMP #1,FLAG :DID AN ABORT OCCUR 
BEQ 2$ :NO GO ON 
ERROR +2 sMMU ERROR 
;YES GO TO ERROR 
es CLR FLAG ;CLEAR MMU ABORT FLAG 
RTS PC ;RETURN 
T1I1FIN 
TSMM12: 
: MMR1 FUNCTIONAL TEST 
CLR 80177572 MMU OFF 
CLR FLAG ;CLEAR MMU ABORT FLAG 
CLR SAVMR1 s;CLEAR STATUS REG SAVE AREA 
JSR PC ,MMU sINIT MMU 
MOV #30000, 90177776 ;INIT PSW 
MOV #100200, R4 ;SETUP TEST LOCATIONS 
J 
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MEMORY MANAGEMENT TESTS 


SEQ 0174 


9682 045126 010401 MOV R4,R1 ; 
9683 045130 012705 100101 MOV #100101,R5 i 
9684 045134 010502 MOV RS,R2 ; 
9685 045136 012737 000020 172516 MOV #20 ,80172516 sINIT MMRS 
9686 045144 012737 077402 172310 MOV #77402 , 80172310 sSETUP KIPDR4 TO ABORT 
9687 045152 012703 006414 MOV 96414 ,R3 sSETUP EXPECTED DATA FOR MMR1 
9688 045156 012767 000001 135644 MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
9689 045164 012737 000001 177572 MOV #1,89177572 ;TURN MMU ON 

Z 9690 045172 010767 135614 MOV R7,SLOCOO sSAVE PC 
9691 045176 112425 MOVB CR4)+,CRS)+ ;D0 A RELOCATION 
9692 045200 004767 000206 JSR PC,TS12 ;CHECK IF AN ABORT OCCURRED AND IF 
9693 sYES IF MMR1 EQUALS EXPECTED DATA 
9694 045204 012703 175011 MOV #175011 ,R3 sSETUP EXPECTED DATA FOR MMR1 
9695 045210 012767 000001 135612 MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
9696 045216 012737 000001 177572 MOV #1,80177572 ;TURN MMU ON 

Z 9697 045224 010767 135562 MOV R7,SLOCOO sSAVE PC 
9698 045230 112142 MOVB (R1)+,-CR2) :D0 A RELOCATION 
9699 045232 004767 000154 JSR PC,TS12 sCHECK IF AN ABORT OCCURRED AND IF 
9700 sYES IF MMR1 EQUALS EXPECTED DATA 
9701 045236 012703 006771 MOV #6771 ,R3 *;SETUP EXPECTED DATA FOR MMR1 
9702 045242 012767 000001 135560 MOV #1,FLAG ;SETUP FLAG FOR AN ABORT 
9703 045250 012737 000001 177572 MOV #1,80177572 3 TURN MMU ON 

Z 9704 045256 010767 135530 MOV R7,SLOCOO sSAVE PC 
9705 045262 114125 MOVB -CR1),CRS)+ 3:00 A RELOCATION 
9706 045264 004767 000122 JSR PC,1S12 sCHECK IF AN ABORT OCCURRED AND IF 
9707 sYES IF MMR1 EQUALS EXPECTED DATA 
9708 045270 012703 006411 MOV #6411 ,R3 sSETUP EXPECTED DATA FOR MMR1 
9709 045274 012767 000001 135526 MOV #1,FLAG s;SETUP FLAG FOR AN ABORT 
9710 045302 012737 000001 177572 MOV #1,80177572 ;TURN MMU ON 

Z 9711 045310 010767 135476 MOV R7,SLOCOO sSAVE PC 
9712 045314 112125 MOVB (R1)+,CRS)+ :D0 A RELOCATION 
9713 045316 004767 000070 JSR PC,TS12 ;CHECK IF AN ABORT OCCURRED AND IF 
9714 sYES IF MMR1 EQUALS EXPECTED DATA 
9715 045322 012703 171025 MOV #171025,R3 sSETUP EXPECTED DATA FOR MMR1 
9716 045326 012767 000001 135474 MOV #1,FLAG ;SETUP FLAG FOR AN ABORT 
9717 045334 012737 000001 177572 MOV #1,80177572 ;TURN MMU ON 

Z 9718 045342 010767 135444 MOV R7,SLOCOO sSAVE PC 
9719 045346 012542 MOV CR5)+,-CR2) :D0 A RELOCATION 
9720 045350 004767 000036 JSR PC,1S12 s;CHECK IF AN ABORT OCCURRED AND IF 
9721 sYES IF MMR1 EQUALS EXPECTED DATA 
9722 045354 012703 012762 MOV #12762 ,R3 sSETUP EXPECTED DATA FOR MMR1 
9723 045360 012767 000001 135442 MOV #1,FLAG sSETUP FLAG FOR AN ABORT 
9724 045366 012737 000001 177572 MOV #1,80177572 ;TURN MMU ON 

Z 9725 045374 010767 135412 MOV R7,SLOCOO sSAVE PC 
9726 045400 014225 MOV -C(R2),CRS)+ ;D0 A RELOCATION 
9727 045402 004767 000004 JSR PC,1S12 sCHECK IF AN ABORT OCCURRED AND IF 
ora8 ;YES IF MMR1 EQUALS EXPECTED DATA 
akg 045406 000167 000046 JMP T12FIN 

; 
Ak | sROUTINE TO CHECK IF AN ABORT OCCURRED AND IF MMR1 EQUALS EXPECTED DATA 
i; 

9734 045412 022767 000000 135410 1S12: CMP #0,FLAG :DID AN ABORT OCCUR 
9735 045420 001401 BEQ 1$ sYES GO ON 
9736 045422 104002 ERROR +2 ;MMU ERROR 
9737 sNO GO TO ERROR 
9738 045424 020367 135414 1$: CMP R3,SAVMR1 ; TEST MMR1 FOR EXPECTED DATA 




















_— 
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SEQ 017 
MEMORY MANAGEMENT TESTS _ 
9739 045430 001401 BEQ 2s ;0K GO ON 
9740 045432 104002 ERROR +2 sMMU ERROR 
9741 sNO GO TO ERROR 
9742 045434 026767 135352 135404 2$: CMP SLOCOO, SAVMR2 s TEST MMR2 FOR EXPECTED DATA 
9743 045442 001401 BEQ 3$ ;0K GO ON 
9744 045444 104002 ERROR +2 MMU ERROR 
9745 sNO GO TO ERROR 
9746 045446 005067 135372 3$: CLR SAVMR1 sCLEAR STATUS REG SAVE AREA 
9747 045452 005067 135370 CLR SAVMR2 ; 
dine 4 045456 000207 RTS PC ;RETURN 
3 
9750 045460 000240 T12FIN: NOP 
9760 045462 TSMM13: ' 
9761 ; ADDER RELOCATION TEST PART A 
9762 5 ERE EERE EERE EE EEE EERE EEEEEEEEEEEEEEEEEEEEEEEEEEE ERED 
;(NEED 16 BITS OF MEMORY ADDRESSING) 
9763 045462 005037 177572 CLR 9177572 sMMU OFF 
9764 045466 005067 135336 CLR FLAG ;CLEAR MMU ABORT FLAG 
9765 045472 005037 177776 CLR 80177776 ;INIT PSW 
9766 045476 004767 072050 JSR PC, MMU sINIT MMU 
9767 045502 012737 000020 172516 MOV #20 ,80172516 sINIT MMR3 
9768 045510 012703 045664 MOV #PARAD1,R3 ;SETUP PARS WITH TEST VALUES 
9769 045514 012701 045716 MOV #PARVA1,R1 ; 
9770 045520 012133 1$: MOV (R1)+,ACR3)+ ; 
9771 045522 021127 000333 CMP (R1), #333 ; 
9772 045526 001374 BNE i$ : 
9773 045530 012703 046002 MOV #PHY1,R3 sSET POINTERS TO ADDER PART A 
9774 045534 012701 045750 MOV #VIR1,R1 ; TEST TABLES. 
9775 045540 012702 046034 MOV #MODE1 ,R2 3 
9776 045544 012237 177776 2s: MOV (R2)+,80177776 sINIT PSW 
9777 045550 013305 MOV @C(R3)+,RS sSAVE DATA AT PHYSICAL ADDRESS 
9778 045552 012737 000001 177572 MOV #1 ,8%177572 ;TURN MMU ON 
9779 045560 006531 MFPI aCR1)+ sSAVE DATA AT RELOCATED VIRTUAL ADDRESS 
9780 045562 012604 MOV (SP)+,R4 ; 
9781 045564 005037 177572 CLR 8#177572 ;TURN MMU OFF 
9782 045570 020504 CMP RS,R4 sIS DATA EQUAL TO EXPECTED 
9783 045572 001401 BEQ 3$ ;YES GO ON 
9784 045574 104002 ERROR +2 ;MMU ERROR 
9785 sNO IT IS AN ADDER ERROR 
9786 045576 021327 000111 3$: CMP CR3),#111 sARE WE READY TO TEST DATA SPACE 
9787 045602 001360 BNE 2s sNO GO TO 2$ 
9788 045604 005203 INC R3 sPOINT TO DATA SPACE VALUES 
9789 045606 005203 INC R3 ; 
9790 045610 005201 INC Ri : 
9791 045612 005201 INC R1 3 
9792 045614 005202 INC Re 3 
9793 045616 005202 INC R2 ; 
9794 045620 012237 177776 MOV (R2)+, 80177776 ;INIT PSW 
9795 045624 013305 MOV @CR3)+,R5 sSAVE DATA AT PHYSICAL ADDRESS 
9796 045626 012737 000027 172516 MOV #27 , 80172516 sINIT MMR3 
9797 045634 012737 000001 177572 MOV #1,980177572 ;TURN MMU ON 
9798 045642 106531 MFPD aCR1)+ sSAVE DATA AT RELOCATED VIRTUAL ADDRESS 
9799 045644 012604 MOV (SP)+,R4 ;POP THE STACK 
9800 045646 005037 177572 CLR 8177572 ;TURN MMU OFF 
9801 045652 020504 CMP RS,R4 sIS DATA EQUAL TO EXPECTED 
9802 045654 001401 BEQ 4s ;YES GO ON 
9803 045656 104002 ERROR +2 sMMU ERROR 

















‘ 
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E 7 
MEMORY MANAGEMENT TESTS SEQ 0176 


9804 ;NO IT IS AN ADDER ERROR 
9805 045660 4$: 
soot 045660 000167 000202 JMP TI3FIN 
. 
pote s;ADDER TEST PART A TABLES 
i 
9810 045664 172240 PARADi1: .WORD 172240 
9811 045666 177642 -WORD 177642 
9812 045670 172252 -WORD 172252 
9813 045672 177640 -WORD 177640 
9814 045674 172242 -WORD 172242 
9815 045676 172254 -WORD 172254 
9816 045700 177652 -WORD 177652 
9817 045702 177644 -WORD 177644 
9818 045704 172246 -WORD 172246 
9819 045706 177654 -WORD 177654 
9820 045710 172250 -WORD 172250 
9821 045712 177660 -WORD 177660 
9822 045714 000333 -WORD 333 
9823 045716 000000 PARVA1: .WORD 000000 
9824 045720 000010 -WORD 000010 
9825 045722 177777 WORD 177777 
9826 045724 177601 WORD 177601 
9827 045726 000010 WORD 000010 
9828 045730 000052 WORD 000052 
9829 045732 000070 WORD 000070 
9830 045734 000010 WORD 000010 
9831 045736 000010 WORD 000010 
9832 045740 000060 WORD 000060 
9833 045742 000000 WORD 000000 
9834 045744 000010 WORD 000010 
9835 045746 000333 -WORD 333 
9836 045750 000000 VIR1: . WORD 
9837 045752 025000 -WORD 025000 
9838 045754 135224 WORD 135224 
9839 045756 017700 WORD 017700 
9840 045760 033000 WORD 033000 
9841 045762 145252 WORD 145252 
9842 045764 121000 WORD 121000 
9843 045766 043000 WORD 043000 
9844 045770 075000 WORD 075000 
9845 045772 142000 WORD 142000 
9846 045774 117700 WORD 117700 
9847 045776 000111 WORD i111 
9848 046000 007000 -WORD 007000 
9849 046002 000000 PHY1: -WORD 000000 
9850 046004 006000 -WORD 006000 
9851 046006 015124 -WORD 015124 
9852 046010 -WORD 000000 
9853 046012 014000 -WORD 014000 
9854 046014 012452 WORD 012452 
9855 046016 010000 WORD 010000 
9856 046020 004000 WORD 004000 
9857 046022 016000 WORD 016000 
9858 046024 010000 WORD 010000 
9859 046026 017700 WORD 017700 


P ES SS LL 
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9924 ;CLEAN UP THE STACK 


SEQ 0177 
MEMORY MANAGEMENT TESTS 

9861 046032 010000 . WORD 010000 
9862 046034 010000 MODE1: .WORD 010000 
9863 046036 030000 . WORD 030000 
9864 046040 010000 . WORD 010000 
9865 046042 030000 . WORD 030000 
9866 046044 010000 . WORD 010000 
9867 046046 010000 . WORD 010000 
9868 046050 030000 . WORD 030000 
9869 046052 030000 WORD 030000 
9870 046054 010000 . WORD 010000 ° 
9871 046056 030000 .» WORD 030000 
9872 046060 010000 . WORD 010000 
9873 046062 000111 .WORD 111 
pod 046064 030000 . WORD 030000 

; 
9876 046066 TI3FIN: 
9887 046066 TS182e2: 
9888 3 TEST 22/18 BIT ADDRESS OPTION 
9889 § EEE EEEESEEEEEEESEEEEEEEESEEEEEEEEESEEEEEEESEEEEEEEEEEESE 

sCHECK THE SOFTWARE SWITCH REGISTER TO DETERMINE IF THIS IS A 22 BIT OR AN 

318 BIT ADDRESS SYSTEM. BIT O08 IN THE SWR=1 INDICATES AN 18 BIT SYSTEM. 

;IF WE'RE IN A 22 BIT SYSTEM WE CAN PERFORM SOME EXTRA TESTS. 
9890 046066 032777 000400 133044 BIT #BITO8,ASWR :IS BIT 08 SET? 
9891 046074 001405 BEQ 100$ sBRANCH IF ITS NOT 
9892 046076 062737 000001 001204 ADD #1,a¢$TESTN ;KEEP TEST NUMBERS IN ORDER 
9893 ;ADD 1 FOR THE TESTS WE'RE SKIPPING 
ied 046104 000167 001422 JMP TI4FIN ;SKIP OVER THESE TESTS IF IT IS 

i 
soot ;IF THIS IS A 22 BIT SYSTEM CHECK THE 22/18 BIT ADDRESS OPTION 

; 
9898 ;TO0 TEST 22 BIT ADDRESSING WE DO THE FOLLOWING: 
9899 ; A. ENABLE 22 BIT ADDRESSING MODE 
9900 H B. CLEAR ADDRESS 0 
9901 3 C. WRITE PHYSICAL ADDRESS 17000000 WITH ALL ONES 
9902 ; D. CHECK ADDRESS 0 
9903 ;IF ADDRESS 0 IS UNCHANGED (=0) OR A TIME OUT OCCURRED, IT INDICATES 
9904 322 BIT MODE IS FUNCTIONING. 
9905 ;IF ADDRESS O =177777 IT INDICATES THAT 22 BIT MODE IS NOT FUNCTIONING. 
9906 
9907 046110 013767 000004 134674 100$: MOV a#4 , SLOCOO ;SAVE VECTOR 
9908 046116 013767 000006 134670 MOV 06 ,SLOCO1 sSAVE VECTOR 
9909 046124 012737 046204 000004 MOV #1$ ,004 ;SET VECTOR FOR NXM TRAP 
9910 046132 012737 000340 000006 MOV #340 , 306 ; 
9911 046140 012767 000020 124350 MOV #20,SR3 sENABLE 22 BIT MODE ADDRESSING 
9912 046146 012767 170000 124200 MOV #170000 , KIPAR6 ;SET KIPAR6 FOR 1920-1924KW ADDR RANGE 
9913 046154 012767 000001 131410 MOV #1,SRO sENABLE MMU 
9914 046162 005067 131612 CLR c¢) ;CLEAR ADDR O 
9915 046166 012737 177777 140000 MOV #177777, 8140000 sMOVE ALL ONES TO ADDR 17000000 VIA KIPAR6 
9916 :A TIME OUT ERROR OR 
9917 046174 005767 131600 TST 0 ;ADDR O REMAINING CLEAR INDICATES 
9918 ;THAT 22 BIT ADDRESS MODE IS WORKING AND 
9919 ; THAT SOME FURTHER TESTS SHOULD BE PERFORMED 
9920 046200 001405 BEQ es ;IF ADDR O =177777 
9921 sERROR! 22 BIT ADDRESS MODE BAD 
9922 046202 104002 ERROR +2 ;MMU ERROR 
9923 046204 012706 001000 1$: MOV #STBOT,SP ;GOT HERE AS A RESULT OF NXM TRAP--- 

! 








-_~ 
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9981 046514 013737 003012 000004 MOV @#SLOCOO, a04 sRESTORE VECTORS 


SEQ 0178 
MEMORY MANAGEMENT TESTS 
9925 046210 005037 177766 CLR 80177766 s;CLEAR CPU ERROR REGISTER 
9926 046214 012737 046254 000004 23%: MOV 3% , 804 sSET UP VECTOR FOR NXM TRAP 
9927 046222 042767 000020 124266 BIC #BITO4 ,SR3 sSET 18 BIT ADDRESSING MODE IN SR3 
9928 046230 012767 170000 124116 MOV #170000 , KIPAR6 sSET KIPAR6 SO THAT BITS 18-21 SHOULD 
9929 sBE ASSERTED IF 22 BIT ADR WAS ENABLED 
9930 046236 012737 177777 140000 MOV #177777 ,8#140000 sTRY TO WRITE ADDR 17000000 VIA KIPARG6 
9931 sADDR O SHOULD = 177777. A TIME OUT 
9932 046244 022737 177777 000000 CMP #177777 ,a#0 sOR ADDR O = ZERO INDICATES AN ERROR 
9933 046252 001403 BEQ 4s sGO TO NEXT TEST IF ADDR 0=177777 
9934 046254 005067 131312 3$: CLR SRO sDISABLE MMU BEFORE ERROR. 
9935 sERROR! 18 BIT ADDR OPTION IS N.G. 
coat 046260 104002 ERROR +2 sMMU ERROR 
; 
9938 sTEST ADDRESS BITS 18 THRU 21 
338 : 
9941 046262 052767 000020 124226 4$: BIS #BITO4 , SR3 sENABLE 22 BIT ADDRESSING MODE 
9942 046270 012767 046332 131506 MOV #5$,4 sSET UP FOR NXM TRAP 
9943 046276 005067 131476 CLR 0 sCLEAR ADDRESS 0 
9944 046302 012767 010000 124044 MOV #10000 , KIPAR6 sTEST ADDRESS BIT 18 
9945 046310 012737 177777 140000 MOV #177777 ,8#140000 sWRITE ALL ONES TO ADDR 1000000 
9946 046316 005767 131456 TST te) sTEST ADDRESS 0. SHOULD = ZERO 
9947 046322 001403 BEQ S$ sBRANCH IF ADDRESS 0=0 
9948 046324 005067 131242 CLR SRO sDISABLE MMU BEFORE ERROR 
9949 046330 104002 ERROR +2 sMMU ERROR 
9950 sERROR! BIT 18 DID NOT ASSERT 
9951 046332 012737 046374 000004 S5$: MOV #6$ , 804 sSET UP FOR NXM TRAP 
9952 046340 005067 131434 CLR 0 sCLEAR ADDR O 
9953 046344 012767 020000 124002 MOV #20000 , KIPAR6 s;TEST ADDRESS BIT 19 
9954 046352 012737 177777 140000 MOV #177777 ,8%140000 sWRITE ALL ONES TO ADDR 2000000 
9955S 046360 005767 131414 TST 0 sTEST ADOR 0. SHOULD= ZERO 
9956 046364 001403 BEQ 6$ sBRANCH IF ADDRESS 0=0 
9957 046366 005067 131200 CLR SRO sDISABLE MMU BEFORE ERROR 
9958 046372 104002 ERROR +2 sMMU ERROR 
9959 sERROR! BIT 19 DID NOT ASSERT 
9960 046374 012737 046436 000004 6%: MOV #7$ , 804 sSET UP FOR NXM TRAP 
9961 046402 005067 131372 CLR te) s;CLEAR ADDR O 
9962 046406 012767 040000 123740 MOV #40000 , KIPAR6 sTEST ADDRESS BIT 20 
9963 046414 012737 177777 140000 MOV #177777 ,8%140000 sWRITE ALL ONES TO ADDR 4000000 
9964 046422 005767 131352 TST 0 sTEST ADDR 0. SHOULD =0 
9965 046426 001403 BEQ 7$ sBRANCH IF ADDRESS 0 =0 
9966 046430 005067 131136 CLR SRO ;DISABLE MMU BEFORE ERROR 
9967 046434 104002 ERROR +2 sMMU ERROR 
9968 sERROR! BIT 20 DID NOT ASSERT 
9969 046436 012737 046500 000004 73: MOV 98$ , 204 sSET UP FOR NXM 
9970 046444 005067 131330 CLR 0 sCLEAR ADDRESS 0 
9971 046450 012767 100000 123676 MOV #100000 , KIPAR6 sTEST ADDRESS BIT 21 
9972 046456 012737 177777 140000 MOV #177777 ,8#140000 sWRITE ALL ONES AT ADDR 10000000 
9973 046464 005767 131310 TST 0 sCHECK ADDRESS 0. SHOULD = 0 
9974 046470 001403 BEQ 8$ sBRANCH IF ADDR O = 0 
9975 046472 005067 131074 CLR SRO s;DISABLE MMU BEFORE ERROR 
9976 046476 104002 ERROR +2 sMMU ERROR 
9977 sERROR! ADDR BIT 21 DID NOT ASSERT 
9978 046500 005067 131066 8$: CLR SRO sDISABLE MMU 
9979 046504 005037 177766 CLR 00177766 sCLEAR CPU ERROR REGISTER 
9980 046510 012706 001000 MOV #@STBOT ,R6 sRESET STACK POINTER 





SE SEE SE EE 


046522 
046530 





013737 


012737 


012767 
012737 
012737 
005737 


013737 
013737 
005037 
005037 
004767 
012737 
012737 
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003014 


177572 
131226 
000004 


125252 
177572 


177572 
000333 


047330 
047276 


000333 


047414 
047362 
047446 
047500 
000076 
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000006 


003012 
003014 
000004 


000006 
123476 
172354 


123476 
172516 
177572 


000004 
000006 


177776 
172516 
177746 


177572 
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SEQ 0179 


6 EERE EESESEREEESES ES EREEE EERE SESE EEEEEEEEEEESESEEEEEEEEEEEEEEEE 


s(NEED 22 BITS OF MEMORY ADDRESSING) 


sTURN OFF MMU. 
sCLEAR THE CPU ERROR REGISTER 


sSAVE LOC 6 IN SLOCO1. 

sSET UP FOR TIMEOUT TRAP 

sSET UP FOR TIMEOUT TRAP 

sSET KER PARO FOR 1ST 4KW OF MEMORY. 
sSEf KER POR FOR 4KW R/W ACCESS. 
SET UP KERNEL PAGE ADDR REG 6 

sFOR HIGHEST 4K WORDS OF NON-I/0 
sFOR 2 MEG WORDS OF MEMORY. 

s;SET KER POR6 FOR 4KW R/W ACCESS. 
sENABLE 22 BIT ADDRESSING. 

s;TURN ON THE MMU. 

sATTEMPT TO ADDRESS LAST MEMORY ADDR. 


;eeeeeeeeeeeeeWILL TRAP TO 4 IF 2 MEG WORDS OF MEMORY NOT AVAILABLE seceeeces 


1$: 


2$: 


3$: 


4$: 


CLR @@SRO 

CLR CPEREG 

MOV 994 , 8@SLOCOO 
MOV 996 ,8@SLOCO1 
MOV @NXMTRP , 804 
MOV $340,306 

CLR @PKIPARO 

MOV #77406 , KIPDRO 
MOV #177500 , APKIPARG 
MOV #77406 , KIPDR6 
MOV #20, 89SR3 

MOV #1,99SRO 

TST 80157776 

MOV @@SLOCOO, a#4 
MOV @9SLOCO1. a6 
CLR 80177572 

CLR OF LAG 

JSR PC, MMU 

MOV #10000 ,8#177776 
MOV #20 ,89172516 
BIS #1000 , 80177746 
MOV #PARVAS ,R4 
MOV @VIR3,R1 

MOV (R4)+,80172246 
MOV #1,80177572 
MOV #125252, -(SP) 
MTPI a0(Ri) 

MFPI aCRi)-+ 

CMP #125252,(SP)-+ 
BEQ 2s 

CLR 90177572 
ERROR + 

CLR 8177572 

CMP (R4), 8333 

BNE i$ 

MOV @PARVA2 ,R4 
MOV @PARAD2,R1 
MOV CR4)+,A(R1)+ 
CMP (R1), #333 

BNE 3$ 

MOV @MODE2 ,R4 

MOV #VIR2,R1 

MOV @PARVA3,R2 
MOV @VIR3,R3 

JSR PC,1S14 





sRESTORE LOC 4 

sRESTORE LOC 6 

sMMU OFF 

;CLEAR MMU ABORT FLAG 

sINIT MMU 

sINIT PSW 

sINIT MMR3 

;TURN CACHE TEST FEATURE ON 
;SET POINTERS TO INIT TABLES 


3 ‘ 

;INIT SIPAR3 

;TURN MMU ON 

;PUSH BACKGROUND DATA ON TO THE STACK 
;WRITE DATA TO PHYSICAL ADDRESS 

;WRITE DATA AT PHYSICAL ADDRESS TO STACK 
;IS DATA EQUAL TO EXPECTED 

;YES GO ON 

;TURN MMU OFF 


sMMU ERROR 
sNOT EQUAL GO TO ERROR 


;TURN MMU OFF 

sARE WE DONE 

sNO GO TO 1$ 

sSET POINTERS TO PAR INIT TABLES 


; 
sINIT PARS 

sARE WE DONE 

sNO, GO TO 3$ 

sSET POINTERS TO ADDER PART B TABLES 
‘ 
; 


3 
sWRITE DATA TO PHYSICAL ADDRESS AND THEN 
sCHECK IF DATA AT PHYSICAL ADDRESS IS 


sSAVE LOC 4 IN SLOCOO. 
sEQUAL TO EXPECTED AND IF NOT DETERMINE 


—— 
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10046 
10047 047036 
10048 
10049 047042 
10070 047130 





021127 


000167 


012437 
012737 


000111 


000027 
177776 
052525 
000001 
177572 


000020 
000040 


172516 
000004 


000376 


177776 
00000 

052525 
177572 


rw 


052525 


000000 
125252 


177572 


177572 
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SEQ 0180 
sIF IT IS AN ADDER ERROR OR A MEMORY ERROR 
CMP CR1), #111 ae. DONE ALL THE 22 BIT MODE I SPACE 
F 
BNE 4$ sNO GO TO 4$ 
INC R1 sPOINT TO 22 BIT MODE D SPACE CASE 
INC R1 3 
INC R4 F 
INC R4 3 
172516 MOV $27 , 80172516 sINIT MMR3 
MOV (R4)+,80177776 ;INIT PSW 
MOV #52525, -(SP) sPUSH DATA ONTO STACK 
177572 MOV #1,80177572 sTURN MMU ON 
MTPD aC Ri)-« sWRITE DATA TO PHYSICAL ADDRESS 
CLR 80177572 3 TURN MMU OFF 
172516 MOV #20 ,80172516 sINIT MMR3 
JSR PC,114 ;CHECK IF DATA AT PHYSICAL ADDRESS IS EQUAL 
370 EXPECTED AND IF NOT DETERMINE IF IT 
3IS AN ADDER ERROR OR A MEMORY ERROR 
CLR 80172516 sINIT MMR3 FOR 18 BIT MODE 
JSR PC,1TS14 sWRITE DATA TO PHYSICAL ADDRESS AND THEN 
;CHECK IF DATA AT PHYSICAL ADDRESS IS 
sEQUAL TO EXPECTED AND IF NOT DETERMINE IF 
;IT IS AN ADDER ERROR OR A MEMORY ERROR 
JMP T14FIN 


3 
sROUTINE TO WRITE DATA TO PHYSICAL ADDRESS AND TO CHECK IF DATA AT 
sPHYSICAL ADDRESS IS EQUAL TO EXPECTED AND IF NOT DETERMINE IF IT IS 


a ADDER ERROR OR A MEMORY ERROR 


7$14: MOV (R4)+,80177776 ;INIT PSW 
177572 MOV #1,80177572 3; TURN MMU ON 
MOV #52525, -(SP) sWRITE DATA ONTO STACK 
MTPI a(R1i)-« sWRITE DATA TO PHYSICAL ADDRESS VIA STACK 
CLR 80177572 ;TURN MMU OFF 
177776 714: MOV #10000 ,8#177776 sINIT PSW 
MOV CR2)+,80172246 sINIT SIPAR3 
177572 MOV #1,80177572 ;TURN MMU ON 
MFPI a0(R3) ;D0 RELOCATION 
CMP #52525 ,(SP)- 31S DATA EQUAL TO EXPECTED 
BEQ 2s ;YES GO ON 
MFPI a0(R3) sWHAT TYPE OF ERROR IS IT 
CMP #125252,(SP)+ 3 
BEQ 1$ 3 
ERROR 2 ;MMU ERROR 
;IT IS A MEMORY ERROR 
BR 2s 3 
1$: ERROR 2 ;MMU ERROR 
:IT IS AN ADDER ERROR 
2s: CLR 80177572 3TURN MMU OFF 
INC R3 3 
INC R3 3 
RTS PC ;RETURN 


; 
sNON-EXISTANT MEMORY TRAP ROUTINE 


3 
NXMTRP: CLR @¢SRO sTURN OFF MMU. 
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10103 047250 012716 047532 MOV @T14FIN, (SP) sSET UP STACK on RETURN ADDR. 
10104 047254 013737 003012 000004 MOV 89SLOCO00 , 804 sRESTORE LOC 4 
10105 047262 013737 003014 000006 MOV @#SLOCO1 , 8%6 sRESTORE LOC 6 
10106 047270 005037 177766 CLR 80177766 sCLEAR TIME OUT INDICATION FROM 
10107 ;CPU ERROR REGISTER. 
reaped 047274 000006 RTT sRETURN FROM TRAP; GO TO NEXT TEST. | 

; 
eeaat s;ADDER TEST PART B TABLES 
; 
10112 047276 177646 PARAD2: .WORD 177646 
10113 047300 177650 -WORD 177650 
10114 047302 177652 -WORD 177652 
10115 047304 172240 -WORD 172240 
10116 047306 177640 WORD 177640 
10117 047310 177642 WORD 177642 
10118 047312 172244 WORD 172244 
10119 047314 177644 WORD 177644 
10120 047316 172252 WORD 172252 
10121 047320 172352 WORD 172352 
10122 047322 177662 WORD 177662 
10123 047324 172242 WORD 172242 
10124 047326 000333 333 
10125 047330 157700 PARVA2: .WORD 157700 
10126 047332 137700 137700 
10127 047334 077700 WORD 077700 
10128 047336 176777 WORD 176777 
10129 047340 007600 WORD 007600 
10130 047342 167700 WORD 167700 
10131 047344 175700 WORD 175700 
10132 047346 177425 WORD 177425 
10133 047350 177220 WORD 177220 
10134 047352 173700 -WORD 173700 
10135 047354 176700 WORD 176700 
10136 047356 077400 WORD 077400 
10137 047360 000333 -WORD 333 
10138 047362 070000 VIR2: -WORD 070000 
10139 047364 110000 -WORD 110000 
10140 047366 130000 WORD 130000 
10141 047370 000000 WORD 
10142 047372 000000 WORD 000000 
10143 047374 030000 WORD 030000 
10144 047376 050000 -WORD 050000 
10145 047400 052524 WORD 052524 
10146 047402 136000 WORD 136000 
10147 047404 130000 -WORD 130000 
10148 047406 000111 WORD 111 
10149 047410 030000 WORD 030000 
10150 047412 030000 -WORD 030000 
10151 047414 030000 MODE2: .WORD 030000 
10152 047416 030000 -WORD 030000 
10153 047420 030000 -WORD 030000 
10154 047422 010000 WORD 010000 
10155 047424 030000 WORD 030000 
10156 047426 030000 WORD 030000 
10157 047430 010000 WORD 010000 
10158 047432 030000 WORD 030000 
| 10159 047434 010000 WORD 010000 
= | 


(RR RS (SE one Se SEE EER SS 














N14 
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30200 
10216 047576 005737 157776 


10220 047604 022767 000040 


10223 047616 022726 047602 


130154 





PARVAS: 


VIR3: 


SSSSSSSSSSSSSSSSSS555555555855 
3 


i 
T14FIN: 


; TEST NON-EXISTANT MEMORY TRAP 
ss SPSSSSSSSSSHESESSSSESSSERESESESSE SEES ESSE ESSERE ESESEseeEEeeeE 
sWE ARE ASSUMING THAT THE NON-EXISTANT MEMORY TIME OUT 
sFEATURE IS WORKING SINCE WE CAN’T GUARANTEE THAT 
sTHE SYSTEM BEING TESTED HAS A NON-EXISTANT MEMORY LOCATION. 
sAT THIS TIME WE WILL ATTEMPT TO TEST THE NXM FUNCTION 

JSR PC MMU sINIT THE MMU 

MOV 0177400, @OKIPARG sSET KIPAR6 TO RELOCATE TO HIGHEST MEMORY 

MOV 4,SLOCOO sSAVE VECTOR 

MOV 23,4 sLOAD VEC WITH ADDR OF TRAP HANDLER 

BIS @BIT00, SRO sTURN ON THE MMU 

CPEREG sCLEAR THE CPU ERROR REGISTER 

CLR PS sCLEAR THE PSW 

TST 80157776 sACCESS PHYSICAL ADOR 17757776 
1%: BR NXMF IN sIF IT DOESN'T TRAP WE'LL ASSUME 

THAT THIS IA A 4 MEGABYTE SYSTEM 
sAND GO TO THE NEXT TEST 
2s: i Sees sIS CPU ERROR REGISTER CORRECT? 
; 

ERROR +2 sy ERROR 
4 @18.(SP)- sIS CONTENTS OF STACK CORRECT? 
ae 








SEQ o1s2_ =i! 


-—— 
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012737 
012704 
004767 


004767 


005037 
012737 
012704 
004767 


004767 


005037 
012704 
004767 


012704 
004767 


012704 
004767 


000167 


MEMORY MANAGEMENT TESTS 
| 
‘ 


000136 


177776 
170000 
177600 
000044 


000110 


177776 
172300 
000152 


172200 
000142 


177600 
000132 


000154 





130130 


177776 


177776 


Bis 
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+2 

#0, (SP )+ 
NXMF IN 
*2 

SRO 
CPEREG 
SLOCOO,4 


PAGE WRITTEN BIT TEST 


#172300 ,R4 
PC,TSiS 


PC,T15 


#50000 , 86177776 
#172200,R4 
PC,7S15 


PC,T15 


90177776 
#170000 , 80177776 
#177600,R4 
PC,TS15 


Pc,1715 


90177776 
#172300,R4 
PC,T1SA 


#172200,R4 
PC,T15A 


#177600,R4 
PC,T1SA 


TISFIN 





SEQ 0183 


ERROR 
sIS CONTENTS OF STACK CORRECT? 
i 
sMMU ERROR 


s;TURN OFF THE MMU 
sCLEAR THE CPU ERROR REGISTER 
sRESTORE THE VECTOR 


sMMU OFF 

;CLEAR MMU ABORT FLAG 

sINIT MMU 

;INIT PSW 

;SET POINTER TO KPDRS 

300 RELOCATIONS AND TEST KIPDRS FOR 
sPAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO ERROR 

300 RELOCATIONS AND TEST KDPDORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

;INIT PSW 

:SET POINTER TO SPDRS 

:D0 RELOCATIONS AND TEST SIPDRS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

:D0 RELOCATIONS AND TEST SOPDRS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

sINIT PSW 

:SET POINTER TO UPDRS 

3:00 RELOCATIONS AND TEST UIPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO ERROR 

3:00 RELOCATIONS AND TEST UDPDRS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

sSET POINTER TO KPDRS 

sEXPLICITLY WRITE TO KPDRS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 
sSET POINTER TO SPDRS 

sEXPLICITLY WRITE TO SPORS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 
;SET POINTER TO UPDRS 

sEXPLICITLY WRITE TO UPDRS AND TEST 
3sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 


: 
sROUTINE TO DO RELOCATIONS AND TEST IPORS FOR PAGE WRITTEN BIT BEING 


3SET AND IF NOT SET REPORT AN ERROR 
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10286 050022 012737 000020 
10287 050030 012737 000001 


10289 050040 005037 177572 
10290 050044 022427 077506 


10294 050054 062701 020000 
10295 050060 020127 160000 


10303 050072 062704 000002 
10304 050076 012737 000027 
10305 050104 012737 000001 


10308 050116 005037 177572 
10309 050122 022427 077506 


10313 050132 062701 020000 
10314 050136 020127 160000 


10323 050152 022427 077406 


10328 050164 020227 000020 


10337 050174 005037 177572 
10338 050200 005037 003030 
10339 050204 012704 050524 
10340 050210 004767 067336 
10341 050214 012737 000037 


' 

| 

| 

COKDADO KDJ11-B CLUSTER DIAG. 
j 10342 050222 005037 177776 
' 


‘ 
-_-—--- 
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a 
TSiS: CLR Ri sSET POINTER TO VIRTUAL ADDRESS 
172516 MOV #20 ,80172516 sINIT MMRS 
177572 18%: MOV #1,90177572 ;TURN MMU ON 
MOV (R1),C(R1) sD0 A RELOCATION 
~ CLR 90177572 sTURN MMU OFF 
CMP (R4)+, #77506 sIS DATA EQUAL TO EXPECTED 
BEQ 2s 0K GO ON 
ERROR +2 sMMU_ ERROR 
;NO GO TO ERROR 
2s: ADD #20000 ,R1 sPOINT TO NEXT VIRTUAL ADDRESS 
CMP R1, #160000 sARE WE DONE 
BNE 1$ sNO GO TO i$ 
RTS PC sRETURN 


; 
sROUTINE TO DO RELOCATIONS AND TEST DPDRS FOR PAGE WRITTEN BIT BEING SET 
sAND IF NOT SET REPORT AN ERROR 


é 
TiS: CLR Ri sSET POINTER TO VIRTUAL ADDRESS 
ADD #2,R4 sPOINT TO FIRST DPOR 
172516 MOV $27 ,80172516 INIT 3 
177572 1%: MOV #1,80177S572 ;TURN MMU ON 
MOV (R1),-CSP) sPUSH DATA ONTO THE STACK 
MTPD (R1) :00 A RELOCATION 
CLR 90177572 sTURN MMU OFF 
CMP (R4)+, #77506 sIS DATA EQUAL TO EXPECTED 
BEQ 2s :;0K GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR 
2s: ADD #20000 ,R1 sPOINT TO NEXT VIRTUAL ADDRESS 
CMP R1, #160000 sARE WE DONE 
BNE 1$ sNO GO TO 1$ 
RTS PC sRETURN 


; 
sROUTINE TO EXPLICITLY WRITE TO PORS AND TEST PAGE WRITTEN BIT FOR BEING 
;CLEARED AND IF NOT CLEARED REPORT AN ERROR 


H 
T1SA: CLR Re ;CLEAR COUNTER 
1$: MOV (R4),(R4) :00 AN EXPLICIT WRITE TO POR 
CMP (R4)+, 077406 sIS DATA EQUAL TO EXPECTED 
BEQ es 30K GO ON 
ERROR +2 ;MMU ERROR 
sNO GO TO ERROR 
2s: INC R2 sINCREMENT POINTER 
CMP R2,920 sARE WE DONE 
BNE 1$ sNO GO TO 1$ 
RTS PC sRETURN 
TISFIN: 
; 
TSMM16: 
; TEST CSM (CALL SUPERVISOR MODE) 
CLR 80177572 3;MMU OFF 
CLR aeFLAG ;CLEAR MMU ABORT FLAG 
MOV @TMM16E ,R4 sINIT R4 
JSR PC, MMU sINIT MMU 
172516 MOV 037 ,80172516 sENABLE CSM INSTRUCTION 
CLR 90177776 3SET PS TO KER MODE 











-—--—— 
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10343 050226 013746 000010 
10344 050232 013746 000014 
10345 050236 013746 000016 
10346 050242 012737 050414 
10347 050250 012737 000137 
10348 050256 012737 050534 
10349 050264 007014 

10350 050266 104002 


10352 050270 012737 050444 
10353 050276 012737 000027 
10354 050304 012737 140000 
10355 050312 007014 
10356 050314 104002 


10358 050316 012737 050474 
10359 050324 012737 000027 
10360 050332 005037 177776 
10361 050336 007014 
10362 050340 104002 


10364 050342 012737 000037 
10365 050350 012737 040000 
10366 050356 012706 000700 
10367 050362 012737 140000 
10368 050370 012706 000600 
10369 050374 012737 000014 
10370 050402 000277 
10371 050404 007024 
10372 050406 104002 


10374 050410 000167 000504 


10377 050414 042737 007777 
000000 


10384 050440 000167 177624 
10385 050444 042737 007777 
10386 050452 022737 030000 


10389 
10390 050464 005726 
10391 050466 005726 


10392 050470 000167 177622 
10393 050474 042737 007777 
10394 050502 022737 000000 
10395 050510 001401 
10396 050512 104002 


10398 050514 005726 
10399 050516 005726 
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000010 
000014 
000016 


000010 
172516 
177776 


000010 
172516 


172516 
177776 


177776 
000010 


177776 
177776 


177776 
177776 


177776 
177776 


TSM16A: 


TSM16B: 


TSM16C: 


TSM16D: 


3 
3 
TMM16B: 


1$: 


TMM16C: 


1$: 


TMM16D: 


1$: 


8010,-(CSP) sSAVE VECTORS 
8014,-C(SP) . 
8016 ,-(SP) ° 
@TMM16B , 8010 sSETUP NEW VECTORS 
0137 ,a014 F 
#TMM16A ,8016 3 
7014 ; TEST INSTRUCTION 
+2 ;MMU ERROR 
:GO TO ERROR IF NOT TRAPPED 
#@TMM16C ,8#10 ;SETUP NEW VECTOR 
#27 ,80172516 sDISABLE CSM INSTRUCTION 
#140000 , 8177776 sSET PS TO USER MODE 
7014 ; TEST INSTRUCTION 
+2 ;MMU ERROR 
;GO TO ERROR IF NOT TRAPPED 
#TMM16D ,8#10 ;SETUP NEW VECTOR 
#27 ,80172516 sDISABLE CSM INSTRUCTION 
80177776 sSET PS TO KER MODE 
7014 ; TEST INSTRUCTION 
“2 ;MMU ERROR 
;GO TO ERROR IF NOT TRAPPED 
$37 ,8#172516 sENABLE CSM INSTRUCTION 
#40000 , 8#177776 ;SET PS TO SUP MODE 
#700 ,R6 sINIT SUP SP 
#140000 , 80177776 ;SET PS TO USER MODE 
#600 ,R6 sINIT USER SP 
#14 ,9%10 ;SETUP NEW VECTOR 
;SET ALL CC BITS 
7024 3; TEST INSTRUCTION 
+2 ;MMU ERROR 
;GO TO ERROR IF NOT TRAPPED 
TM16A 
#7777 , 80177776 ;CLEAR UNWANTED BITS 
#0 ,80177776 :IS PS CORRECT 
1$ ;YES GO ON 
+2 ;MMU ERROR 
;NO GO TO ERROR 
(SP )-+ ;CLEAN UP STACK 
(SP )+« 3 
TSM16A ;CONTINUE TESTING 
#7777 , 80177776 ;CLEAR UNWANTED BITS 
#30000 , 84177776 3IS PS CORRECT 
1$ ;YES GO ON 
2 ;MMU ERROR 
sNO GO TO ERROR 
(SP )-+ ;CLEAN UP STACK 
(SP )+ ; 
TSM16B sCONTINUE TESTING 
#7777 ,@0177776 ;CLEAR UNWANTED BITS 
#0 ,9#177776 ;IS PS CORRECT 
i$ ;YES GO ON 
+2 ;MMU ERROR 
; sNO GO TO ERROR 
CSP )- ;CLEAN UP STACK 
(SP )-+ ; 


SEQ 0185 
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SEQ 0186 


10400 050520 000167 177616 JMP TSM16C sCONTINUE TESTING 
10401 050524 156430 TMM16E: .WORD 156430 ;_ TEST LOCATION 
10402 050526 104002 TMM16F: ERROR +2 ;MMU_ ERROR 
10403 :GO TO ERROR IF DIDN'T ABORT 
10404 050530 000167 000364 TM16A 
10405 050534 022737 070017 177776 ‘TMM16A: CMP #70017 ,80177776 IS PS CORRECT 
10406 050542 001401 BEQ 1$ sYES GO ON 
10407 050544 104002 ERROR +2 sMMU ERROR 
10408 ;NO GO TO ERROR 
10409 050546 020627 000572 1$: CMP R6,#572 sIS SP CORRECT 
10410 050552 001401 BEQ 2$ ;YES GO ON 
10411 050554 104002 ERROR +2 sMMU ERROR 
10412 sNO GO TO ERROR 
10413 050556 020427 050526 2s: CMP R4,@TMM16E+2 sIS R4 CORRECT 
10414 050562 001401 BEQ 3$ ;YES GO ON 
10415 050564 104002 ERROR +2 MMU ERROR 
10416 sNO GO TO ERROR 
10417 050566 023727 050524 156430 3%: CMP OeTMM16E , #156430 sIS TEST LOCATION OK 
10418 050574 001401 BEQ 4s sYES GO ON 
10419 050576 104002 ERROR +2 sMMU ERROR 
10420 sNO GO TO ERROR 
10421 050600 022627 156430 4$: CMP CSP )+, #156430 sIS STACK CORRECT 
10422 050604 001401 BEQ S$ ;YES GO ON 
10423 050606 104002 ERROR +2 sMMU ERROR 
10424 sNO GO TO ERROR 
10425 050610 022627 050406 S$: CMP (SP )+,#TSM16D sIS STACK CORRECT 
10426 050614 001401 BEQ 6$ sYES GO ON 
10427 050616 104002 ERROR +2 sMMU ERROR 
10428 sNO GO TO ERROR 
10429 050620 022627 140000 6$: CMP (SP )+, #140000 sIS STACK CORRECT 
10430 050624 001401 BEQ 7$ sYES GO ON 
10431 050626 104002 ERROR +2 sMMU ERROR 
10432 ;NO GO TO ERROR 
10433 050630 012706 000700 7$: MOV #700 ,R6 sRESTORE SUP SP 
10434 050634 012737 140000 177776 MOV #140000 ,8%177776 ;SET PS TO USER MODE 
10435 050642 020627 000600 CMP R6, #600 sIS USER SP CORRECT 
10436 050646 001401 BEQ 8$ ;YES GO ON 
10437 050650 104002 ERROR +2 s;MMU ERROR 
10438 +NO GO TO ERROR 
10439 050652 012767 077400 121320 8$: MOV #77400, SIPDRO sSETUP SIPDRO TO ABORT 
10440 050660 012737 050526 000016 MOV @TMM16F , #16 sSETUP VECTOR 
10441 050666 012737 000001 003030 MOV #1,30FLAG sSETUP FLAG FOR AN ABORT 
10442 050674 012737 000001 177572 MOV #1,80177572 ;TURN MMU ON 
10443 050702 010701 MOV R7,R1 :SAVE OLD PC 
10444 050704 007014 -WORD 7014 ; TEST INSTRUCTION 
10445 050706 022737 000000 003030 CMP #0, 2@F LAG ;DID AN ABORT OCCUR 
10446 050714 001401 BEQ ;YES GO ON 
10447 050716 104002 ERROR +2 sMMU ERROR 
10448 sNO GO TO ERROR 
10449 050720 023701 003046 9$: CMP @eSAVMR2 ,R1 sIS MMR2 CORRECT 
10450 050724 001401 BEQ 10$ ;YES GO ON 
10451 050726 104002 ERROR +2 sMMU ERROR 
10452 sNO GO TO ERROR 
10453 050730 023727 003042 100041 10%: CMP @eSAVMRO, #100041 3IS MMRO CORRECT 
10454 050736 001401 BEQ 11$ ;YES GO ON 
10455 050740 104002 ERROR +2 sMMU ERROR 

sNO GO TO ERROR 
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10457 050742 
10458 050750 


10467 051016 


10469 051020 
10470 051024 
10471 051032 
10472 051034 


10474 051036 
10475 051042 
10476 051044 


10478 051046 
10479 051052 
10480 051054 


10482 051056 
10483 051062 
10484 051064 


10436 051066 
10487 051072 
10488 051074 


10490 051076 
10491 051102 
10492 051110 
10493 051114 
10494 951116 


10496 051120 
10497 051124 
10498 051130 
10499 051134 


10522 051140 


012737 
012737 
012706 
012737 
012706 
012737 
012737 
000277 
007027 
045712 
104002 


000167 
022737 
001401 
104002 


020627 
001401 
104002 


022627 
001401 
104002 


022627 
001401 
104002 


022627 
001401 
104002 


012706 
012737 
020627 
001401 
104002 


005037 
012637 
012637 
012637 


000014 
051024 


000074 
070017 


000572 


045712 


051016 


140000 


000700 
140000 
000600 


177776 
000016 
000014 
000010 
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172516 
177776 


177776 


000010 
000016 


177776 


177776 


SEQ 0187 
11$: MOV #37 ,80172516 sENABLE CSM 
MOV #40000 , 80177776 sSET PSW TO SUP 
MOV #700 ,R6 sSETUP SUP SP 
MOV #140000 , 80177776 ;SET PSW TO USE 
MOV #600 , R6 sSETUP USE SP 
MOV #14,8010 ;SETUP NEW VECTOR 
MOV #TS16,8016 ;SETUP NEW VECTOR 
scc sSET ALL CC BITS 
-WORD 7027 sTEST INSTRUCTION 
-WORD 45712 
TS16A: ERROR +2 ;MMU ERROR 
;GO TO ERROR IF DIDN'T TRAP 
JMP TM16A 
TS16: CMP #70017 , 8177776 sIS PSW CORRECT 
BEQ 200$ sYES GO ON 
ERROR +2 ;MMU ERROR 
;NO GO TO ERROR 
200$: CMP R6,#572 sIS SP CORRECT 
BEQ 201$ ;YES GO ON 
ERROR +2 sMMU ERROR 


sNO GO TO ERROR 


201$: CMP (SP)+,#45712 3IS STACK CORRECT 
BEQ 202$ ;YES GO ON 
ERROR +2 ;MMU ERROR 
sNO GO TO ERROR 
202$: CMP (SP)+,#TS16A sIS STACK CORRECT 
BEQ 203$ sYES GO ON 
ERROR +2 ;MMU ERROR 
sNO GO TO ERROR 
203$: CMP (SP )+, #140000 sIS STACK CORRECT 
BEQ 204$ ;YES GO ON 
ERROR +2 ;MMU ERROR 
sNO GO TO ERROR 
204$: MOV #700 ,R6 sRESTORE SUP SP 
MOV #140000 ,8#177776 sSET PSW TO USER MODE 
CMP R6, #600 sIS USER SP CORRECT 
BEQ TM16A ;YES GO ON 
ERROR +2 sMMU ERROR 
sNO GO TO ERROR 
TMi6A: CLR 80177776 ;SET PS TO KER MODE 
MOV (SP)+,a#16 sRESTORE VECTORS 
MOV (SP)+,9#14 : 
MOV (SP )+,a¢10 3 


SEEKERS E EEE EEE EEE EERE EEE EEEEEEEEEEEEEEEEEEEEESSEESESEEEEEE SEER ERE RESEEEES 
-SBTTL FLOATING POINT TESTS 

sR EE EE EEE EEE EEE EEE EEEEEEEEEEEEEEEEEEEEEESESESSSESSSEEEEEECERESESESESES 
; , BEGIN FLOATING POINT TESTING 

fEEREEEEEEEE ESSERE E EEE SEES EEE EEE EE EEESESEEEERE CEES SESETECEREE SESE EE EESEES 
{EEE ERE ESSE EEE ER EE EEE ESSE ES EEEEEEEEESSESEEEEEESESESSEEEE CESSES SESSESEES 


MBT1i: 


; FPP REGISTER BIT TESTS 

fA EEE EERE SEE EE EERE E EERE EEE EE REESE EERES ESE REESE EERE SEES 
;RS=FPP POINTER 

3;R1=TEMPORARY COUNTER 

sR2=POINTER TO EXPECTED DATA 
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SEQ 0188 


FLOATING POINT TESTS 


10526 051140 
10527 051142 
10528 051144 
10529 051150 
10530 051154 
10531 051156 
10532 051160 
10533 051162 
10534 051164 
10535 051166 
10536 051170 
10537 051172 
10538 051174 


10540 051176 
10541 051200 
10542 051204 
10543 051210 
10544 051212 
10545 051216 
10546 051222 
10547 051226 
10548 051232 
10549 051236 


10569 051350 
10570 051352 
10571 051360 
10572 051362 
10573 051366 


10576 051370 
10577 051370 
10578 051372 
10579 051374 
10580 051376 


‘ 
=> —-- 


010501 
070127 
062701 
000111 
172467 
174067 
000167 
172567 
174167 
000167 
172667 
174267 
000167 
172767 
174367 
000167 
172467 
174004 
172404 
000167 
172467 
174005 
172405 
000167 


001413 
020527 


¥ 
| 
COKDADO KDv11-B8 CLUSTER DIAG. 
| 
1 


003100 
003110 


000014 
051212 


131662 


131602 


177710 
131566 


177674 
131552 
131544 
131536 
131530 
140132 


000004 





131560 
131552 
131544 
131536 


sR3=POINTER TO RECEIVED DATA 
3R4=O0DD/EVEN COUNTER 


SETD 
MBT2: CLR 


MBT2A: 


BTGO: 


MACO: LOD 
MACOA: STD 
JMP 
MAC1: LOD 
JMP 
MAC2: LOD 
JMP 
MAC3: LODO 


MAC4: LOD 
MACS: LOD 


MACE : CMP 


BTER: 


;NOW VERIFY THE 
MBT8: 
CLR 


TST 
BEQ 
CMP 


RS 
@BTEXP ,R2 
#BTRES ,R3 


BTEXP,ACO 
ACO,BTRES 
MACE 
BTEXP,AC1 
AC1,BTRES 
MACE 
BTEXP ,AC2 
AC2,BTRES 
MACE 
BTEXP ,ACS 
AC3,BTRES 
MACE 
BTEXP,ACO 
ACO, AC4 
AC4,ACO 
MACOA 
BTEXP,ACO 


BTEXP,,BTRES 
BTER 


;SETUP FPP ACC POINTER 
sPOINT TO TEST DATA 

sPOINT TO RECEIVED DATA 
;SETUP FPP REGISTER VALUES 
;CLEAR EXPECTED VALUE 


;SETUP FPP REGISTER VALUES 


;GET FPP AC NUMBER INTO R1 
sALLOW 10 LOCATIONS FOR OPERATION 
;SETUP JMP LOCATION 


;LOAD TEST DATA INTO TEST REGISTER 
;SAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST REGISTER 
:SAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST REGISTER 
sSAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST REGISTER 
;SAVE TEST RESULT 

;GET OUT 


sLOAD TEST DATA INTO TEST REGISTER 
sSAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST XFER REGISTER 
;LOAD TEST REGISTER 

sSTORE RESULT INTO XFER FPP REGISTER 
sGET OUT 


;BRANCH IF REGISTER ERROR 


BTEXP+2,BTRES+2 


BTER 


BTEXP+4,BTRES+4 
BTER 
BTEXP+6,BTRES+6 


MBT8 
QeDETFPA 


+3 


;GOO0D RESULT 

s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:;FPP AC LOADED INCORRECTLY 


OTHER REGISTERS REMAINED ZERO 





;CLEAR TEMPORARY COUNTER 

;SEE IF RO UNDER TEST 

;BRANCH IF TEST ING RO 

;SEE IF TESTING FPP REGISTER >R4 











COKDADO KDJ11-B8 CLUSTER DIAG. 


051402 
051404 
051410 
051414 
051416 
051422 


051424 
051430 
051432 
051436 
051442 
051444 
051450 


051452 
051456 
051460 
051464 
051470 
051472 
051476 


051500 
051504 
051506 
051512 
051516 
051520 
051524 


TESTS 


100010 
174067 
004767 
001403 
004737 
104003 


020527 
001410 
174167 
004767 
001403 
004737 
104003 


020527 
001410 
174267 
004767 
001403 
004737 
104003 


020527 
001410 
174367 
004767 
001403 
004737 
104003 


020527 
001411 
172404 
174067 
004767 
001403 
004737 
104003 


020527 
001411 
172405 
174067 


131500 
000246 


140132 


000001 


131452 
000220 


140132 
000002 
131424 
000172 
140132 
000003 
131376 
000144 
140132 
000004 
131346 
000114 
140132 
000005 
131316 


140132 


177776 


000002 
000004 


| 
FLOATING POINT 
000064 
| 
' 


MACRO YOS.02 
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MBT8A: 


MBT8B : 


MBT8C: 


MBT8D: 


MBT8E: 


MBT SF : 


MBTSFG: 


MBT8A 
ACO,BTRES 
R7,BTTST 
MBT8A 
@eDETFPA 


+3 


RS, #1 
MBT8B 
AC1,BTRES 
R7,BTTST 
MB 


aeDETFPA 


+ 


RS, #4 
MBT8E 
AC4,ACO 
ACO, BTRES 
R7,BTTST 
MBT8E 
aeDETFPA 
+3 


RS,#S 
MBT8F 
ACS, ACO 
ACO,BTRES 


@eDETFPA 
+3 


R4 


#177776,R4 


MBT8FG 


(R2) 
2(R2) 
4(R2) 





FPP 
;BAD 


;FPP 
;BAD 


3FPP 
;BAD 


:FPP 
;BAD 


3;FPP 
;BAD 


3;FPP 
;BAD 


sSKIP RO TESTING 

sSAVE AC TEST RESULT 

s;VERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF EXPECTED RESULT 
s;DETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


ACO 


sSEE IF Ri UNDER TEST 

sBRANCH IF R1 UNDER TEST 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
s;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


AC1i 


;SEE IF TESTING FPP REGISTER AC2 
sBRANCH IF R2 UNDER TEST 

sSAVE AC TEST RESULT 

s;VERIFY THAT CONTENTS REMAINED ZERO 
s;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


AC2 


sSEE IF R3 UNDER TEST 

sBRANCH IF R3 UNDER TEST 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF GOOD 

s;DETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


AC3 


sSEE IF R4 UNDER TEST 

s;BRANCH IF R4 UNDER TEST 

sMOVE REGISTER CONTENT 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


AC4 


sSEE IF RO UNDER TEST 

sBRANCH IF RO UNDER TEST 

sMOVE REGISTER CONTENTS 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 


ERROR 


ACS 





sINCREMENT PATTERN COUNTER 


;_ TEST FOR ODD /EVEN 

sBRANCH IF EVEN 

sSET CARRY FOR TEST PATTERN SHIFT 
sROTATE LSW OF TEST PATTERN 
sROTATE 2 WORD OF TEST PATTERN 
sROTATE 3 WORD OF TEST PATTERN 


SEQ 0189 





COKDADO KDJ11-B CLUSTER DIAG. 


10639 051640 
10640 051642 


10642 051646 
10643 051650 
10644 051654 
10645 051656 


10648 051662 
10649 051666 
10650 051670 
10651 051674 
10652 051676 
10653 051702 
10654 051704 
10655 051710 


10660 051712 


10674 051712 


10679 051712 
10680 051714 
10681 051716 
10682 051720 
10683 051724 
10684 051730 
10685 051736 
10686 051744 


FLOATING POINT 
10638 051634 
10687 051752 

| 
\ 
| 


TESTS 


006162 
103402 
000167 


005205 
020527 


100016 
000167 


172467 
174067 


. 000006 


177314 


000006 
177272 


131222 
131216 
131212 
131206 


54 
131114 


000240 
131102 


131142 
131136 
131132 
131126 





MBT8I: INC 


T 
BITSTE: RTS 


MBTE: 


3 
MFACU: 


115 
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sROTATE 4 WORD OF TEST PATTERN 
;JUMP IF THROUGH WITH TEST PATTERN 
sCONTINUE WITH NEW TEST PATTERN 


;GO TO NEXT REGISTER TEST 

sSEE IF THROUGH TESTING 

;JUMP IF THROUGH 

sCONTINUE TESTING WITH NEW PATTERN 


;VERIFY CONTENTS AS ZERO 
sEXIT IF NOT ZERO 

s;VERIFY CONTENTS AS ZERO 
sEXIT IF NOT ZERO 

;VERIFY CONTENTS AS ZERO 
sEXIT IF NOT ZERO 

;VERIFY CONTENTS AS ZERO 
3GO BACK TO CALLING ROUTINE 


; TEST UNIQUENESS OF FPP ACCUMULATORS 
HE Be hahadadadechahahthshshchchceeuthtedhshicddie hhh bbbibptrreeLLLLLLLLTct eit) 


sTHIS TEST LOADS UNIQUE PATTERNS INTO EACH ACCUMULATOR SIMULTANEOUSLY. 


sR2=POINTER TO EXPECTED DATA 
sR3=POINTER TO RECEIVED DATA 


MFA: CLR 





RO 

R4 

#BTEXP ,R2 
@BTRES,R3 
#51,BTEXP 
#52 ,BTEXP+2 
#53 ,,BTEXP+4 
#54 ,BTEXP+6 
BTEXP,ACO 
ACO,ACS 

RS, SUBT 
BTEXP ,ACO 


RS, SUBT 
BTEXP ,AC2 


ACO, BTRES 


;SETUP FPP ACC POINTER 


sPOINT TO TEST DATA 
sPOINT TO RECEIVED DATA 
sSETUP EXPECTED DATA 

; 

; 


3 
sMOVE DATA TEMPORARILY 
sPUT DATA INTO TEST REGISTER 


sSUBTRACT TEN FROM EACH EXPECTED DATA 


sMOVE DATA TEMPORARILY 

sMOVE DATA INTO TEST REGISTER 
sSUBTRACT 10 FROM TEST DATA WORDS 
sSTORE INTO TEST REGISTER 

sGET NEXT SET OF UNIQUE DATA WORDS 
sSTORE INTO TEST REGISTER 

sGET NEXT SET OF TEST DATAS 

sLOAD TEST REGISTER 

sGET NEXT SET OF TEST WORDS 

sLOAD FINAL TEST REGISTER 


sALL REGISTER CONTAIN UNIQUE TEST WORDS 


sSTORE ACO,RESULT 





SEQ 0190 


COKDADO KDJ11-B CLUSTER 


FLOATING POINT 


10706 
10707 
10708 
10709 
10710 
10711 
10712 
10713 


if 

i 

| 
10703 
10704 
10705 
10714 


052044 
052050 
052052 
052056 


052060 
052064 
052070 
052074 
052076 
052102 


052104 
052110 
052114 
052120 
052122 
052126 


052152 


052154 
052160 
052162 
052166 
052172 
052174 
052200 


052202 
052206 
052210 
052214 
052220 
052222 
052226 


052230 


052232 
052240 
052246 
052254 
052262 
052264 
052272 
052300 
052306 
052314 


052316 
052324 


TESTS 
004567 


162767 
162767 
162767 
162767 
000205 
062767 
062767 
062767 
062767 
000205 


026767 
001013 





DIAG. 


000246 
140132 
000200 
131020 
000222 
140132 
000154 
130774 
000176 
140132 
000130 
130750 
000152 


140132 


000104 


130722 
000124 


140132 


000056 


130674 
000076 


140132 





MACRO YOS.02 


130640 
130634 
130630 
130624 


130606 
130602 
130576 
130572 


130564 


BFAC1: 


BFACe: 


BFAC3: 


BFAC4: 


BFACS: 


SUBT: 


ADDT: 


BFA: 
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RS,ADDT 
AC1,BTRES 
RS,BFA 
BFAC2 
aeDETFPA 
23 


RS, ADDT 
AC2,BTRES 


OeDETFPA 
«3 


RS,ADDT 
AC3,BTRES 
RS,BFA 
BFAC4 
aeDETFPA 
+3 


RS,ADDT 
AC4,AC3 
AC3,BTRES 
RS,BFA 
BFACS 
@eDETFPA 
+3 


RS, ADOT 
ACS, AC2 
AC2,BTRES 


a#DETFPA 
+3 


BF AE 


#10,BTEXP 
#10,BTEXP+2 
ee ane 


#10,BTEXP 

#10,BTEXP+2 
#10,BTEXP+4 
+ aaa 


BTEXP ,BTRES 
BFB 


;FPP 
;BAD 


3FPP 
;BAD 


;FPP 
;BAD 


FPP 
;BAD 


;FPP 
;BAD 





s;CHECK RESULT 
s;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
ACO 


sUPDATE EXPECTED RESULT 
sSTORE AC1 RESULT 


sCHECK RESULT 
sBRANCH IF 


GOOD 
s;DETERMINE FLOATING POINT FAULT. 


ERROR 
RESULT AC1i 


sUPDATE EXPECTED RESULT 


sSTORE AC2 RESUL 
;CHECK RESULT 
sBRANCH IF GOOD 


T 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
AC2 RESLUT 


sUPDATE EXPECTED RESULT 


sSAVE TEST RESUL 
;CHECK RESULT 
sBRANCH IF GOOD 


T 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
AC3 RESULT 


sUPDATE EXPECTED RESULT 


sSAVE TEMPORARY 
sSTORE AC4 RESUL 
sCHECK RESULT 

s;BRANCH IF GOOD 


T 


;DETERMINE FLOATING POINT FAULT. 


ERROR 
AC4 RESULT 


sUPDATE EXPECTED RESULT 


sSAVE TEMPORARY 
sMOVE ACS RESULT 
sCHECK RESULT 

sBRANCH IF GOOD 


COPY 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
ACS RESULT 
sEXIT MODULE 


;UPDATeE 
; UPDATE 
; UPDATE 
; UPDATE 


; UPDATE 

; UPDATE 

; UPDATE 

; UPDATE 
F 


sVERIFY CONTENTS 
sEXIT IF NOT ZER 


EXPECTED 
EXPECTED 
EXPECTED 
EXPECTED 


EXPECTED 
EXPECTED 
EXPECTED 
EXPECTED 


0 


CONTENTS 
CONTENTS 
CONTENTS 
CONTENTS 


CONTENTS 
CONTENTS 
CONTENTS 
CONTENTS 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0191 


a NR RR SR 





COKDADO KDJ11-B8 CLUSTER DIAG. 


FLOATING POINT 


10760 052326 
052334 
10762 052336 
10763 052344 
052346 
052354 


052356 


052356 


052356 
052362 
052366 
052372 
10780 052376 
052402 
052406 
052412 
052414 


052420 


10789 052424 
10790 052426 
052430 
052432 
052434 
052440 


052442 
052444 


052446 


052446 
052452 
052456 
052462 
052466 
10808 052472 
10809 052476 
052502 
052504 


052510 


052514 
052516 
052520 
052524 
10819 052530 


TESTS 


026767 
001007 
026767 
001003 
026767 
000205 


130550 
130542 
130534 


140132 


177776 
177760 
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MACRO YOS.02 


130556 CMP BTEXP+2,BTRES+2 ;VERIFY CONTENTS 
BNE BFB ;EXIT IF NOT ZERO 
130550 CMP BTEXP+4,BTRES+4 ;VERIFY CONTENTS 
BNE BFB ;EXIT IF NOT ZERO 
130542 CMP BTEXP+6,BTRES+6 ;VERIFY CONTENTS 
BFB: RTS RS ;GO BACK TO CALLING ROUTINE 
BFAE: 
TSFP1: 
3 TEST LOFPS AND STFPS MODE 0 
CLR O¢TRPFLG ;CLEAR TRAP FLAG 
MOV #147757 ,R4 ;SETUP DATA TO BE LOADED 
JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
MOV #105252 ,R4 sSETUP DATA TO BE LOADED 
JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
MOV #42505 ,R4 ;SETUP DATA TO BE LOADED 
JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
CLR R4 sSETUP DATA TO BE LOADED 
JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
H 
JMP FINI 
F 
LOST: LOFPS R4 ;LOAD FPS WITH DATA 
STFPS R1 ;LOAD Ri WITH CFPS) 
CMP R4,R1 ;DID THE INSTRUCTIONS WORK 
BEQ i$ ;YES GO ON 
CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:NO GO TO ERROR 
1$: RTS PC ;RETURN 
FINI: NOP 
A 
TSFPe: 
3 TEST CFCC 
CLR O¢TRPFLG ;CLEAR TRAP FLAG 
MOV #17,R4 ;SETUP DATA TO BE LOADED 
JSR PC, TSF2 ;LOAD FPS AND COPY CONDITION CODES TO PS 
MOV #12,R4 ;SETUP DATA TO BE LOADED 
JSR PC, TSF2 ;LOAD FPS AND COPY CONDITION CODES TO PS 
MOV #5,R4 ;SETUP DATA TO BE LOADED 
JSR PC,TSF2 ;LOAD FPS AND COPY CONDITION CODES TO PS 
CLR R4 ;SETUP DATA TO BE LOADED 
JSR PC, TSF2 ;LOAD FPS AND COPY CONDITION CODES TO PS 
Hy 
JMP FIN2 
a 
TSFe: LOFPS R4 ;LOAD FPS 
CFCC ;COPY CONDITION CODES TO PS 
MOV 80177776,R1 ;SAVE PS TO R1 
BIC #177760,R1 sMASK OUT UNWANTED BITS 
CMP R4,R1 sWAS CONDITION CODE BITS TRANSFERRED 





sCORRECTLY 





SEQ 0192 


r - --———--- 





COKDADO KOJ11-B8 CLUSTER DIAG. 


052534 
052540 


FLOATING POINT 
10821 052532 
052606 


= —-- 


TESTS 
001403 
004737 
104003 


000207 


140132 


140132 


140132 


000100 


140132 


140054 
170003 
000244 
053030 
000004 
053114 


000010 
053124 








MACRO YOS.02 


1$: 


2s: 


3$: 


000244 
000004 


000010 
D1: 
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SEQ 0193 
BEQ 1$ sYES GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
sNO GO TO ERROR 
RTS PC sRETURN 


TEST SETF, SETD, SETI, SETL 
TRPFLG 


CLR ae sCLEAR TRA® FLAG 
MOV #200,R4 sSETUP DATA TU BE LOADED 
LOFPS R4 sLOAD FPS 
SETF sMAKE FD=0 
STFPS Ri sSTORE FPS 
CMP R1,90 :IS FD=0 
BEQ i$ sYES GO ON 
CALL @eDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
sNO GO TO ERROR 
SETD sMAKE FD=1 
STFPS Ri sSTORE FPS 
CMP R1,R4 sIS FD=1 
BEQ 2s sYES GO ON 
CALL BeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 :FPP ERROR 
sNO GO TO ERROR 
MOV #100,R4 sSETUP DATA TO BE LOADED 
LOFPS R4 sLOAD FPS 
SETI sMAKE FL=0 
STFPS R1 sSTORE FPS 
CMP R1,00 :IS FL=0 
BEQ 3$ sYES GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
sNO GO TO ERROR 
SETL sMAKE FL=1 
STFPS Ri sSTORE FPS 
CMP R1,R4 sIS FL=1 
BEQ $ sYES GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR + ;FPP ERROR 


sNO GO TO ERROR 


TEST ILLEGAL OP CODES AND STST 
R OeTRPFLG 


CL sCLEAR TRAP FLAG 


MOV #170003 ,R5 sINIT OP CODE 

MOV 80244 ,-(SP) ;SAVE FP VECTOR 

MOV @ILLOP1 , 20244 sSETUP NEW VECTOR 
MOV 204 ,-(SP) sSAVE TIME OUT VECTOR 
MOV #TIMEOU, 204 ;SETUP NEW VECTOR 
MOV 8#10,-(SP) ;SAVE ILLEGAL VECTOR 
MOV #ILLOP2,a#10 ;SETUP NEW VECTOR 

CLR R3 3 

LOFPS R3 ;CLEAR FPS 

CLR R2 3 











M15 
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FLOATING POINT TESTS 
10882 052734 010537 052740 MOV RS ,a002 sSETUP THE ILLEGAL INST 
10883 052740 000000 D2: -WORD 0 ; 
10884 052742 170000 D3: CFCC sMEMORY WORDS TO BE USED WITH 
10885 052744 005202 INC R2 sEXECUTION OF ILLEGAL OP CODE . 
10886 052746 005202 INC R2 2 
10887 052750 170201 STFPS R1 sSAVE FPS 
10888 052752 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10889 052756 104003 ERROR + ;FPP ERROR 
10890 :GO TO ERROR 
10891 052760 022705 170010 D4: CMP #170010,R5 sCOMPUTE NEXT OP CODE 
10892 052764 001003 BNE 0S 5 
10893 052766 012705 170013 MOV #170013,R5 : 
10894 052772 000755 BR D1 5 
10895 052774 022705 170077 OS: CMP #170077,R5 3 
10896 053000 001001 BNE 06 : 
10897 053002 000402 BR 07 ; 
10898 053004 005205 D6: INC RS ; 
10899 053006 000747 BR 01 i: 
10900 053010 012637 000010 07: MOV (SP)+,8#10 sRESTORE VECTORS 
10901 053014 012637 000004 MOV (SP )+,a04 ; 
10902 053020 012637 000244 MOV (SP )+,8%244 ; 
10903 
10904 ; 
peony 053024 000167 000104 JMP FIN4 
i 
10907 053030 022716 052742 ILLOP1: CMP #03, (SP) sDID TRAP OCCUR ON TEST INST 
10908 053034 001403 BEQ 1$ sYES GO ON 
10909 053036 004737 140132 CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10910 053042 104003 ERROR +3 ;FPP ERROR 
10911 s;NO GO TO ERROR 
10912 053044 022626 1$: MP (SP)+,CSP)+ sCLEAN UP STACK 
10913 053046 170201 STFPS Ri sSTORE FPS 
10914 053050 022701 100000 CMP #100000 ,R1 sIS FPS CORRECT 
10915 053054 001403 BEQ es sYES GO ON 
10916 053056 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10917 053062 104003 ERROR +3 ;FPP ERROR 
10918 sNO GO TO ERROR 
10919 053064 005004 2s: CLR R4 sINT R4 TO A KNOWN STATE 
10920 053066 170304 STST R4 sSTORE FEC AT R4 
10921 sIF THE DESTINATION MODE IS IMPROPERLY 
10922 sDECODED AN ODD ADDRESS TRAP TO 4 
10923 sSHOULD OCCUR 
10924 053070 022704 000002 CMP #2 ,R4 sIS FEC CORRECT 
10925 053074 001002 BNE 3$ sNO GO TO ERROR 
10926 053076 000167 177656 JMP 04 sYES GO ON 
10927 053102 004737 140132 3$: CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10928 053106 104003 ERROR +3 sFPP ERROR 
10929 3GO TO ERROR 
etsy 053110 000167 177644 JMP D4 ; THEN GO ON 
é 
10932 053114 004737 140132 TIMEOU: CALL BeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10933 053120 104003 ERROR +3 ;FPP ERROR 
10934 sERROR BECAUSE OF TRAP TO 4 
oo 053122 000006 RTT sRETURN 
i 
10937 053124 004737 140132 ILLOP2: CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
104003 ERROR +3 FPP ERROR 














SEQ 0194 





COMDADO KDJ11-B8 CLUSTER DIAG. 


FLOATING POINT 


053220 
053224 


053230 
053234 


053236 
053240 


TESTS 


012637 
000167 


004737 
104003 


140132 


000244 
000010 
140132 


Ni5 
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1$: 


it: 
2s: 


RTT 


CLR 


TEST LOD, 


CLR 


sERROR BECAUSE OF TRAP TO 10 


TEST FID CINTERRUPT DISABLE BIT) 
@OTRPFLG 


sRETURN 


sCLEAR TRAP FLAG 


80244, -( SP) sSAVE FP VECTOR 
GILL ,80244 sSETUP NEW VECTOR 
° sSETUP DATA TO BE LOADED 

R3 sLOAD FPS, FID=1 
170020 sILLEGAL FP INSTRUCTION 
Ri sSEE IF ERROR WAS RECORDED IN FPS 
#140000,R1 3 
is sYES GO ON 
@eODETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
3 3FPP ERROR 

sNO GO TO ERROR 
4 sSEE IF FEC=2 
#2,R4 3 
2s sYES GO ON 
QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
3 3;FPP ERROR 

sNO GO TO ERROR 
CSP )+,90244 sRESTORE VECTOR 
FINS 
SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
3 3FPP ERROR 

3FID ERROR 

sRETURN 
1 


STO FSRC AND FOST MODE 
@OTRPFLG 


sCLEAR TRAP FLAG 


R4 sSETUP TO LOAD DATA 
R4 sCLEAR FPS 
sSET FD TO 1 

904 ,-(SP) sSAVE TIMEOUT VECTOR 
OTSF6, 804 sSETUP NEW VECTOR 
@TSEDAT ,R4 sSETUP POINTER TO DATA 
(R4),ACO s_ TEST INSTRUCTION 
R4, @TSEDAT sIS R4 CORRECT 
1$ sYES GO ON 
BODE TFPA sDETERMINE FLOATING POINT FAULT. $98 
+3 sFPP ERROR 

sNO GO TO ERROR 
@TS6DA ,R1 sSETUP POINTER TO DATA 
04 ,R3 sINIT COUNTER 
(RE )> CRI) sWAS SOURCE DATA A TERED 
38 s™O GO ON 
BODE TFPA sDETERMINE FLOATING POINT FALAT. $38 
+3 :FPP ERROR 

YES GO TO ERROR 





—-y 
' 
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FLOATING POINT 
11000 053330 
332 


(i 
So 
vi 
ud 
wv 
& 


TESTS 


012703 


000167 
177777 
000000 
052525 


125252 
177777 
000000 
052525 
125252 


004737 
104003 


000006 


005037 
012704 
170104 
013746 
012737 
012704 
172414 
012701 
172511 
172401 
012704 
174114 
004767 
012704 
012701 
174014 
004767 
012701 
172511 


000030 


140132 


140054 


000004 
053624 
053634 


053644 


003162 


000072 
003162 
053644 


000054 
053634 


sARE WE DONE 
sSETUP POINTER FOR DATA 
s TEST INSTRUCTION 

sIS R4 CORRECT 
sYES GO ON 





SEQ 0196 


sDETERMINE FLOATING POINT FAULT. $$$ 


3FPP ERROR 


sNO GO TO ERROR 


sSETUP POINTER TO DATA 

sINIT COUNTER 

:IS DESTINATION DATA CORRECT 
sYES GO 


ON 
sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 


sNO GO TO ERROR 


sARE WE DONE 
sRESTORE VECTOR 


sDETERMINE FLOATING POINT FAULT. 
3;FPP ERROR 


:000 ADDRESS TRAP 


3$: SOB R3,29 
MOV @TSTLOC ,R4 
STO ACO, (R4) 
CMP 3 @TSTLOC 
BEQ 
CALL Qe0ETFPA 
ERROR «3 

4$: MOV hy e Ri 
MOV R3 

5$: CMP (Rade, CR1)- 
BEQ 
CALL SDE TFPA 
ERROR «3 

6$: SOB R3,5$ 
MOV (SP )+,a04 

3 
JMP FING 

$ 

TS6DA: WORD 177777 
. WORD 000000 
-WORD 052525 
. WORD 125252 

TS6DAT WORD 177777 
.- WORD 
-WORD 052525 
. WORD 125252 

3 

TSF6: CALL @eDETFPA 
ERROR 3 
RTT 

FIN6: 

é 

TSFP7 

: TEST LOD, LOF FSRC MODE O 
CLR @eTRPFLG 
MOV $200 ,R4 
LOFPS R4 





MOV @TS7DA1, R4 
LOD (R4), ACO 
MOV @TS7DA2,R1 
LOD (R1),AC1 
i0D0 AC1,ACO 
MOV @TSTLOC,R4 
STO AC1,(R4) 
JSR PC, CHECK7 
MOV @TSTLOC ,R4 
MOV @TS7DA2,R1 
STD ACO, (R4) 
JSR PC, CHECK7 
MOV @TS7DA1,R1 
LOD (R1),AC1 





sRETURN 


;CLEAR TRAP FLAG 
sSETUP TO LOAD FPS 
sLOAD FPS, FD=1 

sSAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
sSETUP POINTER TO DATA 
sCLEAR ACO 

sSETUP POINTER TO DATA 
sLOAD AC1 WITH DATA 

: TEST INSTRUCTION 


i 
;CHECK IF AC1 HAS BEEN ALTERED 
; 


sSETUP POINTERS FOR DATA 
5 
sCHECK IF ACO RECEIVED CORRECT DATA 


; 
sSETUP POINTER TO DATA 
;CLEAR AC1 





$$$ 


11059 053540 
11060 053542 


053572 


053602 


TESTS 


000167 





COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


140132 


140054 
000200 


000004 
054054 
054064 


054074 


003162 
000072 





; 
TSF7: 


; 
TS7DA1: . 


TS7DA2: 


TS7DA4: . 


FIN7: 


; 
TSFP10: 
3 





CLR 


C16 


MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-178 


AC1,ACO 


@TSTLOC ,R4 
AC1,(R4) 

PC, CHECK7 
@TS7DA4 ,R4 
@TSTLOC,R1 
ACO, (R1) 

PC ,CHECK7 
(SP )+,a04 


FIN7 


04,R3 
C(R4)+,CR1)+ 
CHK7 


+3 
R3, CHEK7 
PC 


. STF FOST MODE 0 


aeTRPFLG 
#200,R4 

R4 

a4 ,-(SP) 
@TSF10,804 
#TS1001,R4 
(R4),ACO 
#TS1002,R1 
(R1),AC1 
AC1,ACO 
#TSTLOC,R4 
AC1,(R4) 
PC,CHEC10 





Sea o197_:=S! 


$$$ 


;SET FD=0 

; TEST INSTRUCTION 

sSET FD=1 

sSETUP POINTER TO DATA 

sCHECK IF AC1 HAS BEEN ALTERED 


‘ 
sSETUP POINTERS FOR DATA 
; 
;CHECK IF ACO HAS CORRECT DATA 
i 
sRESTORE VECTOR 


sINIT COUNTER 
:I1S DATA OK 
;YES GO ON 
3;FPP ERROR 
:NO GO TO ERROR 
;ARE WE DONE 
;YES RETURN 


;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;00D ADDRESS TRAP 

;RETURN 


;CLEAR TRAP FLAG 
sSETUP TO LOAD FPS 
sLOAD FPS, FD=1 

;SAVE TIMEOUT VECTOR 
sSETUP NEW VECTOR 
sSETUP POINTER TO DATA 
sCLEAR ACO 

sSETUP POINTER TO DATA 
;LOAD AC1 WITH DATA 

; TEST INSTRUCTION 


; 
;CHECK IF AC1 HAS BEEN ALTERED 
; 











eat taeedinan 
{ 

| D16 
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FLOATING POINT TESTS 


11118 053740 012704 003162 MOV #TSTLOC ,R4 ;SETUP POINTERS FOR DATA 
11119 053744 012701 054074 MOV #TS10D02,R1 3 
11120 053750 174014 STO ACO, (CR4) ;CHECK IF ACO RECEIVED CORRECT DATA 
11121 0537 004767 000054 JSR PC,CHEC10 3 
11122 053756 012701 054064 MOV #TS1001,R1 ;SETUP POINTER TO DATA 
11123 053762 172511 LOD CR1),AC1 sCLEAR AC1 
11124 053764 170001 SETF ;SET FD=0 
11125 053766 174100 STF AC1,ACO 3; TEST INSTRUCTION 
11126 053770 170011 SETD 3SET FD=1 
11127 053772 012704 003162 MOV #TSTLOC ,R4 ;SETUP POINTER TO DATA 
11128 053776 174114 STD AC1,(R4) ;CHECK IF AC1 HAS BEEN ALTERED 
11129 054000 004767 000026 JSR PC,CHEC10 3 
11130 054004 012704 054104 MOV #TS10D4 ,R4 ;SETUP POINTERS FOR DATA 
11131 054010 012701 003162 MOV #TSTLOC,R1 3 
11132 054014 174011 STD ACO,(R1) sCHECK IF ACO HAS CORRECT DATA 
11133 054016 004767 000010 JSR PC,CHEC10 3 
Tt 054022 012637 000004 MOV CSP)+,ae4 sRESTORE VECTOR 
11136 3 
tis. 054026 000167 000062 JMP FIN10O 
3 
11139 054032 012703 000004 CHEC10: MOV #4,R3 ;INIT COUNTER 
11140 054036 022421 CH10: CMP CR4)+,CR1)+ :I1S DATA OK 
11141 054040 001403 BEQ CHK10 ;YES GO ON 
11142 054042 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11143 054046 104003 ERROR + ;FPP ERROR 
11144 sNO GO TO ERROR 
12145 054050 077306 CHK10: SOB R3,CH10 ;ARE WE DONE 
tht | 054052 000207 RTS PC ;YES RETURN 
1 3 
11148 054054 004737 140132 TSF10: CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11149 054060 104003 ERROR + 3;FPP ERROR 
11150 ;0D0D ADDRESS TRAP 
11151 054062 000006 RTT 3 
11152 3 
11153 054064 000000 TS1i0D1: .WORD 0 
11154 054066 000000 -WORD 0O 
11155 054070 000000 -WORD 0O 
11156 054072 000000 -WORD 0O 
11157 054074 177777 TS10D2: .WORD 177777 
11158 054076 111236 -WORD 111236 
11159 054100 100045 -WORD 100045 
11160 054102 003651 -WORD 3651 
11161 054104 000000 TS1i0D4: .WORD 0O 
11162 054106 900000 -WORD 0 
11163 054110 100045 -WORD 100045 
11164 054112 003651 -WORD 3651 
11165 054114 FINIO: 
11166 3 
11169 054114 TSFP11 
11170 F TEST FDST SINGLE OPERAND MODE 0 
11171 054114 005037 140054 CLR ae¢TRPFLG sCLEAR TRAP FLAG 
11172 054120 012704 000200 MOV #200,R4 ;SETUP TO LOAD FPS 
11173 054124 170104 LOFPS R4 3SET FD=1 
11174 054126 012704 054210 MOV #7TS11D01,R4 ;SETUP POINTER TO DATA 
11175 054132 172414 LOD (R4),ACO ;LOAD ALL ONES TO ACO 
170400 CLRO ACO ; TEST INSTRUCTION 











SEQ 0198 


nT ES 


COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


11177 
11°78 
11179 
11180 


054136 
054140 
054144 
054146 
054152 
054156 
054160 
054164 


054166 
054170 
054174 
054176 
054202 


054204 
054204 
054210 
054212 
054214 
054216 
054220 


054220 


TESTS 


077107 
020327 
001403 
004737 
104003 


000167 


177777 
177777 
177777 
177777 


005037 
012703 
170103 
170407 
170204 
170305 
022704 
001403 
004737 
104003 


022705 
001403 
004737 
104003 


013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
077503 
012702 


003162 


140132 


000204 
140132 


000010 


140054 
040200 


140200 
140132 


000002 
140132 


000004 
054424 
140054 
000200 


000004 
003162 
177777 


003162 
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STFPS R3 ;GET FPS 
MOV #TSTLOC,R4 3 
STO ACO, (R4) ;CHECK ACO FOR ALL ZEROES 
MOV 04,R1 sINIT COUNTER 
1$: CMP CR4)+,80 ; 
BEQ 2s :0K GO ON 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
:NO GO TO ERROR 
2s: S0B R1,1$ sARE WE DONE 
CMP R3, #204 3;CHECK FPS 
BEQ 3$ :0K GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
3$: 
3 
JMP FINi1l 
H 
TS11D1: .WORD 177777 
.WORD 177777 
.- WORD 177777 
. WORD 177777 
FINi1: 
TSFPle2: 
3 ry FDST SOP MODE O WITH ILLEGAL AC7 
CLR @¢TRPFLG ;CLEAR TRAP FLAG 
MOV #40200 ,R3 sSETUP TO LOAD FPS 
LOFPS R3 ;SET FID=1, AND FD=1 
CLRD AC7 ; TEST INSTRUCTION 
STFPS R4 ;GET FPS 
STST RS ;GET FEC 
CMP #140200,R4 :IS FPS CORRECT 
BEQ 1$ :YES GO ON 
CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
:NO GO TO ERROR 
1$: CMP #2,R5 3IS FEC CORRECT 
BEQ 2s :YES GO ON 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
2$: 
3 
TSFP13: 
3 TEST FDST a, MODE 1 
MOV ae4,-(SP) ;SAVE TIMEOUT VECTOR 
000004 MOV OTSF13, ae4a ;SETUP NEW VECTOR 
CLR @OTRPFLG ;CLEAR TRAP FLAG 
MOV #2. ,R2 ;SETUP TO LOAD FPS 
LOFPS Re ;SET FD=1 
MOV #4,R5 ;INIT COUNTER 
MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
100$: MOV #177777, (R4)+ sMOVE ALL ONES TO TEST LOCATION 
SoB RS,100$ ;ARE WE DONE 
MOV #TSTLOC ,R2 ;SETUP POINTER TO DATA 














SEQ 0199 


$$$ 


$$$ 


$$$ 


$$$ 


r-- 
| 





COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


TESTS 


170412 
170203 
020227 
001403 
004737 
104003 


012701 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


012637 


000167 


004737 
104003 


000006 


013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
077503 
012702 
170422 
170203 
020227 
001403 
004737 
104003 


012702 
012701 
022227 
001403 
004737 
104003 


003162 
140132 
000004 
000000 
140132 


000204 
140132 


000004 


000010 
140132 


000004 
054574 
140054 
000200 
000004 
003162 
177777 


003162 


003172 
140132 


140132 





MACRO YOS.02 


1$: 
2$: 


3$: 


4$: 


3 
TSF1i3: 


a 
FIN1I3: 


3 
TSFP14: 
i 


000004 


100$: 


1$: 
2s: 





F1i6 
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(R2) 
R3 
~~ 


1 
a 


#4,R1 
CR2)+,8#0 


3$ 
OeDETFPA 
+3 

Ri,2$ 
R3,#204 
4$ 
OeDETFPA 
+3 


(SP)+,a%4 
FIN13 


QeDETFPA 


+3 


TEST FDST SOP MODE 2 
MOV 


0 #4, -CSP) 
MOV #TSF14,904 
CLR @eTRPFLG 
MOV #200 ,R2 
LOFPS Re2 
MOV #4,R5 
MOV #TSTLOC,R4 
MOV 9177777, CR4)+ 
SOB RS,100$ 
MOV #TSTLOC,R2 
CLRD (R2)+ 
STFPS R3 
CMP R2,#TSTLOC+10 
BEQ 1$ 
CALL OeDETFPA 
ERROR +3 
MOV #TSTLOC,R2 
MOV #4,R1 
CMP (R2)+, #0 
BEQ 3$ 
CALL aeDETFPA 
ERROR +3 


; TEST INSTRUCTION 
;GET FPS 
s;WAS R2 ALTERED 


sNO GO ON 

s;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;YES GO TO ERROR 

sINIT COUNTER 

sCHECK LOCATION FOR 0 


;0K GO ON 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
:NO GO TO ERROR 

;ARE WE DONE 

;CHECK FPS 

:0K GO ON 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;NO GO TO ERROR 

;RESTORE VECTOR 


$$$ 


$$$ 


$$$ 


sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
3000 ADDRESS TRAP 


RETURN 


sSAVE TIMEOUT VECTOR 
sSETUP NEW VECTOR 
sCLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
sSET FO=1 
sINIT COUNTER 
sSETUP POINTER TO TEST LOCATION 
sMOVE ALL ONES TO TEST LOCATION 
sARE WE DONE 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
sIS R2 CORRECT 
sYES GO ON 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sNO GO TO ERROR 
sSETUP POINTER TO DATA 
sINIT COUNTER 
;CHECK LOCATION FOR 0 
sYES GO ON 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
sNO GO TO ERROR 


$$$ 





SEQ 0200 


| 


— ee 





| COKDADO KDU11-8 CLUSTER DIAG. 


FLOATING POINT 


‘ 
---- 


TESTS 


077107 
020327 
001403 
004737 
104003 


012637 


000167 


004737 
104003 


000006 
000240 


013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
012702 
170432 
170203 
020227 
001403 
004737 
104003 


012702 
022227 
001403 
004737 
104003 


012701 
022227 
001403 
004737 
104003 


077107 


000204 
140132 


000004 


000010 
140132 


000004 
055012 
140054 
000200 
000011 
003162 
177777 
003174 
003162 
003164 
140132 
003162 
003174 
140132 
000004 
177777 


140132 








G16 
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3$: 


000004 


100$: 
003162 


1$: 


2$: 
3$: 


4$: 





SEQ 0201 

R1,2$ ;ARE WE DONE 
R3, 0204 ;CHECK FPS 
4$ ;0K GO ON 
QODETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;NO GO TO ERROR 
(SP)+,a04 ;RESTORE VECTOR 
FINI4 
@eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;0DD ADDRESS TRAP 

RETURN 

MODE 3 
a04,-(SP) ;SAVE TIMEOUT VECTOR 
@TSF15, 004 ;SETUP NEW VECTOR 
@STRPFLG ;CLEAR TRAP FLAG 
#200 ,R2 ;SETUP TO LOAD FPS 
R2 ;SET FD=1 
09. .R5 ; INIT COUNTER 
#TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
#177777, (R4)+ ;INIT TEST LOCATION 
RS5,100$ ;ARE WE DONE 
#TSTLOC+12,@TSTLOC ;INIT TEST LOCATION 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
acR2)+ ; TEST INSTRUCTION 
R3 :GET FPS 
R2,#TSTLOC+2 31S R2 CORRECT 
1$ :YES GO ON 
OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 :FPP ERROR 

;NO GO TO ERROR 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
(R2)+, @TSTLOC+12 :IS DATA CORRECT 
2$ ;YES GO ON 
OSDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 FPP ERROR 

;NO GO TO ERROR 
#4,R1 ;INIT COUNTER 
(R2)+, #177777 ;IS LOCATION ALL ONES 
4$ ;YES GO ON 
OODETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
- :FPP ERROR 

;NO GO TO ERROR 
R1,3$ ;ARE WE DONE 





| COKDADO KDv11-8 CLUSTER 


FLOATING POINT 


054744 
054750 


055012 
055016 


055020 
055022 


055024 
055024 


055110 


055112 
055116 
055122 
055124 
055130 


055132 
055134 
055140 
055144 
055146 


TESTS 


012701 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


000006 
000240 


013746 
012737 
005037 
012702 
170102 


012701 
022227 
001403 
004737 
104003 


077107 
012701 
022227 
001403 
004737 





000204 
140132 


000004 
000010 
140132 


000004 
055202 
140054 
000200 
000010 
003162 
177777 


003172 


003162 
140132 
000004 
000000 
140132 


000004 
177777 
140132 


000004 


5$: 


6$: 


04,R1 
(R2)+,#0 
6$ 


@eDETFPA 
+3 

R1,5$ 

R3, #204 
7$ 
@eDETFPA 
+3 

(SP)+, a4 
FINIS 
a 


sINIT COUNTER 
:IS LOCATION 0 
sYES GO ON 


sDETERMINE FLOATING POINT FAULT. 


FPP ERROR 

sNO GO TO ERROR 
sARE WE DONE 
sCHECK FPS 
OK GO ON 


; 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 
sRESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
;00D ADDRESS TRAP 
RETURN 


TSFP16: 


100$: 


1$: 
2s: 


3$: 
4$: 





MODE 4 


ae4 ,-CSP) 
#TSF16,a04 
a¢TRPFLG 
#200 ,R2 

R2 


#8.,R5 
#TSTLOC ,R4 
#177777, (R4)+ 
RS,100$ 
#TSTLOC+10,R2 
-(R2) 

R3 
R2,#TSTLOC 

1$ 

OeDETFPA 

+3 

#4,R1 
(R2)+,#0 


3$ 
@eDETFPA 
+3 


S$ 
@eDETFPA 


;SAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=1 
sINIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
sINIT TEST LOCATION 
;ARE WE DONE 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
:IS R2 CORRECT 
;YES GO ON 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

sNO GO TO ERROR 
sINIT COUNTER 
:IS LOCATION 0 
sYES GO ON 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 
sARE WE DONE 
sINIT COUNTER 
sIS LOCATION UNCHANGED 
sYES GO ON 


sDETERMINE FLOATING POINT FAULT. 
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SEQ 0202 


sos 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


ei | 


COKDADO KDJ11-B CLUSTER DIAG. 


055154 
055156 
055162 
055164 
055170 


055172 
055176 


055202 
055206 


055210 
055212 


055214 


055214 
055220 
055226 
055232 
055236 
0552490 
055244 


055310 
055314 
055316 
055322 


055324 
055330 


i 
FLOATING POINT 
11415 055152 
| 055352 
' 
| 
I 


TESTS 
104003 
077107 


012637 
000167 


004737 
104003 


000006 
000240 


013746 
012737 
005037 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
012702 
170452 
170203 
020227 
001403 
004737 
104003 


022227 
001403 
004737 
104003 


012701 
022227 
001403 
004737 
104003 


077107 
012701 
022227 


000204 
140132 
000004 
000010 
140132 


000004 
055414 
140054 
000200 
000011 
003162 
177777 
003174 
003164 
003162 


140132 
003174 


140132 


000004 
177777 
140132 
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ERROR +3 FPP ERROR 
:NO GO TO ERROR 
S$: SOB R1,4$ ;ARE WE DONE 
CMP R3, #204 ;CHECK FPS 
BEQ 6$ :OK GO ON 
CALL  @@DETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 :FPP ERROR 
:NO GO TO ERROR 
6$: Mov (SP)+,a04 ;RESTORE VECTOR 
JMP FIN16 ; 
: 
TSF16: CALL  @@DETFPA ;DETERMINE FLOATING POINT FAULT 
ERROR +3 FPP ERROR 
;O0DD ADDRESS TRAP 
RTT :RETURN 
FIN16: NOP 
3 
i 
; lite nn eee eee ee ee ee ee 
;TEST FDST SOP MODE 5 
: 
a 
TSFP17: 
° 
. MOV 904, -(SP) ;SAVE TIMEOUT VECTOR 
000004 MOV @TSF17, 004 ;SETUP NEW VECTOR 
CLR OeTRPFLG ;CLEAR TRAP FLAG 
MOV #200 ,R2 ;SETUP TO LOAD FPS 
LOFPS 2 ;SET FD=1 
MOV #9. .R5 ;INIT COUNTER 
MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
100$: MOV #177777, (R4)+ ;INIT TEST LOCATION 
SOB RS, 100$ ;ARE WE DONE 
003162 MOV @TSTLOC+12, A@TSTLOC ;INIT TEST LOCATION 
MOV @TSTLOC+2,R2 ;SETUP POINTER TO DATA 
CLRD = @-(R2) ;_ TEST INSTRUCTION 
STFPS R3 GET FPS 
CMP R2,#TSTLOC IS R2 CORRECT 
BEQ 1$ sYES GO ON 
CALL  @#DETFPA ;DETERMINE FLOATING POINT FAULT 
ERROR +3 :FPP ERROR 
;NO GO TO ERROR 
1$: CMP (R2)+, @TSTLOC+12 IS DATA CORRECT 
BEQ 2$ sYES GO ON 
CALL  @@DETFPA ;DETERMINE FLOATING POINT FAULT 
ERROR +3 :FPP ERROR 
;NO GO TO ERROR 
2s: MOV #4,R1 ;INIT COUNTER 
3$: CMP (R2)+, #177777 :1S LOCATION ALL ONES 
BEQ 4$ :YES GO ON 
CALL  @@DETFPA ;DETERMINE FLOATING POINT FAULT 
ERROR +3 :FPP ERROR 
;NO GO TO ERROR 
4s: SOB R1,3$ ;ARE WE DONE 
MOV #4,R1 ;INIT COUNTER 
5$: CMP (R2)+, 00 :1S LOCATION 0 











SEQ o203_:—=S! 


$$$ 


- $$$ 
. $$$ 
- $$$ 
- $$$ 


ee 


| ewan KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


11474 
11475 
11476 


055356 
055360 
055364 


055366 
055370 
055374 
055376 
055402 


055404 
055410 


055414 
055420 


055422 
055424 


055426 


055426 
055432 
055436 
055444 
055450 
055452 
055456 
055462 
055466 
055470 
055474 
055500 
055502 
055506 
055510 
055514 


055516 
055522 
055526 
055532 
055534 
055540 


055542 
055544 
055550 
055554 
055556 
055562 


TESTS 


001403 
004737 
104003 


077107 


012637 
000167 


004737 
104003 


000006 
000240 


005037 
013746 
012737 
012702 
170102 
012705 
012704 
012724 
077503 
012702 
170462 
170203 
020227 
001403 
004737 
104003 


012702 
012701 
022227 
001403 
004737 
104003 


077107 
012701 
022227 
001403 
004737 
104003 


140132 


000204 


140132 


000004 
000010 


140132 


177777 


003163 
000007 


003163 
140132 
003162 
000004 
177777 


140132 


000004 
000000 


140132 
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BEQ 6$ sYES GO ON 
CALL @eDETFPA 
ERROR +3 FPP ERROR 
sNO GO TO ERROR 
6$: S08 R1,5$ sARE WE DONE 
CMP R3, #204 sCHECK FPS 
BEQ 7$ 
CALL @eDETFPA 
ERROR +3 ;FPP ERROR 
sNC GO TO ERROR 
7$: MOV (SP )+,a04 sRESTORE VECTOR 
JMP FINi7 
i 
TSF17: CALL @eDETFPA 
ERROR +3 sFPP ERROR 
;000 ADDRESS TRAP 
RTT RETURN 
FIN17: NOP 


;TEST FDST SOP MODE 6 
j 


8 
TSFP20: 


; 
CLR OeTRPFLG ;CLEAR TRAP FLAG 
MOV #4 ,-CSP) sSAVE TIMEOUT VECTOR 
MOV @TSF20,004 sSETUP NEW VECTOR 
MOV #200 ,R2 sSETUP TO LOAD FPS 
LDOFPS R2 sSET FD=1 
MOV #8. RS sINIT COUNTER 
MOV #TSTLOC,R4 sSETUP POINTER TO TEST LOCATION 
100$: MOV #177777, CR4)+ sINIT TEST LOCATION 
SOB RS,100$ sARE WE DONE 
MOV #TSTLOC+1,R2 sSETUP POINTER TO DATA 
CLRD 7(R2) 3; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
CMP R2,@TSTLOC+1 IS R2 CORRECT 
BEQ 1$ ;YES GO ON 
CALL QeDETFPA s;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
1$: MOV #TSTLOC,R2 sSETUP POINTER TO DATA 
MOV #4,R1 sINIT COUNTER 
2s: CMP (R2)+,0177777 sIS DATA CORRECT 
BEQ 3$ sYES GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
3$: SOB R1,2$ sARE WE DONE 
MOV #4,R1 sINIT COUNTER 
4$: CMP (R2)+, 80 sIS DATA CORRECT 
BEQ S$ ;YES GO ON 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 











sDETERMINE FLOATING POINT FAULT. 


;0K GO ON 
sDETERMINE FLOATING POINT FAULT. 


;DETERMINE FLOATING POINT FAULT. 


SEQ 0204 


$$$ 


$3$ 


$$$ 


$$$ 


$$$ 


$$$ 


a a ee ee 


COKDADO KDJ11-B CLUSTER DIAG. 


11577 055722 
11578 055726 
11579 055732 
11580 055736 
11581 055740 
11582 055744 


11584 055746 
11585 055750 
11586 055754 
11587 055756 
11588 055762 


11590 055764 


FLOATING POINT 
11533 
11534 055564 
j 11591 055770 
! 


TESTS 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


000006 
000240 


005037 
013746 
012737 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
012702 
170472 
170203 
020227 
001403 
004737 
104003 


012702 
012701 
022227 
001403 
004737 
104003 


077107 
022227 
001403 
004737 
104003 


012701 
022227 


000204 
140132 
000004 
000010 
140132 


140054 


000004 
056032 
000200 


000010 
003162 
177777 
003162 
003165 
000005 
003165 


140132 


003162 
000004 
000000 
140132 


003162 
140132 


000003 
177777 





MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-186 


5$: 


: 
TSFP21: 
; 


100$: 
003172 


1$: 
2s: 


3$: 


4$: 
5$: 


— ee 


SEQ 0205 
;NO GO TO ERROR 
R1,4$ ;ARE WE DONE 
R3, #204 ;1S FPS CORRECT 
6$ ;YES GO ON 
@eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
3 ;FPP ERROR 
;NO GO TO ERROR 
(SP)+,a04 ;RESTORE VECTOR 
FIN20 
@aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;0DD ADDRESS TRAP 
; RETURN 
MODE 7 
@eTRPFLG ;CLEAR TRAP FLAG 
a4, -(SP) ;SAVE TIMEOUT VECTOR 
OTSF21, 004 ;SETUP NEW VECTOR 
#200, R2 ;SETUP TO LOAD FPS 
R2 ;SET FD=1 
#8. RS ;INIT COUNTER 
#TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
#177777,(R4)+ ;INIT TEST LOCATION 
R5,100$ ;ARE WE DONE 
#TSTLOC, @#@TSTLOC+10 ;INIT TEST LOCATION 
#TSTLOC+3,R2 ;SETUP POINTER TO DATA 
a5(R2) ; TEST INSTRUCTION 
R3 ;GET FPS 
R2,@TSTLOC+3 ;IS R2 CORRECT 
1$ :YES GO ON 
AODETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
:NO GO TO ERROR 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
#4,R1 ;INIT COUNTER 
(R2)+, #0 ;1S DATA CORRECT 
33 :YES GO ON 
QYDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;NO GO TO ERROR 
R1,2$ ;ARE WE DONE 
(R2)+, @TSTLOC ;IS DATA CORRECT 
4$ :YES GO ON | 
@eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
23 ;FPP ERROR 
;NO GO TO ERROR 
#3,R1 ;INIT COUNTER 
(R2)+,0177777 ;I1S DATA CORRECT 








—_—_- en a 


rf" - = 





COKDADO KDJ11-B8 CLUSTER DIAG. 


11593 055776 


i 
| 
FLOATING POINT 
11592 055774 
11594 056002 
| 
' 


; 


TESTS 


001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


000006 
000240 


077107 
012701 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 


140132 


140054 
000004 


056216 
000200 


000010 
003162 
177777 


003172 
003162 


003162 
000004 
000000 
140132 


000004 
177777 
140132 


000204 
140132 











MACRO YCS.02 Wednesday 27-Feb-85 17:55 Page 14-187 
BEQ 6$ sYES GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
sNO GO TO ERROR 
6$: S$0B R1,5$ sARE WE DONE 
CMP R3, #204 sCHECK FPS 
BEQ 7$ 0K GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 sFPP ERROR 
sNO GO TO ERROR 
7$ MOV (SP)+,a04 sRESTORE VECTOR 
JMP FIN21 
é 
TSF21: CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;000 ADDRESS TRAP 
RTT sRETURN 
FIN21: NOP 


003162 


3 
TSFP22: 
3 
CLR Oe¢TRPFLG ;CLEAR TRAP FLAG 
MOV 004 ,-(SP) sSAVE TIME OUT VECTOR 
MOV #TSF22,304 ;SETUP NEW VECTOR 
MOV #200,R2 sSETUP TO LOAD FPS 
LOFPS Re ;SET FD=1 
MOV #8. ,R5S sINIT COUNTER 
MOV #TSTLOC,R4 sSETUP POINTER TO TEST LOCATION 
100$: MOV 0177777, CR4)+ sINIT TEST LOCATION 
S08 RS,100$ sARE WE DONE 
MOV #TSTLOC+10,a#@TSTLOC sINIT TEST LOCATION 
CLRD a#TSTLOC ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
MOV #TSTLOC,R2 sSETUP POINTER TO DATA 
MOV #4,R1 sINIT COUNTER 
1$: CMP (R2)+, 80 31S DATA CORRECT 
BEQ 2s sYES GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
2: $oB R1,1i$ ;ARE WE DONE 
MOV 04,R1 sINIT COUNTER 
3$: CMP (R2)+,0177777 31S DATA CORRECT 
BEQ 4$ ;YES GO ON 
CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
sNO GO TO ERROR 
4$: SoB R1,3$ ;ARE WE DONE 
CMP R3, #204 sCHECK FPS 
BEQ 5$ ;0K GO ON 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 











COKDADO KDJ11-B CLUSTER DIAG. 


104003 


11652 
11653 056206 012637 
000167 


004737 
104003 


000006 
000240 


11672 056230 005037 
013746 
012737 
012702 
170102 
012705 
‘11678 056260 012704 
012724 
077503 
170467 
170203 
11683 056300 012701 
012702 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


r 
| 
| 
FLOATING POINT TESTS 
000006 
000240 





140054 
000004 
056352 
000200 
000004 
003162 
177777 


124664 
000004 
003162 
000000 
140132 
000204 
140132 
000004 


000010 
140132 


5$: 


3 
TSF 22: 


STEST FOST SOP 


3 
TSFP23: 


100$: 


2s: 








M16 
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+3 


(SP )+,a04 
FIN22 


QODETFPA 


« 


04,R5 
@TSTLOC, R4 
0177777, CR4)+ 
RS, 100% 
TSTLOC 

R3 

04,R1 

@TSTLOC ,R2 
CR2)+,00 


2s 
aeDETFPA 
+3 


R1,1$ 
R3, #204 


3$ 
QeDETFPA 
+3 

(SP )-+ ,ae4 
FIN23 
— 


FOST SOP MONDE 7 GR7 


SEQ 0207 


;FPP ERROR 
sNO GO TO ERROR 
sRESTORE VECTOR 


sSAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
;SETUP TO LOAD FPS 

;SET FD=1 

31S DATA CORRECT 

sYES GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
3;FPP ERROR 


sINIT COUNTER 

sSETUP POINTER TO TESS LOCATION 
sNO GO TO ERROR 

sARE WE DONE 


sINIT TEST LOCATION 
sCHECK FPS 


sDETERMINE FLOATING POINT FAULT. $$$ 

sARE WE DONE 

; TEST INSTRUCTION 

0K GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 


3;FPP ERROR | 
3000 ADDRESS TRAP 

sRETURN 

;CLEAR TRAP FLAG 

;GET FPS 

sINIT COUNTER 

sSETUP POINTER TO DATA 

sNO GO TO ERROR 

sRESTORE VECTOR 


sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
s0DD ADDRESS TRAP 





COKDADO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT 


f 
' 
| 
11712 
11713 
i 
‘ 
| 


056364 


056564 


TESTS 


005037 
013746 
012737 
012702 
170102 
012705 
012704 
012724 
077503 
012737 
170477 
170203 
012702 
012701 
022227 
001403 
004737 
104003 


077107 
022227 
001403 
004737 
104003 


012701 
022227 
001403 
004737 
104003 
077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


000006 
000240 


005037 


140054 


000004 
056552 
000200 


000010 
003162 
177777 


003162 
124532 


003162 
000004 
000000 


140132 


003162 
140132 


000003 
177777 
140132 


000204 
140132 
000004 


000010 
140132 


140054 





bi 
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SEQ 0208 
TSFP24: 
a 
CLR OeTRPFLG ;CLEAR TRAP FLAG 
MOV 804 ,-(SP) sSAVE TIMEOUT VECTOR 
000004 MOV OTSF 24,804 sSETUP NEW VECTOR 
MOV #200 ,R2 ;SETUP TO LOAD FPS 
LOFPS R2 3SET FD#1 
MOV #8. ,RS sINIT COUNTER 
MOV #TSTLOC ,R4 sSETUP TEST LOCATION POINTER 
100$: MOV 0177777 ,(R4)-« sINIT TEST LOCATION 
S0B RS,100$ sARE WE DONE 
003172 MOV @TSTLOC ,@@TSTLOC+10 sINIT TEST LOCATION 
CLRD @TSTLOC+10 s TEST INSTRUCTION 
STFPS R33 ;GET FPS 
MOV @TSTLOC ,R2 sSETUP POINTER TO DATA 
MOV 64 ,R1 sINIT COUNTER 
1$: CMP CR2)+,00 31S DATA CORRECT 
BEQ 2s sYES GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
sNO GO TO ERROR 
2s: SoB R1,1$ sARE WE NONE 
CMP CR2)+, @TSTLOC 3IS DATA CORRECT 
BEQ 3$ :YES GO ON 
CALL ODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 3 3;FPP ERROR 
:NO GO TO ERROR 
3$: MOV #3,R1 sINIT COUNTER 
4$: CrP (R2)+,0177777 :IS DATA CORRECT 
BEQ 5$ sYES GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
sNO GO TO ERROR 
5$: S0B R1,4$ ;ARE WE DONE 
CMP R3, 9204 ;CHECK FPS 
BEQ 6$ ;0K GO ON 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR «3 3;FPP ERROR 
:NO GO TO ERROR 
6$: MOV (SP )+,a04 sRESTORE VECTOR 
JMP FIN24 
3 
TSF24: CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
;00D ADDRESS TRAP 
RTT F 
FIN24: NOP 
3 
; 
3 --—8““8e eee eee eee eee ew ew ew ewww ew ww eee 
;TEST CLRF 
° 
H 
TSFP25: 
3 
CLR aeTRPFLG ;CLEAR TRAP FLAG 








i 


COKDADO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT 


11771 
11772 


056746 
056752 


056754 
056760 
056764 
056770 


TESTS 


005002 
170102 
012705 
012704 
012724 
077503 


012702 
012701 
022227 
001403 
004737 
104003 


077107 
012701 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


005037 
005004 
170104 
170567 
170203 
020327 
001403 
004737 
104003 


012704 
012702 
004767 
170537 


000004 
003162 
177777 


003162 


003166 
140132 
003162 
000002 
000000 


140132 


000002 
177777 
140132 


000004 
140132 


140132 


057236 
057266 
000224 
057246 


MACRO YOS.02 


100$: 


1$: 
2s: 


3$: 
4$: 


5$: 


6$: 
F 
F 








C1 
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#TSTLOC,R4 
0177777, CR4)+ 
RS,100$ 
#TSTLOC,R2 
(R2)< 

R3 
ee 
QeDETFPA 

+3 

#TSTLOC ,R2 
#2,R1 
(R2)+,#0 

3$ 

OeDETFPA 

+3 

R1,2$ 

#2,R1 
ati 


;SETUP TO LOAD FPS 
sSET FD=0 
sINIT COUNTER 
sSETUP POINTER TO TEST LOCATION 
sINIT TEST LOCATION 
sARE WE DONE 
sSETUP POINTER TO DATA 
s TEST INSTRUCTION 
;GET FPS 
;I1S R2 CORRECT 
;YES GO ON 
;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


sNO GO TO ERROR 
sSETUP POINTER TO DATA 

sINIT COUNTER 

:IS DATA CORRECT 

;YES GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:NO GO TO ERROR 

sARE WE DONE 

sINIT COUNTER 

:IS DATA CORRECT 

sYES CO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 

sARE WE DONE 

;CHECK FPS 

;0K GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 


; 
TSFP26: 
3 


1$: 





@¢TRPFLG 
R4 

R4 
TS26D0 
R3 

R3,04 

1$ 
aeDETFPA 


+ 


#TS26D0,R4 
#TS2603 ,R2 
PC ,CHEC26 
a¢TS26D01 


sCLEAR TRAP FLAG 

;SETUP TO LOAD FPS 

;SET FD=0 

; TEST INSTRUCTION 

3;GET FPS 

;CHECK FPS 

:0K GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:NO GO TO ERROR 

;SETUP POINTERS TO DATA 


; 
sCHECK IF DATA IS CORRECT 
; TEST INSTRUCTION 





SEQ 0209 


D1 
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sNO GO TO ERROR 


| 
COKDADO KDJ11-B8 CLUSTER DIAG. 
SEQ 0210 
FLOATING POINT TESTS 
11830 056774 170203 STFPS R3 GET FPS 
11831 056776 020327 000010 CMP R3,010 ;CHECK FPS 
11832 057002 001403 BEQ 2s :O0K GO ON 
11833 057004 004737 140132 CALL QeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
11834 057010 104003 ERROR +3 FPP ERROR 
11835 sNO GO TO ERROR 
11836 057012 012704 057246 2$: MOV #TS2601,R4 sSETUP POINTERS TO DATA 
11837 057016 012702 057276 MOV #TS26D04 ,R2 $ 
11838 057022 004767 000166 JSR PC, CHEC26 ;CHECK IF DATA IS CORRECT 
11839 057026 170567 000224 TSTF TS26D2 3; TEST INSTRUCTION 
11840 057032 170203 STFPS R3 sGET FPS 
11841 057034 020327 000000 CMP R3, 90 ;CHECK FPS 
11842 057040 001403 BEQ 3$ ;0K GO ON 
11843 057042 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11844 057046 104003 ERROR + ;FPP ERROR 
11845 sNO GO TO ERROR 
11846 057050 012704 057256 3$: MOV #TS26D02 ,R4 sSETUP POINTERS TO DATA 
11847 057054 012702 057306 MOV #TS26D05,,R2 ; 
11848 057060 004767 000130 JSR PC, CHEC26 ;CHECK IF DATA IS CORRECT 
11849 657064 012704 000200 MOV #200 ,R4 ;SETUP TO LOAD FPS 
11850 057070 170104 LOFPS R4 sSET FD=1 
11851 057072 170537 057236 TSTD a#TS26D00 ; TEST INSTRUCTION 
11852 057076 170203 STFPS R3 ;GET FPS 
11853 057100 0206327 000204 CMP R3, #204 sCHECK FPS 
11854 057104 001403 BEQ 4$ ;0K GO ON 
11855 057106 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11856 057112 104003 ERROR +3 ;FPP ERROR 
11857 sNO GO TO ERROR 
11858 057114 012704 057236 4$: MOV #TS26D0,R4 sSETUP POINTERS TO DATA 
11859 057120 012702 057266 MOV #TS26D3,R2 3 
11860 057124 004767 000064 JSR PC ,CHEC26 sCHECK IF DATA IS CORRECT 
11861 057130 170567 000112 TSTD TS26D1 ; TEST INSTRUCTION 
11862 057134 170203 STFPS R3 ;GET FPS 
11863 057136 020327 000210 CMP R3,%210 ;CHECK FPS 
11864 057142 001403 BEQ S$ ;0K GO ON 
11865 057144 004737 140132 CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
} 11866 057150 104003 ERROR +3 ;FPP ERROR 
11867 sNO GO TO ERROR 
11868 057152 012704 057246 S$: MOV #TS26D1 ,R4 sSETUP POINTERS TO DATA 
11869 057156 012702 057276 MOV #TS26D4 ,R2 3 
11870 057162 004767 000026 JSR PC, CHEC26 ;CHECK IF DATA IS CORRECT 
11871 057166 170567 000064 TSTO TS26D2 3; TEST INSTRUCTION 
11872 057172 170203 STFPS R3 sGET FPS 
11873 057174 020327 000200 CMP R3, #200 s;CHECK FPS 
11874 057200 001403 BEQ 6$ ;0K GO ON 
11875 057202 004737 140132 CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11876 057206 104003 ERROR +3 ;FPP ERROR 
11877 sNO GO TO ERROR 
11878 057210 6$: 
eee 057210 000167 000102 JMP FIN26 
i 
11881 057214 012701 000004 CHEC26: MOV #4,R1 sINIT COUNTER 
11882 057220 022422 1$: CMP CR4)+,CR2)+ 31S DATA CORRECT 
11883 057222 001403 BEQ 2s sYES GO ON 
11884 057224 004737 140132 CALL QeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11885 057230 104003 ERROR +3 ;FPP ERROR 
| 
| 
i, 





eS = 





r-- 


ee 


COKDADO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT 


‘ 
| 
11887 
11888 
11889 
| 
' 


-_---—— 


057232 
057234 


057236 
057240 
057242 
057244 


057316 


057320 


057320 
057324 
057326 
057330 
057334 
057340 
057344 
057346 
057350 
057354 
057356 
057360 
057364 
057366 
057372 


057374 
057400 
057404 
057410 
057412 


TESTS 


077106 
000207 


000177 
177777 
177777 
177777 
177777 
000000 
000000 
000000 
077777 
000000 


000000 
000000 
000177 
177777 
177777 
177777 
177777 


005037 
005005 
170105 
012701 
012704 
012703 
012324 
077102 
012705 
170615 
170203 
020527 
001403 
004737 
104003 


012702 
004767 
020327 
001403 
004737 


140054 


000014 
003162 
057600 


003162 


003162 
140132 
057630 
000152 
000000 


140132 
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SEQ 0211 
2s: SOB R1i,1$ s;ARE WE DONE 
RTS PC ;RETURN 
3 
TS26D0: .WORD 177 
«WORD 177777 
-WORD 177777 
-WORD 177777 
TS26D1: .WORD 177777 
-WORD 0O 
-WORD 0O 
. WORD 
TS26D2: .WORD 77777 
. WORD 
-WORD O 
-WORD 0O 
TS26D3: .WORD 177 
«WORD 177777 
-WORD 177777 
-WORD 177777 
TS2604: .WORD 177777 
-WORD 0O 
-WORD O 
. WORD 
TS2605: .WORD 77777 
-WORD O 
-WORD 0O 
-WORD O 
FIN26: NOP 
; 
3 --“<8s ee eo ew ee we ew we ewe wee ew www Oe ee 
;TEST ABSF 
; 7 
TSFP27: 
; 
CLR a¢TRPFLG ;CLEAR TRAP FLAG 
CLR RS s;SETUP TO LOAD FPS 
LOFPS RS ;SET FD=0 
MOV #12.,R1 sINIT COUNTER 
MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
MOV #TS27D0,R3 sSETUP POINTER TO TEST VALUE 
100$: MOV C(R3)+,CR4)+ sINIT TEST LOCATION 
SOB R1,100$ ;ARE WE DONE 
MOV #TSTLOC,RS ;SETUP POINTER TO DATA 
ABSF ) ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
CMP RS,@TSTLOC IS RS CORRECT 
BEQ i$ ;YES GO ON 
CALL QeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
1$: MOV #TS27D3,R2 sSETUP POINTER TO DATA 
JSR PC ,CHEC27 ;CHECK IF DATA IS CORRECT 
CMP R3, #0 ;CHECK FPS 
BEQ es :0K GO ON 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 








. = - ne ee ee eee 


Fi 


12002 057624 136477 -WORD 136477 


{ 
| 
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SEQ 02 
FLOATING POINT TESTS - 
11946 057416 104003 ERROR +3 ;FPP ERROR 
11947 ;NO GO TO ERROR 
11948 057420 012705 003172 2s: MOV #TSTLOC+10,R5 ;SETUP POINTER TO DATA 
11949 057424 170625 ABSF CRS)+ ; TEST INSTRUCTION 
11950 057426 170203 STFPS R3 ;GET FPS 
11951 057430 020527 003176 CMP RS, @TSTLOC+14 s;IS RS CORRECT 
11952 057434 001403 BEQ 3$ sYES GO ON 
11953 057436 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11954 057442 104003 ERROR +3 ;FPP ERROR 
11955 sNO GO TO ERROR 
11956 057444 012705 003172 3$: MOV #TSTLOC+10,R5 sSETUP POINTER TO DATA 
11957 057450 012702 057640 MOV #TS27D04 ,R2 : 
11958 057454 004767 000076 JSR PC ,CHEC27 ;CHECK IF DATA IS CORRECT 
11959 057460 020327 000000 CMP R3,#0 ;CHECK FPS 
11960 057464 001403 BEQ 4s ;0K GO ON 
11961 057466 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11962 057472 104003 ERROR +3 ;FPP ERROR 
11963 sNO GO TO ERROR 
11964 057474 012705 003162 4$: MOV #TSTLOC,RS ;SETUP POINTER TO DATA 
11965 057500 170665 000020 ABSF 20(R5S) ; TEST INSTRUCTIOM 
11966 057504 170203 STFPS R3 ;GET FPS 
11967 057506 020527 003162 CMP RS,#TSTLOC 3IS RS CORRECT 
11968 057512 001403 BEQ S$ sYES GO ON 
11969 057514 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11970 057520 104003 ERROR +3 ;FPP ERROR 
11971 sNO GO TO ERROR 
11972 057522 012705 003202 S$: MOV #TSTLOC+20,R5 sSETUP POINTERS TO DATA 
11973 057526 012702 057650 MOV #TS2705,R2 ; 
11974 057532 004767 000020 JSR PC,CHEC27 sCHECK IF DATA IS CORRECT 
11975 057536 020327 000004 CMP R3, #4 s;CHECK FPS 
11976 057542 001403 BEQ 6$ ;0K GO ON 
11977 057544 004737 140132 CALL aeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
11978 057550 104003 ERROR +3 ;FPP ERROR 
11979 sNO GO TO ERROR 
11980 057552 6$: 
fest 057552 000167 000102 JMP FIN27 
11982 ; 
11983 057556 012701 000004 CHEC27: MOV #4 ,R1 sINIT COUNTER 
11984 057562 022522 1$: CMP CRS5)+,CR2)+ sIS DATA CORRECT 
11985 057564 001403 BEQ 2s ;YES GO ON 
11986 057566 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11987 057572 104003 ERROR +3 ;FPP ERROR 
11988 sNO GO TO ERROR 
11989 057574 077106 2$: SOB Ri,1$ s;ARE WE DONE 
tte 057576 000207 RTS PC sRETURN 
11991 ; 
11992 057600 177777 TS27D0: .WORD 177777 
11993 057602 177777 -WORD 177777 
11994 057604 177777 «WORD 177777 
11995 057606 177777 -WORD 177777 
11996 057610 000377 TS27D1: .WORD 377 
11997 057612 175436 -WORD 175436 
11998 057614 136477 -WORD 136477 
11999 057616 000001 -WORD 1 
12000 057620 000177 TS27D2: .WORD 177 
12001 057622 175436 -WORD 175436 
| 
' 


— — 
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057626 
057630 
057632 
057634 
057636 
057640 
057642 
057644 
057646 
057650 
057652 
057654 
057656 
057660 


057662 


057662 
057666 
057672 
057674 
057700 
057704 
057710 
057712 
057714 
057720 
057722 
057724 
057730 
057732 
057736 


057740 
057744 
057750 
057754 
057756 
057762 


000001 
077777 


005037 
012705 
170105 
012701 
012704 
012703 
012324 
077102 
012705 
170615 
170203 
020527 
001403 
004737 
104003 


012702 
004767 
020327 
001403 
004737 
104003 


012705 
170625 
170203 
020527 
001403 
004737 
104003 


012705 
012702 
004767 
020327 


140054 
000200 


000014 


003162 
060144 


003162 


003162 
140132 
060174 
000152 
000200 


140132 


003172 


003202 
140132 


003172 
060204 
000076 
000200 
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SEQ 0213 
. WORD 
TS27D3: .WORD 77777 
-WORD 177777 
-WORD 177777 
-WORD 177777 
TS2704: .WORD 377 
-WORD 175436 
-WORD 136477 
-WORD 1 
TS270S: .WORD 0 
. WORD 
-WORD 136477 
. WORD 
FIN27: NOP 
‘ 
; 
; TEST ABSD 
; 
TSFP30: 
; 
CLR O¢TRPFLG ;CLEAR TRAP FLAG 
MOV #200,R5 sSETUP TO LOAD FPS 
LOFPS RS sSET FD=1 
MOV #12.,R1 sINIT COUNTER 
MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
MOV #TS30D0,R3 sSETUP POINTER TO TEST VALUE 
100$: MOV CR3)+,CR4)+ sINIT TEST LOCATION 
SOB R1,100$ sARE WE DONE 
MOV #TSTLOC,RS ;SETUP POINTER TO DATA 
ABSD CRS) ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
CMP RS, #TSTLOC sIS RS CORRECT 
BEQ 1$ ;YES GO ON 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
1$: MOV #TS30D03,R2 sSETUP POINTER TO DATA 
JSR PC, CHEC30 sCHECK IF DATA IS CORRECT 
CMP R3, #200 ;CHECK FPS 
BEQ 2¢ :0K GO ON 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 :FPP ERROR 
sNO GO TO ERROR 
2s: MOV #TSTLOC+10,R5 ;SETUP POINTER TO DATA 
ABSD CRS)+ ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
CMP RS,#TSTLOC+20 ;IS RS CORRECT 
BEQ 3$ sYES GO ON 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
3$: MOV #TSTLOC+10,R5 ;SETUP POINTERS TO DATA 
MOV #TS30D4 ,R2 ; 
JSR PC,CHEC30 ;CHECK IF DATA IS CORRECT 
CMP R3, #200 :CHECK FPS 











o---- 


ee 


001403 
004737 
104003 


012705 


012705 
012702 
004767 
020327 
001403 
004737 
104003 


000167 


012701 
022522 
001403 
004737 
104003 


077106 
000207 


177777 
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140132 
003162 
000020 
003162 
140132 
003202 
060214 
000020 
000204 


140132 


000102 
000004 


140132 





Hi 
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4$: 


5$: 


6$: 


; 
CHEC30: 
1$: 


2s: 


TS30D0: . 
TS30D1: . 
TS30D2: . 
TS30D3: . 


TS30D4: . 


TS30D5S: 


FINSO: 


BEQ 
CALL 
ERROR 


MOV 
ABSD 
A 


“WORD 
NOP 





4$ 
aeDETFPA 
+3 


@TSTLOC,RS 
20(R5S) 


R3 
RS,#TSTLOC 
S$ 
aeDETFPA 


+ 


#TSTLOC+20,R5 
#TS3005 ,R2 
PC,CHEC30 

R3, #204 


6$ 
gaan 


FIN3O 


#4,R1 
CRS)+,CR2)+ 


2$ 
aeDETFPA 
+3 


R1,1$ 
PC 


177777 


136477 
1 

177 
175436 
ts 


;0K GO O 


IN 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


;GET FPS 
sIS RS CORRECT 
sYES GO ON 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 
;SETUP POINTERS TO DATA 


:CHECK IF DATA IS CORRECT 
;CHECK FPS 


0K GO ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 


sINIT COUNTER 
:IS DATA CORRECT 
sYES GO ON 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

sNO GO TO ERROR 
sARE WE DONE 
sRETURN 


$$$ 


$$$ 


SEQ 0214 





1 
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SEQ 0215 
FLOATING POINT TESTS 1 

12119 3 
12122 ; 
12123 poco ee 
12124 ;TEST FDST SOP MODE 2 GR7 
12125 ; 
12126 060226 TSFP31: 

H 
12128 060226 005037 140054 CLR aeTRPFLG ;CLEAR TRAP FLAG 
12129 060232 013746 000004 MOV 904, -(SP) ;SAVE TIMEOUT VECTOR 
12130 060236 012737 060354 MOV OTSF31, 004 ;SETUP NEW VECTOR 
12131 060244 012702 000200 MOV #200,R2 ;SETUP TO LOAD FPS 
12132 060250 170102 | LOFPS R2 ;SET FD=1 
12133 060252 170527 000005 TSD31: TSTD 45 ; TEST INSTRUCTION 
12134 060256 000240 NOP 
12135 060260 000240 NOP 
12136 060262 000240 NOP 
12137 060264 170203 STFPS R3 ;GET FPS 
12138 060266 020327 000204 CMP R3, #204 ;CHECK FPS 
12139 060272 001403 BEQ 1$ ;0K GO ON 
12140 060274 004737 140132 CALL  @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12141 060300 104003 ERROR +3 ;FPP ERROR 
12142 ;NO GO TO ERROR 
12143 060302 012702 060254 1s: MOV #TSD31+2,R2 ;SETUP POINTER TO DATA 
12144 060306 022227 000005 CMP (R2)+,#5 ;1S DATA CORRECT 
12145 060312 001403 BEQ 2$ ;YES GO ON 
12146 060314 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12147 060320 104003 ERROR +3 ;FPP ERROR 
12148 ;NO GO TO ERROR 
12149 060322 012701 000003 2$ MOV #3,R1 ;INIT COUNTER 
12150 060326 022227 000240 3$ CMP (R2)+,#240 ;1S DATA CORRECT 
12151 060332 001403 BEQ 4s ;YES GO ON 
12152 060334 004737 140132 CALL § @#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12153 060340 104003 ERROR +3 ;FPP ERROR 
12154 ;NO GO TO ERROR 
12155 060342 077107 4s SOB R1,3$ ;ARE WE DONE 
12156 060344 012637 000004 MOV (SP)+,a04 ;RESTORE VECTOR 
12157 060350 000167 000010 JMP FIN31 
121 3 
12159 060354 004737 140132 TSFZi: CALL  a#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12160 060360 104003 ERROR +3 ;FPP ERROR 
12161 ;0DD ADDRESS TRAP 
12162 060362 000006 RTT ; RETURN 

1 

12164 060364 000240 FIN31: NOP 
12165 
12168 
12169 iucenth senniieneneaneneETe 
12170 ;TEST NEGF 
12171 3 
12172 ; 
12173 060366 TSFP32: 
12174 , 
12175 060366 005037 140054 CLR aeTRPFLG :CLEAR TRAP FLAG 
12176 060372 005005 CLR RS ;SETUP TO LOAD FPS 
12177 060374 170105 LOFPS RS ;SET FD=0 
12178 060376 012701 000014 MOV #12.,R1 ;INIT COUNTER 
12179 060402 012704 003162 MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 











FLOATING POINT 


12180 060406 
060412 


-_ <-> 


TESTS 


012703 
012324 
077102 
170767 
170203 
012705 
012702 
004767 
020327 
001403 
004737 
104003 


170767 
170203 


000167 


012701 
022522 
001403 
004737 
104003 


077106 
000207 


f 

! 
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140132 
122464 
003202 


060646 
000020 
000004 


140132 
000102 
000004 


140132 





sSETUP POINTER TO TEST VALUE 
;INIT TEST LOCATION 
sARE WE DONE 
; TEST INSTRUCTION 
;GET FPS 
sSETUP POINTERS TO DATA 


; 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


sYES GO ON 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 
; TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


3 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;0K GO ON 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


sNO GO TO ERROR 
; TEST INSTRUCTION 
;GET FPS 
sSETUP POINTERS TO DATA 


; 

;CHECK IF DATA IS CORRECT 
sCHECK FPS 

;0K GO O 


N 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO GO TO ERROR 


sINIT COUNTER 
sIS DATA CORRECT 
;YES GO ON 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

:NO GO TO ERROR 
;ARE WE DONE 
;RETURN 
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MOV #TS32D0,R3 

100$: MOV CR3)+,CR4)+ 
S08 R1,100$ 
NEGF TSTLOC 
STFPS R3 
MOV #TSTLOC,RS 
MOV #TS32D3 ,R2 
JSR PC ,CHEC32 
CMP R3,%0 
BEQ i$ 
CALL OeDETFPA 
ERROR 3 

i$: NEGF TSTLOC+10 
STFPS R3 
MOV #TSTLOC+10,R5 
MOV #TS32D4 ,R2 
JSR PC ,CHEC32 
CMP R3, #10 
BEQ 2s 
CALL aeDETFPA 
ERROR +3 

2s: NEGF TSTLOC+20 
STFPS R3 
MOV #TSTLOC+20,R5 
MOV #TS32D05,R2 
JSR PC, CHEC32 
CMP R3, #4 
BEQ 3$ 
CALL OeDETFPA 
ERROR +3 

3$: 
JMP FIN32 

3 

CHEC32: MOV #4,R1 

1$: CMP CR5)+,CR2)+ 
BEQ 2$ 
CALL asDETFPA 
ERROR +3 

2$: SOB R1,1$ 
RTS PC 

H 

TS32D0: .WORD 170000 
-WORD 3541 
-WORD 177777 
-WORD 172710 

TS32D1: .WORD 70000 
-WORD 3541 
WORD 177777 
-WORD 172710 
-WORD 177 
-WORD 100000 
. WORD 177777 
-WORD 177007 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0216 


——— 


f 
i 
! 
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12237 060626 070000 
12238 060630 003541 


12277 060750 170767 
12278 060754 170203 
12279 060756 012705 
12280 060762 012702 
12281 060766 004767 
12282 060772 020327 
12283 060776 001403 
12284 061000 004737 
12285 061004 104003 


12287 061006 170767 
12288 061012 170203 
12289 061014 012705 
12290 061020 012702 
12291 061024 004767 
12292 061030 020327 
12293 061034 001403 
12294 061036 004737 
12295 061042 104003 


140054 
000200 


000014 
003162 
061072 


122244 
003162 
061122 
000114 
000200 


140132 


122216 


003172 
061132 
000056 
000210 


140132 


122170 


003202 
061142 
000020 
000204 


140132 





MACRO YOS.02 





K1 


TS32D03: .WORD 70000 


TS32D4: .WORD 170000 


TS32D5: .WORD 
“WORD 0 
“WORD 177777 
“WORD 177007 

FIN32: NOP 

3 

b 

3 -<—<“se ween eneneneceneceneneneneneceene eee eee eee 

;TEST NEGD 

3 

TSFP33: 

H 
CLR @éTRPFLG 
MOV #200,R5 
LOFPS RS 
MOV #12.,R1 
MOV #TSTLOC,R4 
MOV #TS33D0.R3 


100$: MOV CR3)+,CR4)+ 


MOV #TSTLOC,RS 
MOV #TS33D3,R2 


JSR PC,CHEC33 

CMP R3,#200 

BEQ 1$ 

CALL O#DETFPA 

ERROR +3 ;FPP E 

;NO GO 

1$: NEGD TSTLOC+10 

STFPS R33 

MOV #TSTLOC+10,R5 

MOV #TS3304 ,R2 


JSR PC ,CHEC33 
CMP R3,#210 
BEQ 2s 

CALL aeDETFPA 
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SEQ 0217 


;CLEAR TRAP FLAG 
sSETUP TO LOAD FPS 
sSET FD=1 
sINIT COUNTER 
sSETUP POINTER TO TEST LOCATION 
sSETUP POINTER TO TEST VALUE 
sINIT TEST LOCATION 
sARE WE DONE 
; TEST INSTRUCTION 
;GET FPS 
sSETUP POINTERS TO DATA 


; 
sCHECK IF DATA IS CORRECT 
sCHECK FPS 


;0K GO ON 
s;DETERMINE FLOATING POINT FAULT. $$$ 


RROR 
TO ERROR 
s TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


F 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


0K GO ON 
sDETERMINE FLOATING POINT FAULT. $$$ 


sNO GO TO ERROR 


; TEST INSTRUCTION 
;GET FPS 
;SE*UP POINTERS TO DATA 


F 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


ERROR +3 ;FPP ERROR 
2s: NEGD TSTLOC+20 

STFPS R3 

MOV #TSTLOC+20,R5 

MOV #TS33D05,R2 

JSR PC, CHEC33 

CMP R3, #204 

BEQ 


3$ 
CALL aeDETFPA 


:0K GO ON 
;DETERMINE FLOATING POINT FAULT. $$$ 


ERROR +3 ;FPP ERROR 





—— ——— + 








COKDADO KDJ11-8 CLUSTER DIAG. 


12298 061044 000167 
12300 061050 012701 


12345 061154 012704 
12346 061160 170104 
12347 061162 012702 
12348 061166 172407 


12350 061170 170201 
12351 061172 022701 
12352 061176 001403 
12353 061200 004737 


[ 
! 
| 
FLOATING POINT TESTS 
| 12354 061204 104003 





000102 
000004 


140132 


047600 
003122 


147600 
140132 


Li 
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3$: 


3 
CHEC33: 
1$: 


2s: 


TS33D0: . 
TS33D1: . 
TS33D2: . 
TS33D3: . 
TS33D4: . 


TS3305: . 


FIN33: 


NOP 


FIN33 


sNO GO TO ERROR 


sINIT COUNTER 


04,R1 
CR5)+,CR2)+ 3IS DATA CORRECT 


2s 
BODE TFPA 


oa 


R1,1$ 
PC 


GO ON 
sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:NO GO TO ERROR 
sARE WE DONE 
;RETURN 


sTEST LDD MODE 0, ILLEGAL AC7 


MFSRCMO: | 


1$: 


#47600 ,R4 
R4 

@RECFEC ,R2 
R7,ACO 

Ri 
#147600,R1 
es 
—— 





sSETUP FPP STATUS 

;LOAD FP STATUS 

sPOINT TO RECEIVED FEC MEMORY 

s#TEST INSTRUCTION 

sLOAD ACO FROM ILLEGAL AC7 

;SAVE FPP STATUS 

;VERIFY FER BIT SET 

s;BRANCH IF GOOD ERROR CONDITION 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 





SEQ 0218 








M1 


f 
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SEQ 0219 
FLOATING POINT TESTS 
12355 ;THE FER BIT DIDNT SET 
12356 061 170312 2s: STST (R2) sSAVE FEC AND FEA 
12357 061210 022722 000002 CMP #2,(R2)+ sVERIFY FEC CONTENTS 
12358 061214 001403 BEQ 3$ ;BRANCH IF GOOD 
12359 061216 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12360 061222 104003 ERROR +3 3;FPP ERROR 
12361 sFEC NE 2 COPCODE ERROR) 
12362 061224 022722 061166 3$: CMP #1$,CR2)< ;VERFIY FEA CONTENTS 
12363 061230 001403 BEQ 4s ;BRANCH FI GOOD 
12364 061232 004737 140132 CALL OODETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12365 061236 104003 ERROR +3 3;FPP ERROR 
12366 ;FEA NOT CORRECT ERROR ADDRESS 
12367 061240 4$: 
12370 . 
1237200 nn ee ee ee ee ee eee eee 
12372 sTEST LOD MODE2 
12373 
ears 061240 MLDOM2: 
PF 

12376 061240 012701 003142 MOV @RECDST,R1 sPOINT TO RECEIVED DATA LOCATION 
12377 061244 012704 003234 MOV #TAB1,R4 sPOINT TO GOOD DATA 
12378 061250 012702 047750 MOV #47750 ,R2 ;LOAD GOOD STATUS 
12379 061254 170102 LOFPS Re2 ;LOAD FPP STATUS - DOUBLE,ID 
12380 061256 172424 LOD (R4)+,ACO s#TEST INSTRUCTION - MODE 2 
12381 061260 170203 STFPS R3 sSAVE TEST FPP STATUS 
12382 061262 174021 STD ACO,C(R1)+ sSAVE TEST RESULT MODE 2 
12383 061264 020203 CMP R2,R3 ;VERIFY FPP STATUS 
12384 061266 001403 BEQ 1$ sBRANCH IF GOOD 
12385 061270 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12386 061274 104003 ERROR +3 3;FPP ERROR 
12387 ;BAD FPP STSTUS 
12388 061276 022704 003244 i$: CMP $TAB1+10,R4 sVERFIY AUTO-INCR 
12389 061302 001403 BEQ 2s sBRANCH IF GOOD 
12390 061304 004737 140132 CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12391 061310 104003 ERROR +3 3;FPP ERROR 
12392 ;BAD AUTO-INCR 
12393 061312 012704 003234 2s: MOV #TAB1,R4 sPOINT TO RECEIVED DATA 
12394 061316 162701 000010 SUB #10,R1 sRETURN R1 TO PROPER VALUE 
12395 061322 004767 056552 JSR P7.DATVER ;VERFIY DATA FROM FPP 
12396 061326 005767 121566 TST CuunT ;SEE IF COUNTER=0 
12397 061332 001403 BEQ 3$ sBRANCH IF GOOD COMPARE 
12398 061334 004737 140132 CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12399 061340 104003 ERROR +3 ;FPP ERROR ;BAD DATA FROM FPP 
12400 061342 3$: 
12401 F 
12404 
124058 ee ee eee ee eee ee eee ee +--+ --- 
12406 sTEST LOD MODE 3 
12407 
pete 061342 MLODM3: 
12410 061342 012737 003142 003164 MOV @RECDST , @#TSTLOC+2 sPOINT TO RECEIVED DATA LOCATION 
12411 061350 012701 003164 MOV @TSTLOC+2,R1 sSETUP STD IN MODE 3 
12412 061354 012737 003244 003162 MOV #TAB2,@@TSTLOC sPOINT TO DATA TABLE 
12413 061362 012704 00316 MOV @TSTLOC ,R4 sPOINT TO GOOD DATA 
12414 061366 012702 047750 MOV #47750,R2 ;LOAD GOOD STATUS 

| 12415 061372 170102 LOFPS R2 ;LOAD FPP STATUS - DOUBLE.ID 














COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


12416 
12417 
12418 
12419 
12420 


061374 
061376 


TESTS 


001403 


012701 


047740 
140132 


003164 
140132 


003166 
140132 
003244 
003142 
056416 
121432 


140132 


003146 
003260 
003314 
000200 


047550 


047750 


047540 
140132 


003254 
240132 


003254 


1%: 


2s: 


3$: 


Ni 
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@(R4)+,ACO 
R3 


ACO, @(R1)- 
047740 ,R3 


1$ 
QeDETFPA 
+3 


@TSTLOC+2,R4 


2s 
@ODETFPA 
«3 


oe 
@eDETFPA 

+3 

OTAB] ,R4 
@RECDST,R1 


oe a 


3;FPP 
;BAD 


sTEST LOF, STD MODE 4 
MLODM4 : 


1$: 


2s: 








@RECDST+4,R1 
OTAB3+4,R4 
@TABE,RS 
#200 
CRS),ACO 
047550,R2 
R2 

R3 
ira 


2 
ACO, -(R1) 
047540,R3 


i$ 
~ tates 


OTABS ,R4 
es 
@ODETFPA 
+3 


@TABS,R4 


sFPP E 


;BAD 


;FPP 
;BAD 





s#TEST INSTRUCTION - MODE 2 
sSAVE TEST FPP STATUS 
sSAVE TEST RESULT IN MODE 3 
sVERIFY FPP STATUS 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $99 
ERROR 
FPP STSTUS 
sVERFIY AUTO-INCR 
sBAD AUTO-DEC ON LOD 
— FLOATING POINT FAULT. $$$ 


ERR 
AUTO-INC 
s TEST STD AUTO-INC 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 
AUTO-INCR 

sPOINT TO RECEIVED DATA 

sPOINT TO RECEIVED DATA 

sVERFI? DATA FROM FPP 

sSEE IF COUNTER=0 

sBRANCH IF GOOD COMPARE 

sDETERMINE FLOATING POINT FAULT. $$% 


ERROR 
DATA FROM FPP 


sPOINT TO oat oat re LOCATION 
sPOINT TO GOOD DAT 
sCLEAR OUT ACO 
sSET TO DOUBLE 
sACO=0 
sLOAD GOOD STATUS FLOATING 
sLOAD FPP STATUS - DOUBLE,ID 
s*#TEST INSTRUCTION - MODE 4 
sSAVE TEST FPP STATUS 
sSET TO DOUBLE MODE 
sSET FPP TO DOUBLE 
sSAVE TEST " ZSULT 
sVERIFY FPP STATUS 
sBRANCH IF GOOD 
ees FLOATING POINT FAULT. $$$ 


R 
FPP STSTUS 
sVERFIY AUTO-DEC 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 
AUTO-INCR 
sPOINT TO RECEIVED DATA 





SEQ 0220 





COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


12475 061576 
12476 061602 


TESTS 


004767 
005767 
001403 
004737 
104003 


012701 
012704 
012737 
012702 
170102 
172454 
170203 
174011 
020203 
001403 
004737 
104003 


022704 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


012701 
012704 
012702 
170102 
172464 
170203 
174061 
022703 
001403 
004737 
104003 


056276 
121312 


140132 


003142 
003164 
003234 
047750 


140132 


003162 
140132 
003234 
056172 
121206 


140132 


003342 
003044 
047750 
000200 


177600 
047740 


140132 





Be 


sVERFIY DATA FROM FPP 
sSEE IF COUNTER=0 
sBRANCH IF GOOD COMPARE 


SEQ 0221 


sDETERMINE FLOATING POINT FAULT. $$$ 


sFPP ERROR 
sBAD DATA FROM FPP 
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JSR R7,DATVER 
TST COUNT 
BEQ 3$ 
CALL SODETFPA 
ERROR +3 
3$: 


$ 

MLDODMS : 

8 
MOV @RECDST,R1 
MOV STSTLOC+2,R4 

003162 MOV #TAB1,8eTSTLOC 

MOV #47750 ,R2 
LOFPS Re 
LOD @-(R4),ACO 
STFPS R3 
STD ACO,(R1) 
CMP R2,R3 
BEQ i$ 
CALL QSDETFPA 
ERROR + 

1$: CMP #TSTLOC,R4 
BEQ 2$ 
CALL QeDETFPA 
ERROR «3 

2s: MOV #TAB1,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 3$ 
CALL @eDETFPA 
ERROR +3 

3$: 

3 

3 -<—-<“<“8 2 ee ee en eeenen eee ee eee ew ew eee 

sTEST LDD MODE 6 

3 

MLDDM6 : 

3 
MOV ®RECDST+200,R1 
MOV #TAB2-200,R4 
MOV #47750,R2 
LOFPS R2 
LOD 200(R4),ACO 
STFPS R33 
STD ACO, -200(R1) 
CMP 47740,R3 
BEQ i$ 
CALL QeDETFPA 
ERROR 3 


sPOINT TO RECEIVED DATA LOCATION 


sPOINT TO GOOD DATA 


;SET UP MODE S POINTER TO DATA 


sLOAD GOOD STATUS 

;LOAD FPP STATUS - DOUBLE,ID 
s*TEST INSTRUCTION - MODE 5S 
sSAVE TEST FPP STATUS 

sSAVE TEST RESULT 

sVERIFY FPP STATUS 

sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


;BAD FPP STATUS 
sVERFIY AUTO-DEC 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 


sBAD AUTO-DEC 
sPOINT TO EXPECTED DATA 
sVERFIY DATA FROM FPP 
3;SEE IF COUNTER=0 
sBRANCH IF GOOD COMPARE 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD DATA FROM FPP 


sPOINT TO RECEIVED DATA LOCATION 


;SETUP R4 FOR MODE 6 
sLOAD GOOD STATUS 
sLOAD FPP STATUS - DOUBLE,ID 
s;LO0D MODE 6 
sSAVE TEST FPP STATUS 
sSAVE TEST RESULT 
;VERIFY FPP STATUS 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


$$$ 


$$$ 


$$$ 


$$$ 








COKDADO KDJ11-B8 CLUSTER DIAG. 


162701 
062704 
004767 
005767 
001403 
004737 
104003 


012701 


012701 
012704 


& 
FLOATING POINT TESTS 
005205 


Fein cai i 


056076 
121112 


140132 


003142 


003234 
047750 


003162 


140132 


140132 


003234 
055774 
121010 


140132 


003142 
003274 
047750 


043243 








Le 
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SEQ 0222 


;BAD FPP STATUS 


i$: SUB #200,R1 
2$: ADD #200 ,R4 
JSR R7, DATVER 
TST COUNT 
BEQ 3$ 
CALL OeDETFPA 
ERROR 23 
3$: 


sR1=RECDST 

sPOINT TO EXPECTED DATA 

sVERFIY DATA FROM FPP 

sSEE IF COUNTER=0 

sBRANCH IF GOOD COMPARE 

;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


sBAD DATA FROM FPP 


sTEST LOD MODE 7 


MLODM7: 
3 
MOV #RECDST,R1 sPOINT TO RECEIVED DATA LOCATION 
CLR R4 3R4=0 
003162 MOV #TAB1, @TSTLOC sPOINTER FOR MODE 7 GOOD DATA 
MOV #47750,R2 ;LOAD GOOD STATUS 
LOFPS Re ;LOAD FPP STATUS - DOUBLE,ID 
LOD @TSTLOC(R4), ACO ;*TEST INSTRUCTION - MODE 7 
STFPS R3 ;SAVE TEST FPP STATUS 
STD ACO,CR1) sSAVE TEST RESULT 
CMP R2,R3 ;VERIFY FPP STATUS 
BEQ 1$ sBRANCH IF GOOD 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 3 ;FPP ERROR 
;BAD FPP STATUS 
i$: TST R4 sVERFIY CONTENTS OF R4& 
BEQ 2s ;BRANCH IF GOOD 
CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD R4 
2s: MOV #TAB1,R4 sPOINT TO RECEIVED DATA 
JSR R7,DATVER ;VERFIY DATA FROM FPP 
TST COUNT ;SEE IF COUNTER=0 
BEQ 3$ ;BRANCH IF GOOD COMPARE 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
-" ;BAD DATA FROM FPP 


TEST LDD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED 


HLOM27 : 

+ 
MOV #RECDST,R1 
MOV #TABS ,R4 
MOV #47750,R2 
CLR RS 
LOFPS Re2 
LOD #5205, ACO 
INC RS 
INC RS 
INC RS 








sPOINT TO RECEIVED DATA LOCATION 
sPOINT TO GOOD DATA 

sLOAD GOOD STATUS 

3R5=0 

;LOAD FPP STATUS - DOUBLE,ID 

3*TEST INSTRUCTION - MODE 27 


; TEST PROPER PC PATH 





COKDADO KDJ11-B CLUSTER DIAG. 


12597 062152 
12598 062156 
12599 062160 


| 

| 

| 
FLOATING POINT 
12600 062164 





TESTS 


022705 
001403 


012704 
005067 
005067 
012702 
170102 
172414 
172014 
170203 
022703 
001403 
004737 
104003 


012701 
174011 
004767 
005767 
001403 
004737 
104003 


012702 
170102 
172414 
172014 
174011 
170203 
022703 
001403 
004737 
104003 


000003 
140132 


047740 
140132 
055666 
120702 
140132 


003314 
120710 
120706 
040000 


040004 
140132 


003142 


055574 
120610 


140132 


040200 


040204 
140132 





MACRO YOS.02 


CMP #3,R5 
BEQ i$ 
CALL OeDETFPA 
ERROR +3 

1$: STFPS R3 
STD ACO,CR1) 
CMP #47740 ,R3 
BEQ 2$ 
CALL QeDETFPA 
ERROR +3 

2s: JSR R7,DATVER 
TST COUNT 
BEQ 3$ 
CALL aeDETFPA 
ERROR 23 


;FPP 
;BAD 


STEST ADDF, ADDD, SUBF, SUBD - ACO=0 


MNNRM1 : 

H 
MOV #TAB6 ,R4 
CLR RECDST+4 
CLR RECDST +6 
MOV #40000 ,R2 
LOFPS R2 
LOF (R4),ACO 
ADDF CR4),ACO 
STFPS R3 

MP #40004 ,R3 

BEQ 1$ 
CALL aeDETFPA 
ERROR +3 

1$: MOV #RECDST,R1 
STF ACO,(R1) 
JSR R7,DATVER 
TST COUNT 
BEQ 2$ 
CALL a#DETFPA 
ERROR +3 

2$: MOV #40200 ,R2 
LDOFPS R2 
LOD CR4),ACO 
ADDD CR4),ACO 
STO ACO,(R1) 
STFPS R3 
CMP #40204 ,R3 
BEQ 3$ 
CALL OeDETFPA 
ERROR +3 


;FPP 
;BAD 


3;FPP 
;BAD 


3;FPP 
;BAD 
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sVERIFY ONLY 3 PC INCREMENT 
sBRANCH IF PROPER PC ACTION 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
MODE 27 LOAD 
sSAVE TEST FPP STATUS 
sSAVE TEST RESULT 
;VERIFY FPP STATUS 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


ERROR 

FPP STATUS 
sVERFIY DATA FROM FPP 
sSEE IF COUNTER=0 
s;BRANCH IF GOOD COMPAR 


E 
;DETERMINE FLOATING POINT FAULT. 


ERROR 
DATA FROM FPP 


FSRC=0; 


sPOINT TO FSRC TEST DATA 
s;CLEAR OUT RECEIVED DATA TABLE 


; 

;SET UP GOOD STATUS 

sLOAD FPP STATUS, FLOATING 
sLOAD ACO WITH O 


30+0 

;SAVE STATUS 
;VERIFY STATUS 
;BRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


ERROR 

FPP STATUS 
sPOINT TO RECEIVERD DATA 
sSAVE DATA 
;VERIFY DATA 


; 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


ERROR 
DATA IN ACO 
;LOAD FLOATING STATUS 


3 
;LOAD ACO WITH O 
3*#TEST INSTRUCTION 
;SAVE DATA 

;SAVE FPS 

;VERFIY STATUS 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


ERROR 
FPS 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0223 





COKDADO KDJ11-B CLUSTER DIAG. 


f 
| 
FLOATING POINT 
| 
' 


‘ 
= —-- 


TESTS 


004767 
005737 
001403 
004737 
104003 


172414 
173014 
170203 
022703 
001403 
004737 
104003 


174011 
004767 
005767 
001403 
004737 
104003 


170127 
172414 
173014 
170203 
174011 
022703 
001403 
004737 
104003 


004767 
005767 
001403 
004737 
104003 


012701 
012705 


022703 


055522 
003120 


140132 


040204 
140132 


055456 
120472 


140132 


000000 


000004 
140132 
055406 
120422 
140132 


003142 
003314 
003244 
000200 





MACRO YOS.02 


3$: 


44$: 


4$: 


5$: 


6$: 


7$: 
3 
3 


JSR R7,DATVER 
TST aeCOUNT 
BEQ 44a$ 

CALL QeDETFPA 
ERROR +3 

LOD (R4),ACO 
SUBD (R4),ACO 
STFPS R3 

CMP #40204 ,R3 
BEQ 4s 

CALL QeDETFPA 
ERROR +3 

STD ACO, CR1) 
JSR R7,DATVER 
TST COUNT 

BEQ S$ 

CALL QeDETFPA 
ERROR +3 

LOFPS #0 

LOD CR4),ACO 
SUBF (R4),ACO 
STFPS R3 

STD ACO,(R1) 
CMP ° 

BEQ 6$ 

CALL QeDETFPA 
ERROR +3 

JSR R7,DATVER 
TST COUNT 

BEQ 7$ 

CALL aeDETFPA 
ERROR +3 
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;VERFIY DATA 
;VERIFY RESULT 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sBAD ACO 
sSETUP DATA 
s*TEST INSTRUCTION 
sSAVE STATUS 
;VERFIY STATUS 
s;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
;SAVE ACO DATA 
;VERFIY DATA 


;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD ACO 

sSTORE FPP STATUS 
sLOAD ACO 


30-0 
:SAVE STATUS 
sSAVE ACO 
;VERFIY STATUS 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


:FPP ERROR 
;BAD FPS 
sVERIFY DATAT 


y 
s;BRANC IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


- FSRC=0, ACO NE O 


; 
MNNRMe : 
3 


#RECDST,R1 


#TAB6,RS 
@TAB2,R4 
#200 
(R5),ACO 
R2 


R2 
(R4),ACO 
 -lecactate 


3 
ACO,(R1) 
#0,R3 





sPOINT TQ RECEIVED DATA TABLE 
sPOINT TO SOURCE DATA TABLE 
sPOINT TO ACO DATA 

;SET TO DOUBLE FOR CLEAR 


; 
sSETUP FPP STATUS 
sLOAD FPS 
;LOAD ACO 
3#TEST INSTRUCTION 
sSAVE STATUS 
sSAVE ACO 
s;VERFIY NEGATIVE RESULT 





$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0224 














Fe 
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FLOATING POINT TESTS 


SEQ 0225 


12715 062550 001403 BEQ i$ ;BRANCH IF GOOD 
12716 062552 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12717 062556 104003 ERROR +3 ;FPP ERROR 
12718 ;BAD FPS 
12719 062560 012704 003264 1$: MOV #TAB4 ,R4 ;POINT TO EXPECTED DATA 
12720 062564 004767 055310 JSR R7,DATVER ;VERFIY ACO 
12721 062570 005767 120324 TST COUNT ;CHECK RESULT 
12722 062574 001403 BEQ 2s ;BRANCH IF GOOD 
12723 062576 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12724 062602 104003 ERROR 3 ;FPP ERROR 
12725 ;BAD ACO 
12726 062604 170127 000200 2s: LOFPS #200 ;SET STATUS TO DUOBLE NODE 
12727 062610 172414 LOD CR4),ACO ;LOAD ACO WITH A VALUE 
12728 062612 173015 SUBD CRS),ACO 3*#TEST INSTRUCTION 
12729 062614 170203 STFPS R3 ;SAVE FPP STATUS 
12730 062616 174011 STD ACO, (R1) ;SAVE ACO 
12731 062620 022703 000200 CMP #200 ,R3 ;VERIFY RESULT 
12732 062624 001403 BEQ 3$ ;BRANCH IF GOOD 
12733 062626 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12734 062632 104003 ERROR +3 ;FPP ERROR 
12735 ;BAD SUBD cs 
12736 062634 012704 003264 3$: MOV #TAB4 ,R4 sPOINT TO EXPECTED 
12737 062640 004767 055234 JSR R7,DATVER ;VERIFY ACO 
12738 062644 005767 120250 TST COUNT ; 
12739 062650 001403 BEQ 4$ ;BRANCH IF GOOD ACO 
12740 062652 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12741 062656 104003 ERROR +3 ;FPP ERROR 
12742 ;BAD ACO 
12743 062660 4$: 
12746 3 
12747 poo 22+ + --------------------------- 
12748 ;TEST ADDD, SUBF - FSRC NE O, ACO=0 
12749 3 
pits 062660 MNNRM3 : 

F 
12752 062660 012701 003142 MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
12753 062664 012705 003314 MOV #TAB6,RS sPOINT TO ACO DATA TABLE 
12754 062670 012704 003234 MOV #TAB1,R4 ;POINT 7O FSRC DATA 
12755 062674 012702 000200 MOV #200,R2 ;SETUP FPP STATUS 
12756 062700 170102 LOFPS Re ;LOAD FPS 
12757 062702 172415 LOD CR5),ACO ;LOAD ACO 
12758 062704 172014 ADDD CR4),ACO ;*#TEST INSTRUCTION 
12759 062706 170203 STFPS R33 ;SAVE STATUS 
12760 062710 174011 STD ACO,(R1) :SAVE ACO 
12761 062712 022703 000210 CMP #210,R3 ;VERFIY NEGATIVE RESULT 
12762 062716 001403 BEQ i$ ;BRANCH IF GOOD 
12763 062720 004737 140132 CALL AeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12764 062724 104003 ERROR +3 ;FPP ERROR 
12765 ;BAD FPS 
12766 062726 004767 055146 1$: JSR R7,DATVER ;VERFIY ACO 
12767 062732 005767 120162 TST COUNT ;CHECK RESULT 
12768 062736 001403 BEQ 2s ;BRANCH IF GOOD 
12769 062740 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12770 062744 104003 ERROR +3 ;FPP ERROR 
12771 :BAD ACO 
12772 062746 170127 000200 2s: LOFPS #200 ;SET STATUS TO DUOBLE NODE 
12773 062752 172415 LOF CRS),ACO sLOAD ACO WITH A VALUE 

4 





OS ST 








t 
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FLOATING POINT 


12774 
12775 
12776 
12777 


062754 
062756 
062760 
062762 


TESTS 


173014 
170203 
174011 


012702 
170102 
012704 
012705 
012701 
172415 
172014 
174011 
012704 
004767 
005767 
001403 
004737 
104003 


012704 
012703 
012702 
170102 
172413 
061400 
174011 
004767 
005767 
001403 
004737 
104003 


000200 
140132 
003504 
055072 
120106 


140132 


003240 


003334 
003344 
003142 


003354 
055016 
120032 


140132 
003344 


003344 
003200 


054752 
117766 


140132 








MACRO YOS.02 


SUBD (R4),ACO 
R3 


STF ACO, (R1) 
CMP apa 


BEQ 
CALL @eDETFPA 
ERROR +3 

3$: MOV #TAB18,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 4$ 
CALL aeDETFPA 
ERROR +3 


4$: 
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3*TEST INSTRUCTION 
sSAVE FPP STATUS 


sSAVE ACO 
;VERIFY RESULT 
s;BRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD SUBD 
sPOINT TO EXPECTED DATA 
;VERIFY ACO 


; 
;BRANCH IF GOOD ACO 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


TEST ADDF, SUBD - EXPCACO) = EXPCFSRC) 


MNNRM4 : 

3 
MOV #3240,R2 
LDOFPS R2 
MOV #TAB7,R4 
MOV #TAB8,R5 
MOV #RECDST,R1 
LDD CR5),ACO 
ADDD (R4),ACO 
STD ACO,CR1) 
MOV #TAB9,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 1$ 
CALL ae#DETFPA 
ERROR +3 

1$: MOV #TAB8 ,R4 
MOV #TAB8,R3 
MOV #3200,R2 
LOFPS Re 
LOD (R3),ACO 
ADD CR4),ACO 
STD ACO,(R1) 
JSR R7,DATVER 
TST COUNT 
BEQ 2$ 
CALL ae#DETFPA 
ERROR +3 

2s: 


ES A  ——  — — 


s;SET FIU,FD,FT 


;SET FSRC 

;SETUP ACO 

sPOINT TO RECEIVED DATA 
;LOAD ACO 

:*TEST INSTRUCTION 

;SAVE TEST RESULT 

sPOINT TO EXPECTED DATA 
sVERIFY ACO DATA 


i; 
;BRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ADDD 


; 
sSETUP SAME ACO 
sROUND MODE 


;LOAD ACO 

s*TEST INSTRUCTION 
sSAVE DATA 

;VERIFY ACO 


;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ROUND RESULT 


SEQ 0226 


| COKDADO KDJ11-B CLUSTER DIAG. MACRO Y0S.02 


FLOATING POINT TESTS 


MXDF 1: 
12836 ; 


012702 003200 


170102 
012704 003374 
003142 


012701 

012705 003364 
172415 
172014 
170203 
174011 
022703 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


012704 
172415 
172014 
012704 
174011 
004767 
005767 
001403 
004737 
104003 


012702 
012704 
012705 
172415 


003200 
140132 


003404 1$: 
054660 


117674 
140132 


003414 2$: 


003434 


054622 
117636 


140132 


003000 3$: 
003444 


003454 


000200 


003364 
054546 
117562 


140132 


012705 4$: 
170102 
172415 
172014 
174011 
012704 
004767 
005767 


003464 


003474 
054506 
117522 





#3200 ,R2 
Re - 
#TAB11,R4 
#RECDST ,R1 
#TAB10,R5 
CRS), ACO 
(R4),ACO 
R3 


ACO, (R1) 
#3200 ,R3 


i$ 
aeDETFPA 
+3 


#TAB11A,R4 
R7,DATVER 
COUNT 


2s 
aeDETFPA 
+3 


#TAB12,R4 
C(RS),ACO 
(R4),ACO 
#TAB13B ,R4 
ACO,(R1) 
R7,DATVER 
COUNT 


3$ 
aeDETFPA 


+3 


#3000 ,R2 
#TAB14,R4 
#TAB1S,R5 
CRS), ACO 
Re 


(R4),ACO 
#200 


ACO, (R1) 
#TAB10,R4 
R7,DATVER 
COUNT 


4$ 
QeDETFPA 


+3 
#TAB16,RS 
R2 


CRS), ACO 

(R4),ACO 

ACO, (R1) 

#TAB17,R4 
R7,DATVER 
COUNT 





H2 
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SEQ 0227 


s;R2=FPP STATUS 
;LOAD FPS STATUS 
sPOINT TO FSRC DATA 
sPOINT TO ACO RESULT 
sPOINT TO ACO DATA 
s;LOAD ACO DATA 
+#TEST INSTRUCTIONS 
s;SAVE FPP STATUS 
s;SAVE ACO DATA 
;VERIFY FPP STATUS 
sBRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPP STATUS 
sPOINT TO EXPECTED DATA 
;VERIFY CONTENTS OF ACO 


; 

;BRANCH IF GOOD ACO 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
sBAD ACO, SHOULD = FSRC 

sPOINT TO FSRC DATA 


;ACO 

:*TEST INSTRUCTION 

;POINT TO EXPECTED RESULT 
;SAVE ACO DATA INTO RECDAT 
;VERIFY DATA 


sBRANCH IF GOOD DATA 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO DATA 

;GET FPP STATUS DATA 

sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

;LOAD ACO 

sFPP STATUS = FLOAT, INTERRUPTS ENABLE 

3*TEST INSTRUCTION 

sRESET TO DOUBLE 

sRECDST=ACO 

sPOINT TO GOOD DATA 

;VERFIY CONTENTS OF ACO 


; 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FLOATING ADD 
sPOINT TO ACO DATA 
3FPP STATUS = FLOAT 
s;LOAD ACO 
3*TEST INSTRUCTION 
;SAVE ACO DATA 
sPOINT TO GOOD DATA 


$$$ 


$$$ 














Ie 
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—-- 


| 12950 063570 005726 102$: TST (SP )+ sRESTORE STACK 


SEQ 0228 
FLOATING POINT TESTS 
12892 063376 001403 BEQ 5$ sBRANCH IF GOOD 
12893 063400 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12894 063404 104003 ERROR +3 ;FPP ERROR 
12895 ;BAD FLOATING ADD 
12896 063406 5$: 
12897 ; 
12900 3 
12901 prc cere nnn n ne - -- - o -e----eeee 
pate | ;TEST ADDD WITH NEGATIVE OPERANDS 
; 
12904 063406 MNGOP : 
12905 ’ 
12906 063406 012702 003200 MOV #3200,R2 ;LOAD FPS VALUE 
12907 063412 170102 LOFPS R2 3 
12908 063414 012704 003514 MOV #TAB21,R4 ;DATA ADDRESS FOR ACO AND FSR 
12909 063420 172414 LOD CR4),ACO ;ACO=100200 0 0 O 
12910 063422 172014 ADDD CR4),ACO ;*TEST INSTRUCTION 
12911 063424 170203 STFPS R3 :SAVE STATUS 
12912 063426 012701 003142 MOV #RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
12913 063432 174011 STD ACO, (Ri) ;SAVE ACO DATA 
12914 063434 022703 003210 CMP #3210,R3 ;VERIFY STATUS 
12915 063440 001403 BEQ 1$ ;BRANCH IF GOOD 
12916 063442 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
poet 063446 104003 ERROR +3 ;FPP ERROR 
12918 ; 
12919 063450 012704 003524 1$: MOV #TAB22,R4 sPOINT TO EXPECTED DATA 
12920 063454 004767 054420 JSR R7,DATVER : 
12921 063460 005767 117434 TST COUNT ;VERIFY DATA 
12922 063464 001403 BEQ 2$ ;BRANCH IF GOOD 
12923 063466 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12924 063472 104003 ERROR +3 ;FPP ERROR 
12925 PF 
12926 F !-FSRC! = !ACO! 
12927 063474 012704 003514 2s: MOV #TAB21,R4 sPOINT TO FSRC DATA 
12928 063500 012701 003534 MOV #TAB23,R1 sPOINT TO ACO DATA 
12929 063504 012737 063526 000244 MOV #101$ , a#FPVEC ;SETUP FP VECTOR 
12930 063512 172411 LOD CR1),ACO ;LOAD ACO 
12931 063514 172014 ADDD CR4),ACO :*TEST INSTRUCTION 
12932 063516 170000 100$: CFCC ;COPY FPP CC 
12933 063520 004737 140132 CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12934 063524 104003 ERROR +3 ;FPP ERROR 
12935 :GO TO ERROR 
12936 063526 170203 101$: STFPS R3 ;SAVE FPP STATUS 
12937 063530 012701 003142 MOV #RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
12938 063534 174011 STD ACO,(R1) sSAVE ACO DATA 
12939 063536 022703 103200 CMP #103200 ,R3 ;VERIFY STATUS 
12940 063542 001403 BEQ 3$ sBRANCH IF GOOD 
12941 063544 004737 140132 CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12942 063550 104003 ERROR +3 ;FPP ERROR 
12943 ;BAD STATUS 
12944 063552 012605 3$: MOV (SP)+,R5 ;GET ERROR PC 
12945 063554 020527 063516 CMP R5,#100$ ;VERIFY ERROR ADDRESS ON STACK 
12946 063560 001403 BEQ 102$ ;BRANCH IF GOOD 
12947 063562 004737 140132 CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
12948 063566 104003 ERROR +3 ;FPP ERROR 
12949 ;BAD ERROR RETURN ON STACK 








.-- = ee 
' 
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12951 063572 
12952 063576 
12953 063602 


012704 
004767 
005767 
001403 
004737 
104003 


012704 


170203 
012701 
174011 
022703 
001403 
004737 
104003 


012605 
020527 
001403 
004737 
104003 


005726 
012704 
004767 
005767 
001403 
004737 
104003 


012704 
012701 
012702 
170102 
012737 
172411 
172014 
170203 
012701 
174011 
020327 
001403 
004737 
104003 


003544 
054276 
117312 


140132 


003534 
003514 
063656 
003200 


140132 


003142 
103200 
140132 


063646 
140132 


003544 
054146 
117162 


140132 


003564 
003554 
003200 


000246 


003142 
003200 
140132 





MACRO YOS.02 


000244 


000244 


4$: 


103$: 


104$: 


S$: 


105$: 


6$: 


MOV 
JSR 


Je 


#TAB24 ,R4 
R7,DATVER 
COUNT 

4$ 
OeDETFPA 
+3 


!-ACO! = !FSRC! 
#TAB23,R4 
#TAB21,R1 
#104$ , A@FPVEC 
#3200 ,R2 

R2 

(R1),ACO 
C(R4),ACO 


aeDETFPA 


+ 


R3 
#RECDST,R1 
ACO, (R1) 
#103200,R3 


5$ 
a#DETFPA 


+ 


(SP)+,R5S 
aeDETFPA 
+3 


CSP )+ 
#TAB24 ,R4 
R7,DATVER 
COUNT 


6$ 
QeDETFPA 


+3 


!-FSRC! < 
#TAB26 ,R4 
#TAB2S ,R1 
#3200 ,R2 


R2 
#246 , BOF PVEC 
CR1),ACO 
(R4),ACO 

R3 


#RECOST ,R1 
ACO, (R1) 
-~ ales 


$ 
aeDETFPA 


+3 
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sPOINT TO EXPECTED DATA TABLE 
;VERIFY DATA 


sBRANC IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO DATA 


sPOINT TO FSRC DATA 
;POINT TO ACO DATA 
;SETUP FP VECTOR 
;LOAD FPS VALUE 


; 

;LOAD ACO DATA 
3*TEST INSTRUCTION 
;COPY FPP CC 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;GO TO ERROR 
sSAVE FPS 
SAVE ACO 


5 
sVERFIY STATUS 
s;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD FPS STATUS 
sGET ERROR PC 
sVERIFY ERROR. ADDRESS ON STACK 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD ERROR RETURN ON STACK 
sRESTORE STACK 
sPOINT TO EXPECTED DATA 


: 
;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


'ACO! 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD FPS VALUE 


: 

;SETUP FP VECTOR 

sLOAD ACO DATA 

3#TEST INSTRUCTION 

sSAVE STATUS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO 
;VERIFY STATUS 

;BRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


COKDADO KDJ11-B8 CLUSTER 


if 
i 
FLOATING POINT 
! 


TESTS 


012704 
004767 
005767 
001403 
004737 
104003 


012704 
012701 
172411 
172014 
170203 
012701 
174011 


012702 
170102 





DIAG. 


003574 
054046 
117062 


140132 


003554 
003564 


003142 
003200 
140132 
003574 
053762 
116776 
140132 


003614 
003604 


003142 
003200 
140132 
003624 
053676 
116712 
140132 


003200 
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7$: 


8$: 


9$: 


10$: 


11$: 


#TAB27 ,R4 
R7,DATVER 
COUNT 


8$ 
ae#DETFPA 
+3 


'FSRC! > 
#TAB25 ,R4 
#TAB26,R1 
CR1),ACO 
oe 


3 
#RECDST,R1 
ACO, (R1) 
R3, #3200 


9$ 
aeDETFPA 
+3 


#TAB27 ,R4 
R7,DATVER 
COUNT 

10$ 
aeDETFPA 
+3 


!-FSRC! < 
#TAB29 ,R4 
#TAB28 ,R1 
(R1),ACO 
a es 


3 
#RECDST,R1 
ACO,(R1) 
R3, #3200 


11$ 
aeDETFPA 
+3 


@TAB29A ,R4 
R7,DATVER 
COUNT 

12$ 
aeDETFPA 


a 


sPOINT TO EXPECTED DSATA 


sVERIFY DATA 
. 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


AC! 

sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

sLOAD ACO DATA 

s*TEST INSTRUCTION 

sSAVE STATUS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO 
s;VERIFY STATUS 

sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 


sPOINT TO EXPECTED DSATA 


;VERIFY DATA 
; 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


tACO! 

sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

sLOAD ACO DATA 

s#TEST INSTRUCTION 

sSAVE STATUS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO 
;VERIFY STATUS 

sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


; 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


3 eee ee we ww ew ew ee ee ee wwe ee eee ew ewe ee 
;TEST SUB WITH EXP[ACO)=EXP[FSRC) 


F 
MSB: 


MOV 
LDOFPS 


#3200 ,R2 
R2 


;LOAD FPS DATA 
sLOAD FPS 





$$$ 


$$$ 


$38 


$$$ 


$$$ 


SEQ 0230 


’ 
—- a 





MACRO YOS.02 
FLOATING POINT TESTS 


012704 
012701 
172414 
173014 
170203 


003514 
003142 


003204 
140132 
003314 1$: 
053610 
116624 


140132 


003444 2s: 


003204 
140132 
003314 3$: 
053534 
116550 


140132 


13111 ; 
003200 


003644 
003634 


012702 
170102 
012705 
012701 
172411 
173015 


170203 
003142 


003674 
053456 


if 

| 

| 

COKDADO KDJ11-8 CLUSTER DIAG. 
116472 











#TAB21 ,R4 


@RECDST ,R1 


CR4),ACO 
CR4),ACO 
R3 


ACO, (Ri) 
#3204 ,R3 


i$ 
— 


@TABE ,R4 
R7,DATVER 
COUNT 


2s 
OeDETFPA 
+3 


#TAB14 ,R4 
C(R4),ACO 
_ ACO 


ACO, CR1) 
#3204, R3 


3$ 
QeDETFPA 


+3 


@TABE ,R4 
R7,DATVER 
COUNT 


4$ 
@eDETFPA 


oa 


#3200 ,R2 
Re 

#TAB31,R5 
#TABSO,R1 
(R1),ACO 
CRS), ACO 


R3 


@RECDST ,R4 


ACO, (R4) 
@TAB34 ,R1 
R7,DATVER 
COUNT 

i$ 


:FPP 
;BAD 


FPP 
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SEQ 0231 


sPOINT TO FSRC DATA 

sPOINT TO ACO RECEIVED DATA TABLE 

sLOAD ACO 

3*#TEST INSTRUCTION 

s;SAVE STATUS 

sSAVE ACO INTO RECDST 

;VERIFY STATUS 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 
FPS STATUS 

sPOINT TO EXPECTED DATA 

sVERIFY ACO 


3 
sBRANCH IF GOOD 
_— FLOATING POINT FAULT. $$$ 


sBAD ACO 


:FPP 


sPOINT TO FSRC AND ACO DATA 
sLOAD ACO DATA 
s*TEST INSTRUCTION 


sSAVE FPS 
sSAVE ACO INTO RECOST 
s;VERIFY FPS 
sBRANCH IF GOOD 
—_— FLOATING POINT FAULT. $$$ 


s;BAD ACO 


:TEST NORMALIZE 
MNRM : 





sPOINT TO EXPECTED DATA 
sVERIFY ACO 


sBRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $$$ 
ca 


sLOAD FPS 


i 

sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

sLOAD ACO 

s#TEST INSTRUCTION 

31 LEFT SHIFT 

sSAVE STATUS 

sPOINT TO RECDATA 
sSAVE ACO 

sPOINT TO EXPECTED DATA 
;VERIFY DATA 


sBRANCH IF GOOD 





COKDADO KDJ11-B8 CLUSTER DIAG. 


13126 064430 


f 

i 

| 
FLOATING POINT 
13127 064434 


TESTS 


004737 
104003 


012701 
012705 
172411 
173015 


012701 


012702 


140132 


003654 
003664 


003142 


053414 
116430 


140132 


000200 


003704 
003704 


003142 
000206 
140132 
003314 
053322 
116336 


140132 


001200 


003704 
003704 


064632 


140132 


MACRO YOS.02 


000244 


1$: 








Me 
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@eDETFPA 
«3 


@TAB32,R1 
@TAB33,R5 
C(R1),ACO 
CRS),ACO 


@RECDST,R1 
ACO, (R1) 
R7,DATVER 
COUNT 


2s 
BODE TFPA 


« 


sDETERMINE FLOATING POINT FAULT. $$$ 


sFPP ERROR 
sACO DATA 
sFSRC DATA 
sLOAD ACO 


s#TST INSTRUCTION 

356 LEFT SHIFTS 
sSAVE DATA 
; 


° 
sDETERMINE FLOATING POINT FAULT. $$$ 


sFPP ERROR 


OVERFLOW AND UNDERFLOW 


sTEST ADDD WITH 


HUVAD: 


i$: 


3 
2s: 


23%: 





#200 ,R2 
R2 
@TAB40,R4 
#TAB40,R1 
(R1),ACO 
(R4),ACO 


@RECDST ,R1 
ACO, CR1) 
#206 ,R3 


i$ 
AeDETFPA 
+3 


@TABE ,R4 
R7,DATVER 
COUNT 


2s 
QeDETFPA 
+3 


ENABLED 


#1200,R2 
R2 

@TAB40 ,R4 
@TAB40,R1 
(R1),ACO 
03% , QOFPVE 
(R4),ACO 


@eDETFPA 


oa 


D 
w 





sSETUP FLOATING POINT STATUS 
sLOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 


sLOAD ACO WITH TEST DATA 


s*TEST INSTRUCTION 

sSAVE FPS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 

sVERIFY STATUS 

sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. $$$ 


3;FPP ERROR 
;BAD FPS 


sPOINT TO EXPECTED DATA 


«4g WERIFY DATA 
s;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
sBAD ACO 


sSETUP FLOATING POINT STATUS 


sLOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 


sLOAD ACO WITH TEST DATA 


c ;CHANGE TRAP VECTOR 
s*TEST INSTRUCTION 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 








SEQ 0232 


FLOATING POINT 


‘te — 


13240 065046 
13241 065050 


TESTS 


012702 
170102 
012737 
012704 
012701 
172411 
172014 
170203 
012701 
174011 
022703 
001403 
004737 
104003 


012704 
004767 
005767 
001401 
104003 


012702 


, 
! 
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000200 
140044 


003334 
003714 


003142 
000204 
140132 
003314 


053072 
116106 


Ne 
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000244 


000244 





3%: STFPS R3 
MOV @RECDST,R1 
STO ACO, CR1) 
CMP #101206 ,,R3 
BEQ 4$ 
CALL ODE TFPA 
ERROR 3 3;FPP 
3;BAD 
4$: MOV CSP)+,RO 
CMP $23%,RO 
BEQ 5$ 
CALL @ODETFPA 
ERROR 3 3FPP 
3;BAD 
5$: MOV CSP)+,RO 
MOV OTAB6 ,,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 7$ 
CALL @eDETFPA 
ERROR 3 3;FPP 
3;BAD 
sUNDERFLOW TRAPS DISABLED 
3 
7$: MOV #200 ,R2 
LOFPS R2 
MOV @WLOTRP , 8OF PVEC 
MOV #TAB7,R4 
MOV @TAB41,R1 
LOO CR1),ACO 
ADOD CR4),ACO 
STFPS R33 
MOV @RECDST,R1 
STD - ACO, (R1) 
CMP $204 ,R3 
BEQ 8$ 
CALL ODE TFPA 
ERROR 3 3;FPP 
sBAD 
8$: MOV @TABE ,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 95 
ERROR «3 3;FPP 
3;BAD 
;UNDERFLOW TRAPS ENABLED 
3 
9$; MOV #2200 ,R2 
LOFPS Re 
MOV 11% ,ae@FPVEC 
MOV @TAB7,R4 
MOV #TAB41,R1 
LOO (R1),ACO 
ADODD CR4),ACO 
10$: CFCC 
CALL @eDETFPA 








sFAILED TO TRAP . OVERFLOW 


sSAVE FP 

sPOINT TO RECEIVED DATA TABLE 

sSAVE ACO RESULT 

sVERIFY STATUS 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$8% 
ERROR 
FPS 

sCHECK STORED PC 


$ 
sBRANCH IF RETURN ADDRESS IS GOOD 
sDETERMINE FLOATING POINT FAULT. $98 


RETURN ADDRESS 
sCLEAN UP STACK 
sPOINT TO EXPECTED DATA 
sVERIFY DATA 


sBRANCH IF GOOD 
sDETERHINE FLOATING POINT FAULT. $$$ 


sSETUP FLOATING POINT STATUS 
3LOAD FPS 
sREPLACE WILD TRAP VECTOR 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
s*#TEST INSTRUCTION 
sSAVE FPS 
sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
sVERIFY STATUS 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 
FPS 
sPOINT TO EXPECTED DATA 
sVERIFY DATA 


s;BRANCH IF GOOD 
ERROR 
ACO 


sSETUP FLOATING POINT STATUS 
sLOAD FPS 
sREPOSITION TRAP VECTOR 

sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

sLOAD ACO WITH TEST DATA 
s*#TEST INSTRUCTION 
sCOPTY FPP CC 
sDETERMINE FLOATING POINT FAULT. $$$ 
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FLOATING POINT 


13242 065054 
13243 


| 13298 065274 


TESTS 
104003 


012702 
170102 
012737 
012704 
012701 
172411 
172014 


003142 
102210 
140132 


065046 
140132 


003304 
052746 
115762 


140132 


000200 
140044 


003714 
003724 


003142 
000204 
140132 
003314 
052646 
115662 


140132 


102200 


065306 
003714 
003724 


000244 


000244 


B3 
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SEQ 0234 
ERROR 3 3FPP ERROR 
;FAILED TO TRAP ON UNDERFLOW 
11$: STFPS R3 sSAVE FPS 
MOV @RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
STO ACcO,CR1) sSAVE ACO RESULT 
CMP #102210,R3 ;VERIFY STATUS 
BEQ 12$ sBRANCH IF GOOD 
CALL @ODETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 3 3FPP ERROR 
;BAD FPS 
12$: MOV (SP)+,R5 ;GET ERROR PC 
CMP RS ,#10$ sVERIFY ERROR ADDRESS ON STACK 
BEQ 13$ sBRANCH IF GOOD 
CALL ODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 3 ;FPP ERROR 
:BAD ERROR RETURN ON STACK 
13$: TST CSP )+ sRESTORE STACK 
MOV @TABSA,R4 sPOINT TO EXPECTED DATA 
JSR R7,DATVER ;VERIFY DATA 
TST COUNT 
BEQ 14$ sBRANCH IF GOOD 
CALL ODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR «3 3;FPP ERROR 
;BAD ACO 
sUNDERFLOW WITH TRAPS DISBLED - NON-ZERO RESULT 
3 
14$: MOV $200 ,R2 sSETUP FLOATING POINT STATUS 
LOFPS R2 ;LOAD FPS 
MOV @WLOTRP , 8OF PVEC sRESTORE TRAP VECTOR 
MOV #TAB41,R4 sPOINT TO FSRC DATA 
MOV #TAB42,R1i sPOINT TO ACO DATA 
LOD (R1),ACO sLOAD ACO WITH TEST DATA 
ADDD CR4),ACO :*TEST INSTRUCTION 
STFPS R3 ;SAVE FPS 
MOV @RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
STD ACO,(R1) sSAVE ACO RESULT 
CMP $204 ,R3 ;VERIFY STATUS 
BEQ 15$ sBRANCH IF GOOD 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 23 3;FPP ERROR 
;BAD FPS 
15$: MOV @TABE ,R4 sPOINT TO EXPECTED DATA 
JSR R7,DATVER ;VERIFY DATA 
TST COUNT 
BEQ 16$ sBRANCH IF GOOD 
CALL QODETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3FPP ERROR 
;BAD ACO 
;UNERFLOW WITH TRAPS ENABLED - NON-ZERO RESULT 
Hy 
16$: V #102200 ,R2 ;SETUP FLOATING POINT STATUS 
LOFPS R2 ;LOAD FPS 
MOV $18$ , a@FPVEC sRESTORE TRAP VECTOR 
MOV #TAB41,R4 sPOINT TO FSRC DATA 
MOV @TAB42,R1i sPOINT TO ACO DATA 
LOD (R1),ACO 3;LOAD ACO WITH TEST DATA 
ADDD (R4),ACO 3*TEST INSTRUCTION 





Se 





C3 
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SEQ 0235 


FLOATING POINT 


13299 065276 
13300 065300 
065304 


‘ 
=e —--- 


TESTS 


170000 
004737 
104003 


170203 
012701 


022703 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


012702 
170102 
012704 
012701 
172411 
177424 
012701 
174011 
022704 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


r 

| 
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| 
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140132 


003142 


065276 
140132 


102204 
140132 
003734 
052516 
115532 


140132 


000300 
003744 
003314 
003142 
003750 
140132 
003754 
052426 
115442 
140132 





17$: 


18: 


19$: 


203: 


Ts 


R3 
@RECDST,R1 
ACO, (R1) 


19$ 
SeDETFPA 


+3 

#102204 ,R3 
20$ 
SeDETFPA 
+3 
#TAB43,R4 
R7,DATVER 
COUNT 


21$ 
— To 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sNO TRAP ON UNDERFLOW 


F 

MLOC: 

5 

3; TRUNCATE 


1$: MOV 


CALL 
ERROR 


#300,R2 
R 


2 

@TAB4S ,R4 
#TAB6,R1 
(R1),ACO 
CR4)+,ACO 
@RECOST,R1 
ACO, (R1) 
@TAB4S+4,R4 


i$ 
aeDETFPA 
+3 

#TAB46 ,R4 
R7,DATVER 
COUNT 

2s 
OeDETFPA 


+3 


sAUTO-INC DOUBLE MODE 


EE OS 


3;FPP 
;BAD 


FPP 
BAD 


sSAVE FPS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 

sSAVE STACK CONTENTS 

sCLEAN UP STACK 

sVERIFY RETURN ADDRESS 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. 


ERROR 
RETURN ADORESS 


FPS 


;VERIFY STATUS 
s;BRANCH IF GOOD 


pasted FLOATING POINT FAULT. 


sPOINT TO EXPECTED DATA 
;VERIFY DATA 


sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 


ERROR 


ACO 


sSETUP FLOATING POINT STATUS 
sLOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
3*TEST INSTRUCTION 
sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
sVERIFY AUTO-INC 
sBRANCH IF GOOD AUTO-INC 
s;DETERMINE FLOATING POINT FAULT. 


ERROR 
AUTO-INC 


sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 


ERROR 


ACO 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


- - ee 


D3 


FLOATING POINT 


'‘ 
-_—-— 


TESTS 


005002 
170102 
012704 
012701 
172411 
177424 
020427 
001403 
004737 
104003 


170203 
012701 
174011 
022703 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


012702 
170102 
005003 
177427 
005203 
005203 
005203 
022703 
001403 
004737 
104003 


012702 
170102 
012704 
012701 
172411 
177414 
170203 
012701 
174011 
022703 
001403 
004737 
104003 


012704 


003744 
003464 
003754 
140132 


003142 
000000 
140132 
004014 
052322 
115336 


140132 


000200 


043243 


000003 
140132 


000200 


003764 
003744 


003142 
000210 
140132 


004004 





2$: CLR 


3$: STFPS 


4$: MOV 


;LDCFD GR7 
3 
5$: MOV 


R2 
R2 
#TAB4S ,R4 
#TAB16,R1 
(R1),ACO 
(R4)+,ACO 


R4,@TAB45+10 
3$ 


ee 


R3 
@RECDST,R1 
ACO, (R1) 
= 


$ 
OeDETFPA 
+3 


#TAB49,R4 
R7,DATVER 
COUNT 

S$ 
@eDETFPA 


+3 


#200 ,R2 
Re 


R3 
#5203, ACO 
R3 


aeDETFPA 


- 


sNEGATIVE OPERANDS 


3 
6$: MOV 
LDFPS 


7$: MOV 


EE 


#200 ,R2 
R2 

@TAB47 ,R4 
#TAB4S5,R1 
CR1),ACO 
(R4),ACO 
R3 


#RECDST,R1 
ACO, (R1) 
#210,R3 

7$ 
@eDETFPA 


¢ 


#TAB48 ,R4 


' 
| 
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SEQ 0236 


s;SETUP FLOATING POINT STATUS 
LOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
3*TEST INSTRUCTION 
sVERIFY AUTO-INC 
s;BRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AUTO-INC ON DOUBLE 
sSAVE FPS 
sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
;VERIFY STATUS 
sBRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


sBRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
3BAD ACO 


;SETUP FLOATING POINT STATUS 
sLOAD FPS 


3#TEST INSTRUCTION 


sIF LOCFO WORKED, R3 SHOULD=3 
sVERIFY CORRECT PROGRAM FLOW 
sBRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD PROGRAM FLOW 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
:*TEST INSTRUCTION 
;SAVE FPS 
sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DATA 


COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


13418 


| 

| 
13415 
13416 
13417 
13419 


- —-- 


066014 


TESTS 


004767 
005767 
001403 
004737 
104003 


012702 
170102 
012704 
012701 
172411 
177414 
170203 
012701 
174011 
022703 
001403 
004737 
104003 


012704 
004767 
005767 
001403 
004737 
104003 


005037 
004767 
000000 


000000 
000200 
000204 


012737 
004767 


052172 
115206 


140132 


000200 


003314 
004004 


003142 
000204 
140132 
003314 
052100 
115114 


140132 
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000000 
000000 


003030 


000000 
000123 


012346 
000000 


* 
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JSR R7,DATVER ;VERIFY DATA 
TST COUNT 
BEQ 8$ ;BRANCH IF GOOD 
CALL aeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
;LOAD A ZERO 
o 
8$: MOV #200 ,R2 ;SETUP FLOATING POINT STATUS 
LOFPS R2 ;LOAD FPS 
MOV #TAB6 ,R4 ;POINT TO FSRC DATA 
MOV #TAB48,R1 sPOINT TO ACO DATA 
LOD CR1),ACO ;LOAD ACO WITH TEST DATA 
LOCFD CR4),ACO :*TEST INSTRUCTION 
STFPS R33 ;SAVE FPS 
MOV #RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
STD ACO,(R1) sSAVE ACO RESULT 
CMP #204 ,R3 ;VERIFY STATUS 
BEQ 9$ ;BRANCH IF GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
9$: MOV #TAB6 ,R4 sPOINT TO EXPECTED DATA 
JSR R7,DATVER ;VERIFY DATA 
TST COUNT 
BEQ 10$ ;BRANCH IF GOOD 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
10$: 
3 
3 
3 -—8 “9 “ee eeeenenenennenenecnenenenenneneneen eee eeee = 
;TEST CMPD 
; 
MCMPD : 
; 
; CMPD WITH FRSC=ACO=0 
3 
CLR @eFLAG ;SIGNAL THAT ACO REMAINS CONSTANT 
JSR R7,CMPRTN sROUTINE TO TEST DATA 
-WORD 0O,0,0,0 3ACO AT START 
-WORD 0O,0,0,0 sFSRC AT START 
-WORD 200 sFPS AT START (D) 
-WORD 204 ;FPS AT END 
; CMPD WITH EXP[FSRC)=0, EXP[ACO)=0 
MOV #1,30FLAG ;SIGNAL THAT ACO WILL = 0 
JSR R7,CMPRTN sROUTINE TO TEST DATA 
-WORD 0O,0,0,125252 3ACO AT START 
. WORD 100,22,123,123 sFSRC AT START 
-WORD 200 3FPS AT START (D) 


-WORD 204 
; CMPD FSRC>EXP[ACO)=0 
CLR @eFLAG 


JSR R7,CMPRTN 
-WORD 400,12346,12346,23 
-WORD 200,0,0,0 








;FPS AT END 


;ACO REMAINS UNCHANGED 
sROUTINE TO TEST DATA 
sACO AT START 

3FSRC AT START 


SEQ 0237 
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FLOATING POINT TESTS 


SEQ 0238 


sine 7 
| F3 
13474 066136 000200 -WORD 200 sFPS AT START (D) 
13475 066140 000210 -WORD 210 3FPS AT END 
13476 ; CMPD FSRC=ACO>0 
13477 066142 004767 000030 JSR R7,CMPRTN sROUTINE TO TEST DATA 
13478 066146 077777 177777 #177777 -WORD 77777,-1,-1,-1 ;ACO AT START 
13479 066156 077777 177777 177777 . WORD 77777,-1,-1,-1 sFSRC AT START 
13480 066166 000200 -WORD 200 3FPS AT START (D) 
13481 066170 000204 -WORD 204 3;FPS AT END 
ipast 066172 000167 000126 JMP HOP44 ;HOP OVER SUBROUTINE 
13484 5 eX eX eK EK EK aK eX KK KK Kae K eK eK eK KX eK KK KKK eK eX eX eX eX aK 
13485 5 eX aX aK EK EK eK eK Ka K HK KK eX eK eK KK eK eK KK aK KX eX XX EK HK SX 
13486 sCOMPARE ROUTINE DATA TABLES 
13487 : 
17488 3 ACO 
13489 3 FSRC 
13490 3 FPS BEFORE EXECUTION 
13491 ; FPS AFTER EXECUTION 
13492 F (FEC) 
13493 5 XXX aK aKEXK EX XX EX EK EXE KEK EX XK XX EK EK EK EX EK EX EX EX EX EX 
oes 3 eXaXEXeXaXaeXaXaXaXaXaXaXaXaXaXaXaeXeXaeXaeXaXaXakaXaXaXeXaXaeX 
13496 066176 012605 CMPRTN: MOV (SP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
13497 066200 012702 000200 MOV #200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
13498 066204 170102 LOFPS R2 ;LOAD FPS 
13499 066206 010504 MOV RS,R4 sPOINT TO FSRC DATA 
13500 066210 062704 000010 ADD #10,R4 3 
13501 066214 010501 MOV RS5,R1 sPOINT TO ACO DATA 
13502 066216 172411 LOD CR1),ACO ;LOAD ACO WITH TEST DATA 
13503 066220 016502 000020 MOV 20(R5),R2 3;GET TEST FPS 
13504 066224 170102 LOFPS R2 ;LOAD TEST FPS 
13505 066226 173414 1$: CMPD (R4),ACO :*TEST INSTRUCTION 
13506 066230 170203 STFPS R3 ;SAVE FPS 
13507 066232 012702 000200 MOV #200 ,R2 ;SET FPP TO DOUBLE 
13508 066236 170102 LOFPS R2 
13509 066240 012701 003142 MOV #RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
13510 066244 174011 STD ACO, (R1) ;SAVE ACO RESULT 
13511 066246 026503 000022 CMP 22(R5),R3 ;VERIFY STATUS 
13512 066252 001403 BEQ 2s sBRANCH IF GOOD 
13513 066254 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
13514 066260 104003 ERROR +3 ;FPP ERROR 
13515 ;BAD FPS 
13516 066262 005737 003030 2$: TST @eFLAG ;SEE IF ACO REMAINS UNCHANGED 
13517 066266 001403 BEQ 3$ ;BRANCH IF ACO STAYS THE SAME 
13518 066270 012704 003314 MOV #TAB6,R4 ;ACO=0 
13519 066274 000401 BR 4$ ;GO VERIFY DATA 
13520 066276 010504 3$: MOV RS,R4 :POINT TO EXPECTED DATA 
13521 066300 004767 051574 4$: JSR R7,DATVER ;VERIFY DATA 
13522 066304 005767 114610 TST COUNT 
13523 066310 001403 BEQ 5$ ;BRANCH IF GOOD 
13524 066312 004737 140132 CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
13525 066316 104003 ERROR +3 ;FPP ERROR 
13526 ;BAD ACO 
13527 066320 000165 000024 5$: JMP 24(R5) ;RETURN 
13528 066324 HOP44;: 
13529 ; 
| 13532 ; 
i 


on -_ SS 
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13533 


012737 
004767 


004767 
000000 


004767 








GS 
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003030 


003030 


003030 


wre ewe eee wm ee eee eee ee ee meee eee ee eee 


sTEST DIVF 
MOIVE 
1/EXPLAC]“FSRC=0 
$2 ,90FLAG 
SR R7, DVFSUB 
. WORD 100,27 
-WORD 0,0 
-WORD 100,27 
-WORD 40000 
-WORD 140000 
-WORD 4 
32/AC=EXP(FSRC)=0 
;TRAPS ENABLED 
MOV #1,90FLAG 
JSR R7,OVFSUB 
-WORD 0,0 
-WORD 100,0 
-WORD 0,0 
.WORD 0O 
-WORD 100000 
.WOR 4 
33/FSRC>ACO=0 
CLR a¢FLAG 
JSR R7,OVFSUB 
-WORD 177,234 
WORD 4100,0 
-WORD 0,0 
ne 7400 
ORD 7404 
1A/ACO>EXPLFSRC=0 
#1,3¢FLAG 
ior R7, OVF SUB 
. WORD 40200, 104210 
-WORD 125,25252 
-WORD 40200,104210 
.WORD 7557 
—- aed 
|S/EXP(AG]ENPLFSRC) 
aeFLAG 
ocr R7,DVFSUB 
. WORD 77760, -1 
.WORD 77760,0 
-WORD 40200,104210 
. WORD 7414 
-WORD 7400 
36/AC=F SRC 
CLR aeFLAG 
JSR R7,DOVFSUB 
-WORD 52525,52525 
-WORD 52525,52525 
-WORD 40200,0 
.WORD 7400 
-WORD 7400 





;NO INTERR 
;00 TEST 

;ACO 

;FSRC 

;RESULT 

; TEST FPS 

;RESULT FPS 

3;FEC 


3; INTERRUPT 
3:00 TEST 

;ACO 

;FSRC 

;RESULT 

; TEST FPS 

;RESULT FPS 

sFEC 


sNO INTERRUPT 
;D0 TEST 


RESULT 
; TEST FPS 
sRESULT FPS 


; INTERRUPT 
;D0 TEST 

;ACO 

sFSRC 

sRESULT 

; TEST FPS 

;RESULT FPS 

;FEC 


:NO INTERRUPT 
;D0 TEST 
:ACO 

:FSRC 

sRESULT 

; TEST FPS 

;RESULT FPS 


;NO INTERRUPT 
3:00 TEST 
;ACO 
sFSRC 

;RESULT 

; TEST FPS 

;RESULT FPS 





— 


SEQ 0239 =Cs! 


UPT, BUT FEC 


— 


COKDADO KDJ11-B8 CLUSTER DIAG. 


[ 
| 
FLOATING POINT 
! 


' 
----- 


TESTS 


003030 
000454 
125252 
000000 
070707 


003030 
000424 
177777 
000000 
125252 


000000 
156024 


003030 
000314 
101010 
101010 
020167 


143527 


003030 
000234 
000177 
000000 


000124 





MACRO YOS.02 





;7/FSRC>0<ACO, R 
CLR 


. WORD 
38/AC>0<FSRC 
L 


.W 
313/TRUNCATE TES 
CLR 


.W 
314/ROUND TEST 





HS 
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OUND 

OeFLAG 

R7, DVFSUB 
77777, 125252 
40300,0 
77652 ,070707 
7400 


7400 


QeFLAG 
R7,OVFSUB 
$5377,-1 
55300,0 
we 


0 


aeFLAG 
R7,DVFSUB 
64600,1 
66600,0 
36200,1 

0 

0 


aeFLAG 

R7 , DVFSUB 
12345, 156024 
05600,0 

, rrr 


0 


@eFLAG 
R7,DVFSUB 
40422,101010 
140511,101010 
atime 


50 


OeFLAG 
R7,OVFSUB 
160077,101 
40417,-1 

go 768s,.00088? 


10 
T 
aeFLAG 


3NO INTERRUPT 
300 TEST 
;ACO 


sFSRC 

s;RESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
300 TEST 
sACO 


sFSRC 
;RESULT 

; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


sF SRC 
;RESULT 

; TEST FPS 
sRESULT FPS 


;NO INTERRUPT 
:D0 TEST 
;ACO 


;FSRC 

;RESULT 
; TEST FPS 
sRESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


sFSRC 

;RESULT 
; TEST FPS 
;RESULT FPS 


s;NO INTERRUPT 
:D0 TEST 


sRESULT 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 
;ACO 


3;FSRC 

;RESULT 
; TEST FPS 
sRESULT FPS 


SEQ 0240 





13703 i 


} 
| 13 | 
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SEQ 0241 
FLOATING POINT TESTS 
13647 067030 005037 003030 CLR aeFLAG sNO INTERRUPT 
13648 067034 004767 000204 JSR R7 , DVF SUB :D0 TEST 
13649 067040 060100 000177 -WORD 60100,177 ;ACO 
13650 067044 040300 000000 -WORD 40300,0 ;FSRC 
13651 067050 060000 000125 -WORD 60000,125 ;RESULT 
13652 067054 000000 «WORD O ; TEST FPS 
13653 067056 000000 -WORD 0 sRESULT FPS 
13654 315/0VERFLOW, INTERRUPTS ENABLED 
13655 067060 012737 000001 003030 MOV #1,30FLAG s INTERRUPT 
13656 067066 004767 000152 JSR R7,OVFSUB ;D0 TEST 
13657 067072 177700 . WORD 177700,0 ;ACO 
13658 067076 000200 000000 -WORD 200,0 3;FSRC 
13659 067102 137700 000000 . WORD 137700,0 ;RESULT 
13660 067106 001100 . WORD 1100 ; TEST FPS 
13661 067110 101112 . WORD 101112 ;RESULT FPS 
13662 067112 000010 . WORD 10 ;FEC 
13663 316/0VERFLOW, TRAPS DISABLED 
13664 067114 012737 000002 003030 MOV #2, 30FLAG sNO INTERRUPT 
13665 067122 004767 000116 JSR R7,DVFSUB ;D0 TEST 
13666 067126 000200 000000 -WORD 200,0 3AC 
13667 067132 177700 000000 . WORD 177700,0 ;FSRC 
13668 067136 000000 000000 -WORD 0,0 ;RESULT 
13669 067142 041100 -WORD 41100 ; TEST FPS 
13670 067144 041104 WORD 41104 ;RESULT FPS 
13671 067146 000010 . WORD 10 ;FEC OVERFLOW 
13672 ;17/UNDERFLOW, TRAPS ENABLED, UV RESULT 
13673 067150 012737 000001 003030 MOV 1,9¢FLAG ; INTERRUPT 
13674 067156 004767 000062 JSR R7,DVFSUB :D0 TEST 
13675 067162 100200 000000 . WORD 100200,0 ACO 
13676 067166 040377 177777 WORD 40377,-1 :FSRC 
13677 067172 100000 000001 WORD 100000,1 ;RESULT 
13678 067176 002000 -WORD 2000 ; TEST FPS 
13679 067200 102014 . WORD 102014 + ee FPS 
13680 067202 000012 WORD 12 FEC 
13681 ;18/UNDERFLOW, TRAPS ENABLED, ROUND 
13682 067204 012737 000001 003030 MOV #1,30FLAG ; INTERRUPT 
13683 067212 004767 000026 JSR R7, OVFSUB :D0 TEST 
13684 067216 030325 025252 . WORD 30325, 25252 ;ACO 
13685 067222 076777 023456 . WORD 76777, 23456 sF SRC 
13686 067226 071525 157716 -WORD 71525,157716 ;RESULT 
13687 067232 002537 -WORD 2537 _ s_ TEST FPS 
13688 067234 102500 . WORD 102500 ;RESULT FPS 
poe 067236 000012 . WORD 12 3;FEC 
1 ; 
13691 067240 000167 000242 JMP HOP10 ;GO TO NEXT TEST 
13692 gs eXaXaXeX aX aXaX aX aX aXaX eX aXaXaX aX aXaX aX aXaX aX aXaXaXaXeXaX eX 
13693 3 eXaXaXaXaXaXaX aX eX aXaeXaXaXaX aX aX aXaX eX aXaXaXaXeXaX aX eX aX aX 
13694 ;DIVF SUBROUTINE: 
13695 3 ACO 
13696 3 FSRC 
13697 3 FPS BEFORE EXECUTION 
13698 : FPS AFTER EXECUTION 
13699 F (FEC) 
13700 H 
13701 5 eX aX aX EX EX EXEX EX EX EX EX EXEXEX EX EX EX EXEX EXE X EX EX EX HX EX EXSEX HX 
13702 XXX aK aKa X aX aX aX aX aX EX EX EX EX EX EXK EX HX EX EX EX EX EX EX EXE X EX EX 
t | 








a 

| 
COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


012605 


170102 


174414 
170001 


000001 
140132 


000042 


000001 
140132 


000020 


067302 
140132 


170203 
012702 
170102 
012701 
174011 
026503 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


000200 
003142 
000016 
140132 


000010 
050426 
113460 


140132 
| 
5 


' 
-_-- 








J3 
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SEQ 0242 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


DVFSUB: MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
000244 MOV #50$ , A@FPVEC s;REDIRECT TRAP VECTOR 
MOV #200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
MOV RS,R4 ;POINT TO FSRC DATA 
ADD 04 ,R4 
LOD CRS), ACO sLOAD ACO WITH TEST DATA 
MOV 14(RS),R2 ;GET TEST FPS 
LOFPS R2 sLOAD TEST FPS 
: 
DIVF (R4),ACO 3*TEST INSTRUCTION 
1$: SETF sWAIT FOR POSSIBLE FPA TRAP. 
5 
sINSTRUCTION DIDNT TRAP 
003030 BIT #1,9¢FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2s sBRANCH IF GOOD 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2s sREJOIN CODE 
; 
s INSTRUCTION TRAPPED 
003030 50$: BIT #1, 30FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2s sREJOIN CODE 
Sis: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST (SP )-+ ;CLEAN UP STACK 
CMP #1$,R4 ; 
BEQ 2s sBRANCH IF GOOD COMPARE 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
sPC WAS INCORRECT 
A 
sCOMMON CODE FOR TRAP AND NO TRAP 
a 
2s: STFPS R3 sSAVE FPS 
MOV #200 ,R2 ;SET FPP TO DOUBLE 
LDOFPS Re 
MOV #RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
STD ACO, (R1) sSAVE ACO RESULT 
CMP 16(RS),R3 ;VERIFY STATUS 
BEQ 3$ sBRANCH IF GOOD 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
;BAD FPS 
3$: MOV RS,R4 sPOINT TO EXPECTED DATA 
ADD #10,R4 
4$: JSR R7,DATVFR ;VERIFY DATA 
TST COUNT 
BEQ S$ ;BRANCH IF GOOD 
CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
sBAD ACO 


ee — — 








COKDADO KDJ11-B CLUSTER DIAG. 


r 

| 
FLOATING POINT 
13761 067450 


TESTS 


012737 
004767 


004767 
000402 
000000 


004767 
177642 


003030 
000020 
000020 


140132 


000022 








;SEE IF NEED TO CHECK FEC 
sBRANCH IF NEED TO CHECK 
sRETURN FROM TEST 


sSAVE FEC 
;GET FEC 
;VERIFY FEC 


s;BRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. 


FPP ERROR 
sBAD FEC 


sRETURN FROM TEST 


3NO INTERRUPT 
;D0 TEST 

;ACO 

sFSRC 

sRESULT 

; TEST FPS 

sRESULT FPS 

3FEC 


s INTERRUPT 
;D0 TEST 
sACO 


sFSRC 
;RESULT 
; TEST FPS 
;RESULT FPS 
3sFEC 


3NO INTERRUPT 
;D0 TEST 

;ACO 

;F SRC 

;RESULT 

; TEST FPS 

sRESULT FPS 


sNO INTERRUPT 
3:00 TEST 


sRESULT FPS 


sNO INTERRUPT 
300 TEST 
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S$: TST aeFLAG 
BNE 6$ 
JMP 20(R5) 
6$: STST R1 
MOV 20(RS),R4 
CMP R4,R1 
BEQ 7$ 
CALL QeDETFPA 
ERROR + 
7$ JMP 22(R5) 
: 
HOP10 
. 
TEST DIVD - 
MOIVO: 
F 
31/AC=FSRC=0 TRAPS DISABLED 
003030 MOV #2 ,30FLAG 
JSR R7,O0VDSUB 
000000 -WORD 0,0,0,1 
000000 -WORD 100,0,0,0 
000000 .»WORD 0,0,0,1 
. WORD 40000 
.WORD 140000 
. WORD 4 
32/FSRC=0, TRAPS ENABLED 
00303 MOV #1, 30FLAG 
JSR R7,DVDSUB 
000000 .WORD 402,0,0,0 
000000 WORD 0,0,0, 
000000 WORD 402,0,0,0 
WORD 200 
-WORD 100200 
-WORD 4 
;3/ROUND 
CLR OeFLAG 
JSR R7,O0VDSUB 
000000 -WORD 34300,0,0,1 
000000 . WORD 140300, 0, 0, 0 
000000 . WORD 134200,0,0,1 
-WORD 200 
-WORD 210 
34/TRUNCATE 
CLR 8eFLAG 
JSR R7,O0VDSUB 
000000 -WORD 34300,0,0,1 
000000 . WORD 140300, 0, 0, 0 
000000 -WORD 134200,0,0,0 
-WORD 240 
-WORD 250 
;5/ROUND NEGATIVE AC, FSRC 
CLR @e¢FLAG 
JSR R7,DVOSUB 
000000 . WORD 177642,0,0,151 





;ACO 


SEQ 0243:~=CS! 


a$$ 


-_s 


| conpaoo KDJ11-B CLUSTER DIAG. 


13838 070106 
13839 070110 


13841 070112 
13842 070120 
13843 070124 
13844 070134 
13845 070144 
13846 070154 
13847 070156 
13848 070160 


13850 070162 
13851 070170 
13852 070174 
13853 070204 
13854 070214 
13855 070224 
13856 070226 
13857 070230 


13859 070232 


13873 070236 
13874 070240 
13875 070246 


FLOATING POINT 
| 13876 070252 





TESTS 


012737 
004767 
100200 
077777 
140400 
002200 
102210 
000012 


012737 
004767 


012605 
012737 
012702 
170102 





000000 
000000 


003030 
000224 
000000 000000 


000000 000000 
177777) «177777 


003030 
012346 


140000 
103645 


000242 


070320 000244 
000200 


MACRO YOS.02 
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-WORD 166600,0,0,123 ;FSRC 
-WORD 51242,0,0,0 ;RESULT 
-WORD 200 ; TEST FPS 
-WORD 200 sRESULT FPS 
36/TRUNCATE NEAGTIVE AC, FSRC 
CLR 8OFLAG sNO INTERRUPT 
JSR R7 ,OVOSUB 300 TEST 
-WORD 177642,0,0,151 ;ACO 
-WORD 166600,0,0,123 ;FSRC 
-WORD 51241,-1,-1,-1 sRESULT 
-WORD 240 ; TEST FPS 
-WORD 240 sRESULT FPS 
3 7/AC=F SRC 
CLR OOFLAG sNO INTERRUPT 
JSR R7, OVDSUB ;D0 TEST 
-WORD 55521,47621,100333,-1 ;ACO 
«WORD 55521,47621,100333,-1 sFSRC 
. WORD aed ; TEST FPS 
-WORD 7700 sRESULT FPS 
;8/UNDERFLOW TRAPS ENABLED, UV RESULT 
MOV #1,290FLAG s INTERRUPT 
JSR R7, OVDSUB ;D0 TEST 
. WORD 100200, 0,0,0 ;ACO 
-WORD 77777,0, 0, 0 sFSRC 
. WORD 140400, 100200, re 100201 ;RESULT 
-WORD 2200 TEST FPS 
-WORD 102210 ;RESULT FPS 
-WORD 12 FEC 
;9/0VERFLOW TRAPS ENABLED 
MOV #1,390FLAG s INTERRUPT 
JSR R7,O0VOSUB 300 TEST 
. WORD 77000 , 123465, 12346 ,525 ACO 
-WORD 303,1,140000,140001 sFSRC 
-WORD 36650,163002,103645 ,64003 sRESULT 
. WORD 1700 ; TEST FPS 
. WORD 101702 sRESULT FPS 
WORD 10 3sFEC 


sHOP OVER SUBROUTINE 


JMP HOP 11 
3 eXaXaXaXaXaXaXaXaXaXaXaXeXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeX 
3 eXaXaXaXaXaXaXaXaeXeXeXaXaXaeXaeXaXaXaXaXeXaeXaXaXaXeXaXaXeXeX 


; 
sDIVD SUBROUTINE: 
ACO 


3 
F FSRC 

: FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
F (FEC) 


; 
3eXeXaXaXaXaXaXaXaXaeXaeXaXaeXeXaeXaeXaeXeXeXaeXeXaeXaeXeXeXaXeXeX eX 
3 eXeXeXaXaXaX aX aX eXeXeXeXaeXeX eX aX aX eXeXeXaXeXeX eX eX eXeXeXeX 


; 

DVDSUB: MOV (SP)+,RS ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$ , @@FPVEC sREDIRECT TRAP VECTOR 
MOV #200 ,R2 sSET TO DOUBLE MODE FOR LOAD 
LOFPS Re sLOAD FPS 














MS 


FLOATING POINT 
13877 070254 
13878 070256 
13879 070262 
13880 070264 
13881 070270 


2 
13883 070272 
tees 070274 


13888 070276 
13891 070312 


2 
13893 070314 


13897 070320 
13898 070326 


TESTS 


170102 


174414 
170000 


032737 
001426 
004737 
104003 


000167 


032737 


170203 
012702 
170102 
012701 
174011 
026503 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


005737 
001002 
000165 


COKDADO KDJ11-B8 CLUSTER DIAG. 
! 


000010 
000030 


000001 
140132 


000042 


000001 
140132 


000020 


070274 
140132 


000200 
003142 
000032 
140132 


000020 
047452 
112466 


140132 


003030 
000034 





SEQ 0245 


sPOINT TO FSRC DATA 


sLOAD ACO WITH TEST DATA 
sGET TEST FPS 
sLOAD TEST FPS 


s*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 


sVERIFY A NO TRAP CONDITION 
sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 

sREJOIN CODE 


sSEE IF EXPECTING A TRAP 

sBRANCH IF EXPECTING A TRAP 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 

sREJOIN CODE 

sSEE IF PC = INSTRUCTION 

sCLEAN UP STACK 


H 

sBRANCH IF GOOD COMPARE 

sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
sPC WAS INCORRECT 


sSAVE FPS 
;SET FPP TO DOUBLE 


sPOINT TO RECEIVED DATA TABLE 

sSAVE ACO RESULT 

sVERIFY STATUS 

sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. 
sFPP ERROR 
BAD FPS 

sPOINT TO EXPECTED DATA 


sVERIFY DATA 


sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 
sFPP ERROR 
sBAD ACO 
3SEE IF NEED TO CHECK FEC 
sBRANCH IF NEED TO CHECK 


$$$ 
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MOV RS,R4 
ADD #10,R4 
LOD CRS),ACO 
MOV 30(0R5),R2 
LOFPS R2 
H 
DIVO CR4),ACO 
i$: CFCC 
H 
s INSTRUCTION DIDNT TRAP 
003030 BIT #1, 30FLAG 
BEQ e$ 
CALL OeDETFPA 
ERROR +3 
JMP 2s 
3 
s INSTRUCTION TRAPPED 
: 
003030 50$: BIT #1,390FLAG 
BNE 51$ 
CALL aeDETFPA 
ERROR 3 
JMP 2s 
51$: MOV (SP)+,R4 
TST (SP )+ 
CMP #1$,R4 
BEQ 2s 
CALL OeDETFPA 
ERROR +3 
;COMMON CODE FOR TRAP AND NO TRAP 
3 
2s: STFPS R3 
Vv #200 ,R2 
LOFPS R2 
MOV @RECDST,R1 
STD ACO,(R1) 
CMP 32CRS),R3 
BEQ 3$ 
CALL @eDETFPA 
ERROR 3 
3$: MOV RS,R4 
ADD #20,R4 
4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL QeDETFPA 
ERROR «3 
5$: TST @eFLAG 
BNE 6$ 
JMP 34(R5S) 





sRETURN FROM TEST 














eee ee Ee 


N3 
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13935 070456 


| 
FLOATING POINT 
13934 070454 
13936 070462 


TESTS 


000034 
140132 


000036 


000000 
177777 


000000 
177777 





SEQ 0246 
6$: STST R1 sSAVE FEC 
MOV 34(RS),R4 3sGET FEC 
CMP R4,R1 sVERIFY FEC 
BEQ 7$ sBRANCH IF GOOD 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR 3 sFPP ERROR 
sBAD FEC 
7$: JMP 36(RS) sRETURN FROM TEST 
3 
HOP11: 
F 
: ll ieee ee ee ee ee ee 
sTEST MULF 
3 
MMULF : 
3 
31/ACO=FSRC=0 -INTERRUPTS DISABLED 
CLR @OFLAG sNO INTERRUPT 
JSR R7, MLFSUB 300 TEST 
-WORD 0,0 3ACO 
-WORD 0,0 3F SRC 
-WORD 0,0 sRESULT 
-WORD 7517 3; TEST FPS 
- WORD 7504 sRESULTANT FPS 
s2/AC>FSRC=0 - INTERRUPTS ON 
CLR @OFLAG 3NO INTERRUPT 
JSP R7,MLFSUB :00 TEST 
-WORD 200,0 3ACO 
«WORD 0,0 sFSRC 
-WORD 0,0 sRESULT 
- WORD 13 3; TEST FPS 
‘ 4 sRESULTANT FPS 
33/AC=0 FSRC>0 - 
CLR QOFLAG sNO INTERRUPT 
JSR R7,MLFSUB 300 TEST 
WORD 100,0 3ACO 
» WORD 300,0 3s=SRC 
-WORD 0,0 sRESULT 
.- WORD 7500 ; TEST FPS 
. WORD 7504 sRESULTANT FPS 
34/AC=1 >FSRC - ROUND 
CLR @OFLAG sNO INTERRUPT 
JSR R7,MLFSUB 3D0 TEST 
-WORD 40200,0 ;ACO 
-WORD 40177,-1 sFSRC 
-WORD 40177,-1 sRESULT 
-WORD O 3s TEST FPS 
. f¢) sRESULTANT FPS 
35/TRUNCATE 
CLR 8OFLAG sNO INTERRUPT 
JSR R7,MLFSUB 300 TEST 
WORD 40177,-1 3ACO 
-WORD 40200,0 ;FSRC 
-WORD 40177,-1 sRESULT 
-WORD 40 ; TEST FPS 
-WORD 40 sRESULTANT FPS 
36/NORMALIZE 





COKDADO KDJ11-B8 CLUSTER DIAG. 


13994 070674 
13995 070700 
13996 070704 
13997 070710 
13998 070714 
13999 070716 


14001 070720 
14002 070724 
14003 070730 
14004 070734 
14005 070740 
14006 070744 
14007 070746 


14009 070750 
14010 070754 
14011 070760 
14012 070764 
14013 070770 
14014 070774 
14015 070776 


14017 071000 
14018 071004 
14019 071010 
14020 071014 
14021 071020 
14022 071024 
14023 071026 


14025 071030 
14026 071034 
14027 071040 
14028 071044 
14029 071050 
14030 071054 
14031 071056 


14033 071060 
14034 071064 
14035 071070 
14036 071074 
14037 071100 
14038 071104 
14039 071106 


14041 071110 
14042 071116 
14043 071122 
14044 071126 
14045 071132 
14046 071136 
14047 071140 


FLOATING POINT 
13993 070670 
14048 071142 

| 

' 


TESTS 


004767 


003030 
000374 
000000 


000000 
000000 


003030 
000344 


000000 
125252 
177777 


003030 
000314 
177777 
025252 
067324 


003030 
000264 
000000 
000000 
000000 


003030 
000234 
000000 
177776 
177776 


003030 
000204 


000000 
177776 
177776 





B4 
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CLR @OFLAG 
JSR R7,MLFSUB 
-WORD 40100,0 ;ACO 
-WORD 40100,0 ;FSRC 
-WORD 40020,0 
-WORD 12 
-WORD 0 
3 77ROUND 
CLR QOFLAG 
JSR R7 ,MLFSUB 
-WORD 17500,0 ;ACO 
-WORD 23652,125252 
«WORD 3177,-1 
. WORD 7417 
.WORD 7400 
38/AC>0>FSRC ROUND 
CLR OeFLAG 
JSR R7,MLFSUB 
-WORD 40342,-1 
-WORD 176543,025252 
. WORD 176711,67324 
-WORD 7500 
-WORD 7510 
s9/ TAC CF SRC<O, ROUND 
CLR @OFLAG 
JSR R7,MLFSUB 
. WORD 144600,0 
-WORD 154000,0 
.WORD 60400,0 
.-WORD 2” 
. WORD 
+ 10/AC<FSRC, ROUND 
CLR @eFLAG 
JSR R7,MLFSUB 
. WORD 60000,0 
.- WORD 140377,177776 
.» WORD 160177,177776 
-WORD 17 
WORD 10 
$11/AC>0>F SRC, TRUNCATE 
CLR @eFLAG 
JSR R7,MLFSUB 
-WORD 60000,0 
. WORD 140377 ,177776 
. WORD 160177,177776 
»WORD 7547 
.» WORD 7550 
;12/UNDERFLOW, NO INTERRUPTS 
003030 MOV $2, 90FLAG 
JSR R7,MLFSUB 
-WORD 200,1 
-WORD 200,1 
-WORD 40200,2 
. WORD 42117 
.» WORD 142100 
WORD 


° 12 
313/0VERFLOW, TRAP 


3NO INTERRUPT 
300 TEST 


sRESULT 
s TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 
300 TEST 


sFSRC 

sRESULT 

3; TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 


300 TEST 
;ACO 
sFSRC 

sRESULT 
3; TEST FPS 


sRESULTANT FPS 


3NO INTERRUPT 
300 TEST 
;ACO 


sFSRC 
sRESULT 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 
;ACO 


sF SRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
300 TEST 


3; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 

;ACO 

3FSRC 

sRESULT 

3; TEST FPS 

sRESULT FPS 

3FEC 


ES A 


SEQ 0247 


— 


ee 





COKDADO KDJ11-B CLUSTER DIAG. 


14051 071152 
14052 071156 
14053 071162 
14054 071166 
14055 071172 
14056 071174 
14057 071176 


14059 071200 
14060 071206 
14061 071212 
14062 071216 
14063 071222 
14064 071226 
14065 071230 
14066 071232 


14068 071234 
14069 071242 
14070 071246 
14071 071252 
14072 071256 
14073 071262 
14074 071264 
14075 071266 


14077 071270 


14090 071274 
14091 071276 


14098 071326 


14100 071330 
14101 071332 


14105 071334 


FLOATING POINT 

14050 071144 
| 14106 071342 
' 


‘ 
-_--—-- 


TESTS 
012737 


012737 
004767 
077700 
077700 
000000 
040117 
040106 
000010 


012737 


012605 
012737 
012702 
170102 
172415 
010504 
062704 
016502 
170102 


171014 
170001 


032737 
001426 


000001 
000116 
177777 
000000 
177777 


000242 


090001 





C4 
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SEQ 0248 
003030 MOV #1, 90FLAG s INTERRUPT 
JSR R7,MLFSUB :D0 TEST 
. WORD 177777,-1 ACO 
. WORD 40300,0 sFSRC 
. WORD 100077,-1 ;RESULT 
. WORD 1117 ; TEST FPS 
. WORD 101116 sRESULT FPS 
. WORD 10 sFEC 
314/0VERFLOW NO TRAP 
003030 MOV $2 ,90FLAG sNO INTERRUPT 
JSR R7,MLFSUB :D0 TEST 
WORD 77700,0 ACO 
. WORD 77700,0 sF SRC 
. WORD 0,0 sRESULT 
. WORD 40117 ; TEST FPS 
. WORD 40106 sRESULT FPS 
. WORD 10 3sFEC 
31S/UNDEFINED VARIABLE IN FSRC, TRAP ENABLED 
003030 MOV #1, 30FLAG : INTERRUPT 
JSR R7,MLFSUB ;D0 TEST 
.WORD 123465,0 ;ACO 
. WORD 100022,0 sFSRC 
. WORD 123465, ;RESULT 
. WORD 4000 3; TEST FPS 
. WORD 104000 sRESULT FPS 
. WORD 14 3sFEC 
; 
JMP 
5 *XeXeXeXeXeXeX aX eX aXaXaeXeXaXeXeXeX eX aX eXaeXaeXeXaeXaeXaXaXeXaX 
3s eXaXaXeXaXaXaXaXaXeX aX eX aX aXeXaxXaeXaXaeXeXeXeXeXaXaeXeXaXeXeX 
3 
; ACO 
3 FSRC 
; FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
H CFEC) 
; 
5 *XeXaXeXeXaXeXaXaeXeXaXaeXeXaeXeXaXaeXeXaeXaeXeXeXeXaXaeXeXaXeXaX 
5 eXaXaeXeXeXeXaeXaXaXaeXaXeXaXeXaeX aX ar aXaXeXaeXaeXaXaXeXeXaXaXaX 
3 
MLFSUB: MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
000244 MOV #50$ , @OFPVEC sREDIRECT TRAP VECTOR 
MOV #200,R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
LOD CRS), ACO ;LOAD ACO WITH TEST DATA 
MOV RS,R4 sPOINT TO FSRC DATA 
ADD 04,R4 
MOV 14(R5),R2 ;GET TEST FPS 
LDFPS R2 ;LOAD TEST FPS 
; 
MULF (R4),ACO 3*TEST INSTRUCTION 
1$: SETF ;WAIT FOR POSSIBLE FPA TRAP. 
; 
s INSTRUCTION DIDNT TRAP 
003030 BIT #1,290FLAG ;VERIFY A NO TRAP CONDITION 
BEQ © 2s ;BRANCH IF GOOD 


El 








_— 


- -- a ee a ee 





FLOATING POINT 


14107 
14108 
14109 
14110 
14111 
14112 
14113 
14114 
14115 
14116 
14117 
14118 
14119 
14120 
14121 
14122 
14123 
14124 
14125 
14126 
14127 
14128 
14129 
14130 
14131 
14132 
14133 
14134 
14135 
14136 
14137 
14138 
14139 
14140 
14141 
14142 
14143 
14144 
14145 
14146 
14147 
14148 
14149 
14150 
14151 
14152 
14153 
14154 
14155 
14156 
14157 
14158 
14159 
14160 
14161 
14162 
14165 


----- 


071344 
071350 


071352 


071356 
071364 
071366 
071372 


071374 
071400 
071402 
071404 
071410 
071412 
071416 


071420 
071422 
071426 
071430 
071434 
071436 
071442 
071444 
071450 


071452 
071454 
071460 
071464 
071470 
071472 
071476 


071500 
071504 
071506 


071512 
071514 
071520 
071522 
071524 
071530 


071532 
071536 


TESTS 


004737 
104003 


000167 


032737 
001005 
004737 
104003 


000167 
012604 
005726 
022704 
001403 
004737 
104003 


170203 
012702 
170102 
012701 
174011 
026503 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


005737 
001002 
000165 


170301 
016504 
020401 
001403 
004737 
104003 


000165 


140132 


000042 


000001 


140132 


000020 


071332 
140132 


000200 
003142 
000016 
140132 


000010 
046376 
111430 
140132 


003030 
000020 


000020 


140132 


000022 





CALL OeDETFPA 
ERROR +3 
JMP 2s 

; 

s INSTRUCTION TRAPPED 

3 

003030 50$: BIT #1,90FLAG 

BNE 51$ 
CALL aeDETFPA 
ERROR +3 
JMP 2$ 

51$: MOV CSP)+,R4 
TST (SP )- 
CMP #1$,R4 
BEQ 2$ 
CALL OeDETFPA 
ERROR 23 


2s: STFPS R3 
MOV #200 ,,R2 
LOFPS R2 
MOV #RECDST,R1 
STD AcO,(R1) 
CMP 16(RS),R3 
BEQ 3$ 
CALL @eDETFPA 
ERROR «3 
3$: MOV R5,R4 
ADD #10,R4 
4$: JSR R7,DATVFR 
TST COUNT 
BEQ 5$ 
CALL @eDETFPA 
ERROR +3 
5$: TST ae¢FLAG 
BNE 6$ 
JMP 20(RS) 
rs 
;VERIFY ERROR STATUS 
+ 
6$: STST R1 
MOV 20(R5),R4 
CMP R4,R1 
BEQ 7$ 
CALL ae#DETFPA 
ERROR +3 
7$: JMP 22(R5) 
HOP 12: 


; 
| D4 
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;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


;SEE IF EXPECTING A TRAP 
sBRANCH IF EXPECTING A TRAP 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 
s;SEE IF PC = INSTRUCTION 
s;CLEAN UP STACK 


é 
sBRANCH IF GOOD COMPARE 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sPC WAS INCORRECT 


COMMON CODE FOR TRAP AND NO TRAP 


sSAVE FPS 
;SET FPP TO DOUBLE 


sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 

sVERIFY STATUS 

sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 

sPOINT TO EXPECTED DATA 
sVERIFY DATA 


sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD ACO 
;SEE IF NEED TO CHECK FEC 
s;BRANCH IF NEED TO CHECK 
sRETURN FROM TEST 


;SAVE FEC 

;GET FEC 
;VERIFY FEC 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sBAD FEC 
sRETURN FROM TEST 


SEQ 0249 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


| comese KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


14169 
14170 
14171 
14172 
14173 
14174 
14175 
14176 
14177 
14178 
14179 
14180 
14181 
14182 
14183 
14184 
14185 
14186 


14166 
14167 
14168 
14187 





071602 
071606 
071612 
071622 
071632 
071642 
071644 


071646 
071652 
071656 
071666 
071676 
071706 
071710 


071712 
071716 
071722 
071732 
071742 
071752 
071754 


071756 
071762 
071766 
071776 
072006 
072016 
072020 


072022 
072026 
072032 
072042 
072052 
072062 
072064 


072066 
072072 
072076 


177777 


000000 
177777 


000000 
125252 
177777 


003030 
000224 
000000 


MACRO YO5.02 


000000 


000000 
177777 
177777 


000000 
177777 
177777 


177777 
000000 
000000 


000000 
125252 
177777 


600000 


Wednesday 
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MMULD : 


. WORD 





aeFLAG sNO INTERRUPT 

R7,MLDSUB 3:00 TEST 

100,0,0,0 ;ACO 

411,-1,0,1 3FSRC 

0,0,0,0 ;RESULT 

200 ; TEST FPS 

204 sRESULTANT FPS 

aeFLAG sNO INTERRUPT 

R7,MLDSUB :D0 TEST 

77777,0,0,0 ;ACO 

0,0,0,0 sF SRC 

0,0,0,0 ;RESULT 

7700 ; TEST FPS 

7704 sRESULTANT FPS 

aeFLAG ;NO INTERRUPT 

R7,MLOSUB ;D0 TEST 

40200,0,0,0 ;ACO 

277,-1,-1,-1 sFSRC 

277,-1,-1,-1 ;RESULT 

7717 ; TEST FPS 

7700 sRESULTANT FPS 
TRUNCATE 

@OFLAG :NO INTERRUPT 

R7,MLDSUB ;D0 TEST 

65500,0,0,1 3ACO 

37577,-1,-1.-2 ;FSRC 

65077,-1,-1,-1 ;RESULT 

7717 ; TEST FPS 

7700 sRESULTANT FPS 

OOFLAG sNO INTERRUPT 

R7,MLDSUB :D0 TEST 

137577,-1,-1.,-2 ;ACO 

165400,0,0,1 sFSRC 

65000,0,0,0 ;RESULT 

7wrat ; TEST FPS 

7700 sRESULTANT FPS 

aeFLAG sNO INTERRUPT 

R7,MLOSUB ;D0 TEST 

17500, 0,0,0 3;ACO 

123652, 125252, 125252, 125252 

103177,-1,-1,-1 ;RESULT 

200 ; TEST FPS 

210 sRESULTANT FPS 


TRAPS DISABLED 
aeFLAG 
R7,MLDOSUB 
300,0,0,252 


sNO INTERRUPT 


;D0 TEST 
;ACO 





SEQ 0250 





COKDADO KDJ11-B CLUSTER DIAG. 


14223 072106 
14224 072116 
14225 072126 
14226 072130 


14228 072132 
14229 072140 
14230 072144 
14231 072154 
14232 072164 
14233 072174 
14234 072176 
14235 072200 


14237 072202 
14238 072206 
14239 072212 
14240 072222 
14241 072232 
14242 072242 
14243 072244 


14245 072246 
14246 072254 
14247 072260 
14248 072270 
14249 072300 
14250 072310 
14251 072312 
14252 072314 


14254 072316 


14267 072322 
14268 072324 
14269 072332 
14270 072336 
14271 072340 
14272 072342 
14273 072344 
14274 072350 
14275 072354 


14277 072356 


o 
FLOATING POINT 
14278 072360 


= 


TESTS 
000377 
000000 


005740 
005744 


012737 
004767 
100277 
100300 
040417 
002217 
102200 
000012 


005037 
004767 
177777 
040200 


000000 
006740 
006746 


012737 
004767 
157700 
167700 
007420 
001240 
101242 
000010 


000167 


012605 
012737 
012702 
170102 
172415 
010501 
062701 
016502 
170102 


171011 
170011 


000001 


017777 


000242 


072404 
000200 


000010 
000030 
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000002 -WORD 377,1.2,3 3sFSRC 
000000 -WORD 0,0,0,0 ;RESULT 
-WORD 5740 ; TEST FPS 
. WORD 5744 ;RESULT FPS 
;8/UNDERFLOW, TRAP ENABLED 
003030 MOV #1,30FLAG s INTERRUPT 
JSR R7,MLOSUB 300 TEST 
000002 -WORD 100277,1,2,-1 ACO 
000001 -WORD 100300,1,1,1 ;FSRC 
077403 -WORD 40417,40001,77403,0 ;RESULT 
-WORD 2217 ; TEST FPS 
-WORD 102200 ;RESULT FPS 
. WORD 12 3sFEC 
;9/O0VERFLOW, TRAPS DISABLED 
CLR aeFLAG sNO INTERRUPT 
JSR R7,MLDSUB ;D0 TEST 
177777 . WORD -1,-1,-1,-1 ;ACO 
177777 .WORD 40 200,-1,-1, -1 3FSRC 
000000 -WORD 0,0,0,0 ;RESULT 
-WORD 6740 ; TEST FPS 
-WORD 6746 sRESULT FPS 
310/0VERFLOW, TRAPS ENABLED 
003030 MOV #1,90FLAG ; INTERRUPT 
JSR R7,MLDSUB ;D0 TEST 
025252 . WORD 157700, 25252, 25252 ,25252 ;ACO 
000000 . WORD 167700,0,0,0 sFSRC 
117777 . WORD 7420, 017777, 117777, 117777 ;RESULT 
. WORD 1240 3 TEST FPS 
. WORD 101242 sRESULT FPS 
. WORD 10 3sFEC 
; 
JMP HOP 13 


5 *XaXKXEX EX RXEX SX EXEX EX EXEXSEX EX EX HEX XH X HEX XK HX HEX XXX XK EX HX 
5 eXEXEXEXEXEXEXEXEXEXHEX EX EX EX EX HEX HEX EX EX EX EX SEX EX EX EXE X EX EX EX 


; 
3 ACO 

3 FSRC 

; FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
$ (FEC) 


H 
5 *XaXaXaeX aX aXeXaXEX EX EX EX EX EX EX EXE X EX SEX EX EXE X HX EXE X XE X EX EX 
3 eXaXaXaX aX SXHX EX EXHX SEX EXEX HEX RX EX SEX EX HX SEX EX EX SEX EX EX EX EK EX SX 


; 
MLDSUB: MOV (SP)+,R5 


000244 MOV #50$ , AHF PVEC sREDIRECT TRAP VECTOR 

MOV #200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
LOD CRS),ACO ;LOAD ACO WITH TEST DATA 
MOV R5,R1 sPOINT TO FSRC DATA 
ADD #10,R1 
MOV 30(RS5),R2 ;GET TEST FPS 
LOFPS Re2 ;LOAD TEST FPS 

6 
MULD (R1),ACO :#TEST INSTRUCTION 

1$: SETD s;WAIT FOR POSSIBLE FPA TRAP. 


—_—_———|! ns ee ec _—_—_———ee ——————E——E—E——E—E—_————— 


; RETURN ADDRESS TO USE AS POINTER 


Pie sane ae 


COKDADO *KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


14282 072362 032737 000001 
14283 072370 001426 
14284 072372 004737 140132 
14285 072376 104003 


14287 072400 000167 000042 


14291 072404 032737 000001 
14292 072412 001005 
14293 072414 004737 140132 
14294 072420 104003 


14296 072422 000167 000020 
14297 072426 012604 
14298 072430 005726 
14299 072432 022704 072360 
14300 07243€ 001403 
14301 072440 004737 140132 
14302 072444 104003 


14307 072446 170203 
14308 072450 012702 000200 
14309 072454 170102 
14210 072456 012701 003142 
14311 072462 174011 
14312 072464 026503 000032 
14313 072470 001403 
14314 072472 004737 140132 
14315 072476 104003 


14317 072500 010504 ° 
14318 072502 062704 000020 
14319 072506 004767 045366 
14320 072512 005767 110402 
14321 072516 001403 

14322 072520 004737 140132 
14323 072524 104003 


14325 072526 005737 003030 
14326 072532 001002 
14327 072534 000165 000034 


14329 072540 170301 

14330 072542 016504 000034 
14331 072546 “020401 
14332 072550 001403 
14333 072552 004737 
14334 072556 104003 


14336 072560 000165 000036 


140132 
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s INSTRUCTION DIDNT TRAP 


é 
003030 BIT #1,390FLAG 
BEQ 2s 
CALL AeDETFPA 
ERROR +3 
JMP 2$ 


a 
sINSTRUCTION TRAPPED 
; 

003030 50%: BIT 


#1,@0FLAG 

BNE 51$ 
CALL aeDETFPA 
ERROR +3 
JMP 2s 

S1$: MOV (SP)+,R4 
TST (SP )-+ 
CMP #1$,R4 
BEQ 2s 
CALL aeDETFPA 
ERROR +3 


;VERIFY A NO TRAP CONDITION 


sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
s; INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


s;SEE IF EXPECTING A TRAP 
;BRANCH IF EXPECTING A TRAP 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 
;SEE IF PC = INSTRUCTION 
Wea UP STACK 


;BRANCH IF GOOD COMPARE 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
3PC WAS INCORRECT 


; 
;COMMON CODE FOR TRAP AND NO TRAP 


; 
2$: STFPS R3 
MOV #200 ,R2 


2 
MOV #RECDST ,R1 
STD ACO, (R1) 
CMP 32CRS),R3 


- 
o 
nN 
v 
w 
P 


BEQ 3$ 
CALL aeDETFPA 
ERROR +3 

3$: MOV RS,R4 
ADD #20,R4 

4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL a#DETFPA 
ERROR +3 

S$: TST OeFLAG 
BNE 6$ 


JMP 34(R5) 
;VERIFY ERROR STATUS 


6$: STST R1 
MOV 34(R5),R4 
CMP R4,R1 
BEQ 7$ 
CALL aeDETFPA 
ERROR +3 

7$: JMP 36(R5) 





;SAVE FPS 
;SET FPP TO DOUBLE 


sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 

;VERIFY STATUS 

sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
sVERIFY DATA 


;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

sBAD ACO 
;SEE IF NEED TO CHECK FEC 
sBRANCH IF NEED TO CHECK 
;RETURN FROM TEST 


sSAVE FEC 

;GET FEC 

; VERIFY FEC 
sBRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


3;FPP ERROR 
;BAD FEC 
;RETURN FROM TEST 





SEQ 0252 





H4 
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14395 073014 147400 025700 . WORD 


6 
147400, 25700 


sNO INTERRUPT 
3:00 TEST 


sFSRC 

sFRACTIONAL RESULT 
; INTEGER RESULT 

; TEST FPS 
;RESULTANT FPS 


sNO INTERRUPT 
:D0 TEST 
;ACO 


sFRACTIONAL RESULT 
sINTEGER RESULT 
; TEST FPS 


sRESULTANT FPS 


3NO INTERRUPT 
;D0 TEST 
;ACO 


sFSRC 

sFRACTIONAL RESULT 
s INTEGER RESULT 

; TEST FPS 

sRESULT FPS 


sNO INTERRUPT 
;D0 TEST 
;ACO 


sFRACTIONAL RESULT 
sINTEGER RESULT 

; TEST FPS 

;RESULTANT FPS 


sNO INTERRUPT 
3D0 TEST 
sACO 


sFRACTIONAL RESULT 
sINTEGER RESULT 

; TEST FPS 

sRESULTANT FPS 


sNO INTERRUPT 
:D0 TEST 


sFSRC 


;ACO 


FLOATING POINT TESTS 
14337 072564 HOP13: 
14340 . 
1434.00 en nnn ne en ee eee eee eee eee 
14342 ;TEST MODF 
14343 3 
14344 072564 MMOOF : 
14345 3 
14346 31/AC=0 FSRC=0 
14347 072564 005037 003030 CLR aeFLAG 
14348 072570 004767 000554 JSR R7 , MOF SUB 
14349 072574 000100 000000 -WORD 100,0 ACO 
14350 072600 012346 177777 -WORD 12346,-1 
14351 072604 000000 000000 . WORD 0,0 
14352 072610 000000 000000 -WORD 0,0 
14353 072614 000013 .WORD 13 
14354 072616 000004 . WORD 4 
14355 3:2/FSRC=0 
14356 072620 005037 003030 CLR OeFLAG 
14357 072624 004767 000520 JSR R7,MDF SUB 
14358 072630 012356 177777 WORD 12356,-1 
14359 072634 000000 000000 WORD 0,0 ;FSRC 
14360 072640 000000 000000 WORD . 
14361 072644 000000 000000 WORD 0,0 
14362 072650 000003 -WORD 3 
14363 072652 000004 . WORD 4 
14364 33/AC=0 
14365 072654 005037 003030 CLR OeFLAG 
14366 072660 004767 000464 JSR R7,MDFSUB 
14367 072664 000000 000000 . WORD AL’) 
14368 072670 177777 177777 . WORD -1,-1 
14369 072674 000000 000000 . WORD 0,0 
14370 072700 000000 000000 . WORD 0,0 
14371 072704 007500 .WORD 7500 
14372 072706 007504 . WORD 7504 
14373 ;4/AC>FSRC>0 
14374 072710 005037 003030 CLR aeFLAG 
14375 072714 004767 000430 JSR R7, MDF SUB 
14376 072720 046252 125252 . WORD 46252, 125252 
14377 072724 040300 000000 . WORD 40300,0 ;FSRC 
14378 072730 000000 000000 . WORD 0,0 
14379 072734 046377 177777 . WORD 46377,-1 
14380 072740 000013 -WORD 13 
14381 072742 000004 4 
14382 35/AC>FSRC>0 
14383 072744 005037 003030 aeFLAG 
14384 072750 004767 000374 JSR R7,MDF SUB 
14385 072754 077652 125252 .WORD 77652,125252 
14386 072760 040300 000000 -WORD 40300,0 ;FSRC 
14387 072764 000000 000000 . WORD 0,0 
14388 072770 077777 177777 . WORD 77777, -1 
14389 072774 000000 . WORD c¢] 
14390 072776 000004 -WORD 4 
14391 36/AC>O<FSRC, INTEGERS 
14392 073000 005037 003030 CLR OeFLAG 
14393 073004 004767 000340 JSR R7,MDF SUB 
14394 073010 060600 000000 . WORD 0600,0 











SEQ 0253 





COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT TESTS 


073020 
073024 
073030 
073032 


073122 


073124 
073130 
073134 
073140 
073144 
073150 
073154 
073156 


073160 
073164 
073170 
073174 
073200 
073204 
073210 
073212 


073214 
073220 
073224 
073230 
073234 
073240 
073244 
073246 


073250 
073254 
073260 
073264 
073270 
073274 
073300 


000000 
177777 


003030 
000214 
125252 
000000 


000000 
177777 


000000 
025160 





MACRO YOS.02 


14 
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. WORD 0 
-WORD 170000,25700 
-WORD 7400 
-WORD 7404 
37/AC<O<FSRC, FRACTIONAL 
CLR OeFLAG 
JSR R7 , MOF SUB 
-WORD 100227,-1 
-WORD 44025,25252 
-WORD 104061,21251 
-WORD OQ, 
WORD O 
ORD 10 
38/AC<O>FSRC, TRUNCATE 
CLR @eFLAG 
JSR R7 , MOF SUB 
-WORD 46252,125252 
-WORD 40300,0 
-WORD 0,0 
-WORD 46377,-1 
-WORD 53 
-WORD 44 
;9/ROUND INTEGER 
CLR OeFLAG 
JSR R7 , MOF SUB 
. WORD 46252, 125252 
. WORD 40300,0 
-WORD 0,0 
-WORD 46377,-1 
. WORD - 
WORD 
;10/ TRUNCATE FRACTION 
CLR aeFLAG 
JSR R7, MDF SUB 
. WORD 40777, -1 
-WORD 40200,0 
-WORD 40177,177770 
WORD 40740,0 
WORD 0O 
. WORD 
;11/ROUND INTEGER 
CLR aeFLAG 
JSR R7, MDF SUB 
-WORD 0,0 
-WORD 0,0 
-WORD 0,0 
-WORD 0,0 
-WORD 0 
-WORD 4 
312/ROUND FRACTION 
CLR aeFLAG 
JSR R7,MOF SUB 
. WORD 40225, 125252 
-WORD 66652,52525 
-WORD 0,0 
-WORD 66707,25160 
-WORD 7027 





14-235 


sFRACTIONAL RESULT 

; INTEGER RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
300 TEST 
;ACO 


sF SRC 

sFRACTIONAL RESULT 
s INTEGER RESULT 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
;D0 TEST 
;ACO 


sFSRC 
sFRACTIONAL RESULT 
s INTEGER RESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
;D0 TEST 


sACO 
sFSRC 
sFRACTIONAL RESULT 
s INTEGER RESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 


sFRACTIONAL RESULT 
sINTEGER RESULT 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
;D0 TEST 
sACO 


sFSRC 

sFRACTIONAL RESULT 
sINTEGER RESULT 

; TEST FPS 

sRESULT FPS 


3NO INTERRUPT 

;D0 TEST 

3ACO 

;FSRC 
sFRACTIONAL RESULT 

;INTEGER RESULT 
; TEST FPS 








COKDADO KDJ11-B8 CLUSTER DIAG. 


FLOATING POINT 


14481 073350 
14482 073352 
14483 073360 
14484 073364 
14485 073366 
14486 073370 
14487 073374 
14488 073376 
14489 073400 
14490 073404 
14491 073410 


14493 073412 
14494 073414 


14498 073416 
14499 073424 
14500 073426 
14501 073432 


14503 073434 


14507 073440 
14508 073446 
| 14509 073450 


TESTS 
007004 
012737 


012605 
012737 
012702 
170102 
172415 
012701 
172511 
010501 
062701 
016502 
170102 


171411 
170001 


032737 
001426 
004737 
104003 


000167 


032737 
001005 
004737 


000001 003030 


000310 


073440 
000200 


073650 


000004 
000020 


000001 
140132 


000042 


000001 
140132 


MACRO YOS.02 


000244 


003030 


003030 





. WORD 
; /OVERFLOW 
MOV 
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7004 sRESULT FPS 
#1, 90FLAG s INTERRUPT 
R7, MDF SUB 3:00 TEST 
76000 ,0 sACO 
76000 ,0 sFSRC 
0,0 sFRACTIONAL RESULT 
33600,0 sINTEGER RESULT 
1000 ;_ TEST FPS 
101006 sRESULT FPS 
10 sFEC 
HOP 14 


; 
5K HK aX aK eK HK eK eX HK eK eK NK eK MK KKK KK KKK KK KKK KOK 
5X HXEXHEK RX XK XK aX KEK KKK KKK XK KK KKK KKK KEN 


ACO 

FSRC 

FRACTIONAL RESULT 
INTEGER RESULT 

FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
(FEC) 


5 XEXHXHEX KK HX XX XX AK KKK KK KKK KK KK KEKE KEK 
5X eXEXEX RX aX HK XX HK XK KX KK XK KX HK KKK EK KEK KEK 


; 
MOF SUB: MOV CSP)+,R5 s RETURN ADDRESS TO USE AS POINTER 
MOV #50$ , BOF PVEC sREDIRECT TRAP VECTOR 
V #200,R2 sSET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
LOD C(RS),ACO sLOAD ACO WITH TEST DATA 
MOV #MODGAR ,R1 sLOAD KNOWN INTO AC1 
LOD (R1),AC1 ; 
MOV RS,R1 sPOINT TO FSRC DATA 
ADD #4,R1 
MOV 20(R5),R2 sGET TEST FPS 
LDOFPS R2 ;LOAD TEST FPS 
; 
MODF (R1),ACO 3*#TEST INSTRUCTION 
1$: SETF sWAIT FOR POSSIBLE FPA TRAP. 
; 
s INSTRUCTION DIDNT TRAP 
BIT #1,90FLAG sVERIFY A NO TRAP CONDITION 
BEQ 2s sBRANCH IF GOOD 
CALL aeDETFPA s;DETERMINE FLOATING POINT FAULT. 
ERROR +3 sFPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2s sREJOIN CODE 
; 
s INSTRUCTION TRAPPED 
é 
50$: BIT #1,@0FLAG sSEE IF EXPECTING A TRAP 
BNE 51$ sBRANCH IF EXPECTING A TRAP 
CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. 














SEQ 0255 


4 


COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


14513 
14514 
14515 
14516 
14517 
14518 
14519 
14520 
14521 
14522 
14523 


| 
14510 
14511 
14512 
14524 


073454 


073502 
073504 
073510 
073512 


073516 
073520 
073524 
073526 
073532 


073534 
073536 
073542 
073546 
073552 
073554 
073560 


TESTS 
104003 


000167 
012604 
005726 
022704 
001403 
004737 
104003 


170203 
012702 
170102 
012701 


174011 
026503 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


174111 
010504 
062704 
004767 
005767 


177777 








000020 


073414 
140132 


000200 
003142 


000022 
140132 


000010 
044314 
107346 


140132 


000014 
044264 
107316 


140132 


003030 
000024 
000024 


140132 


000026 
177777 | =177777 


MACRO YOS.02 





ERROR +3 
JMP 2$ 

51$: MOV CSP)+,R4 
TST (SP )+ 
CMP #1$,R4 
BEQ 2$ 
CALL OeDETFPA 
ERROR +3 
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;FPP ERROR 

s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 
sSEE IF PC = INSTRUCTION 
;CLEAN UP STACK 


; 
sBRANCH IF GOOD COMPARE 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sPC WAS INCORRECT 


a 
sCOMMON CODE FOR TRAP AND NO TRAP 


5 
2s: STFPS 


; SAVE — 


3$: MOV 
4$: JSR 


eg INTEGER RE 


6$: TST 


7$; STST 


8$: JMP 


: 
MODGAR: .WORD 
HOP 14; 


R3 


@RECDST,R1 


RESULT 
ACO, (R1) 
22(R5),R3 


3$ 
aeDETFOA 
+3 


RS,R4 
#10,R4 
R7,DATVFR 
COUNT 

S$ 
QeDETFPA 


Sa 


SULT 
AC1,(R1) 
RS,R4 

#14 ,R4 
R7,DATVFR 
COUNT 


1 
24(R5),R4 
R4,R1 

8$ 
QeDETFPA 


+3 


26(RS) 


-1,-1,-1,-1 


ES SK — —  S 


sSAVE FPS 
;SET FPP TO DOUBLE 


;POINT TO RECEIVED DATA TABLE 
;SAVE ACO RESULT 


;VERIFY STATUS 
sBRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
sBAD ACO 


sSAVE AC1 RESULT 
sPOINT TO EXPECTED 


sVERIFY DATA 
‘ 
s;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD AC1 
;SEE IF NEED TO CHECK FEC 
sBRANCH IF NEED TO CHECK 
;sRETURN FROM TEST 
sSAVE FEC 
;GET FEC 
;VERIFY FEC 
sBRANCH IF GOO 


D 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FEC 
;RETURN FROM TEST 


sKNOWN DATA FOR AC1 


$$$ 


$$$ 


+$$ 


$o4 


$$$ 


SEQ 0256 





| COKDADO KDU11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


14569 
14570 
14571 
14572 
14573 073660 


14579 073700 000100 000000 
14580 073710 000000 
14581 073720 000000 


14594 074010 005037 003030 
14595 074014 004767 001034 
14596 074020 056252 125252 
14597 074030 040300 000000 
14598 074040 000000 000000 
14599 074050 056377 177777 
14600 074060 000213 

14601 074062 000204 


14603 074064 005037 003030 
14604 074070 004767 000760 
14605 074074 140240 000000 
14606 074104 063714 146314 
14607 074114 000000 000000 
14608 074124 163777 177777 
14609 074134 000210 

14610 074136 000204 


14612 074140 005037 003030 
14613 074144 004767 000704 
14614 074150 056200 000000 
14615 074160 040340 000000 
14616 074170 000000 
14617 074200 056340 000000 
14618 074210 000213 
14619 074212 000204 


14621 074214 005037 003030 
14622 074220 004767 000630 
14623 074224 056252 125252 
14624 074234 040300 

14625 074244 000000 








L4 
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177777 
000000 


000000 
000000 


125252 
000000 


177777 


162531 


125252 
000000 
000000 


;TEST MOOD 
; 
MMODD : 


° 
31/AC>FSRC=0 
CLR 


CLR 





1234,-1,0,0 


R7 , MODSUB 


3NO INTERRUPT 
3:00 TEST 

ACO 

sFSRC 


sFRACTIONAL RESULT 
sINTEGER RESULT 

; TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 
300 TEST 


sFSRC 

sFRACTIONAL RESULT 
s INTEGER RESULT 

; TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 


:D0 TEST 
56252,125252, 125252125250 sACO 


40300,0,0,0 
0,0,0,0 
56377,-1,-1,-4 
213 


Ss 
sFRACTIONAL RESULT 
s INTEGER RESULT 
; TEST FPS 


204 sRESULTANT FPS 

aeFLAG sNO INTERRUPT 

R7,MDDSUB ;D0 TEST 
140240,0,0,0 ;ACO 

63714, 146314,133572, 167737 sFSRC 
0,0,0,0 ;FRACTIONAL RESULT 
163777, -1,162531,125726 sINTEGER RESULT 
210 ; TEST FPS 

204 sRESULTANT FPS 

OOFLAG sNO INTERRUPT 

R7 ,MODSUB ;00 TEST 
56200,0,0,1 3ACO 

40340,0,0,0 sF SRC 

0,0,0, sFRACTIONAL RESULT 
56340,0,0,1 s INTEGER RESULT 
213 ; TEST FPS 

204 sRESULTANT FPS 

OOFLAG sNO INTERRUPT 

R7,MDDSUB 3;D0 TEST 

56252, 125252,125252, 125252 ACO 
40300,0,0,0 sFSRC 

0,0,0,0 ;FRACTIONAL RESULT 





SEQ 0257 


—— a re 





COKDADO K0J11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


14626 074254 
14627 074264 
14628 074266 


14630 074270 005037 
14631 074274 
14632 074300 023252 
14633 074310 


177777 


004767 


14682 074702 





M4 
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177777 


052525 
000000 
177777 
000000 


003030 
177777 


000000 
000000 
177777 


.- WORD 56377,-1,-1,-1 
253 


s INTEGER RESULT 


. WORD ; TEST FPS 
-WORD 244 sRESULT FPS 
;7/TRUNCATE FRACTION 
CLR @OFLAG sNO INTERRUPT 
JSR R7 , MDDSUB 3D0 TEST 
-WORD 23252, 125252, 125252, 125252 3ACO 
-WORD 40300,0,0,0 FSRC 


-WORD 23377,-1,71,-1 


; 
sFRACTIONAL RESULT 


-WORD 253 3; TEST FPS 
-WORD 240 sRESULT FPS 
38/ROUND INTEGER 
CLR OeFLAG sNO INTERRUPT 
JSR R7,MDDSUB 3;D0 TEST 
. WORD 76600, 0,0,125252 ACO 
~WORD 40300,0,0,0 sFSRC 
-WORD 0,0,0,0 sFRACTIONAL RESULT 
-WORD 76700,0,0,-1 s INTEGER RESULT 
-WORD 200 ; TEST FPS 
-WORD 204 sRESULT FPS 
39/ROUND THROUGH FRACTION 
CLR @OFLAG sNO INTERRUPT 
JSR R7,MODSUB ;D0 TEST 
-WORD 41525,052525,52525,52525 ACO 
-WORD 40300,0,0,0 sFSRC 


-WORD  40177,-1,-1,177740 


-WORD 41636,0,0,0 
7700 


° D 7700 
;/OVERFLOW, TRAPS ENABLED 

MOV #1,30FLAG 

JSR R7,MDDSUB 

. WORD -1,-1,-1,-1 

-WORD 40400,0,0,0 

-WORD 0O,0,0,0 

~WORD + Seales 


sFRACTIONAL RESULT 
sINTEGER RESULT 
; TEST FPS 
sRESULT FPS 


s INTERRUPT 


;FRACTIONAL RESULT 
sINTEGER RESULT 


-WORD 77 s TEST FPS 
-WORD 107706 sRESULT FPS 
WORD 10 sFEC 
s/INTEGER CHOPPED TO 56 BITS 
LR LAG sNO INTERRUPT 
JSR R7 ,MODSUB 300 TEST 
-WORD 56700,0,0,-1 sACO 
-WORD 44440,-1,-1,-1 sFSRC 
-WORD 0,0,0,0 sFRACTIONAL RESULT 
“WORD 63161, 100000,1,40775 s INTEGER RESULT 
-WORD 200 ; TEST FPS 
-WORD 204 sRESULT FPS 
;/OVERFLOW, TRAPS DISABLED 
MOV #2, 90FLAG sNO INTERRUPT 
JSR R7 ,MODSUB s00 TEST 
-WORD 66600,0,0,0 sACO 
-WORD 66600,0,0,0 sFSRC 
-WORD 0,0,0, sFRACTIONAL RESULT 
-WORD 15200,0,0,0 sINTEGER RESULT 
-WORD 47700 ; TEST FPS 








SEQ 0258 


—- I a SR 





r 
i 
| 


COKDADO KDJ11-B8 CLUSTER DIAG. 





N4 
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SEQ 0259 


FLOATING POINT 


—--- 


14683 074704 
14684 074706 
4685 


1 

14686 074710 
14687 074716 
14688 074722 
14689 074732 
14690 074742 
14691 074752 
14692 074762 
14693 074764 
14694 074766 


95 
14696 074770 
14697 074776 


14730 075110 
075114 


14733 075116 
075120 


14738 075122 
14739 075130 


TESTS 


147706 
000010 
012737 
004767 
100277 
100300 
000000 
005200 
005204 
000010 
012737 
004767 
100277 
100300 
040417 
002200 
102200 
000012 
000167 


012605 
012737 
012702 
170102 
172415 
012701 
172511 
010501 
062701 
016502 
170102 


171411 
170011 


032737 
001426 


075144 
000200 


073650 


000010 
000040 


147706 


-WORD 10 
+ /UNDERFLOM, TRAPS DISABLED 


sRESULT FPS 
3FEC 


003030 $2 ,980FLAG sNO INTERRUPT 
JSR R7 ,MODSUB 300 TEST 
000002 WORD 100277, 1,2,-1 3sACO 
000001 - WORD 100300,1,1, 1 sFSRC 
000000 - WORD 0,0,0,0 sFRACTIONAL RESULT 
000000 - WORD 0,0,0,0 sINTEGER RESULT 
. WORD 5200 3; TEST FPS 
.- WORD sRESULT FPS 
WORD 10 sFEC 
; /UNDERFLOW TRAPS ENABLED, UV AS RESULT 
003030 MOV #1, 30FLAG s INTERRUPT 
JSR R7,MODSUB 300 TEST 
000002 WORD 100277, 1,2,-1 3;ACO 
000001 - WORD 100300,1,1,1 FSR 
077403 . WORD 40417, 40001, 77403 ,0 sFRACTIONAL RESULT 
000000 - WORD 0,0,0, ; INTEGER RESULT 
- WORD 2200 3s TEST FPS 
WORD 102200 sRESULT FPS 
.» WORD 12 sFEC 
H 
JMP HOP15 sJUMP OVER SUBROUTINE 
3 eXeXeXeXeXeXeXaXeXeXeXaXaXaXaXeXeXeXeXeXeXaXeXeXaXaXeXeXaX 
5 &XeXeXaeXeXaXeXeXeXeXaXeXeXeXaeXaXaXeXeXeXaXaeXeXeXeXeXaX aXeX 
H 
3 ACO 
F FSRC 
3 FRACTIONAL RESULT 
Hy INTEGER RESULT 
3 FPS BEFORE EXECUTION 
3 FPS AFTER EXECUTION 
H (FEC) 
A 
3 eXeXaeXaXaeXaeXaeXeXeXeXeXaXaXaXaeXaeXeXeXeXaXeXeXaXeXeXeXeXeXeX 
3 eXeXeXeXeXaeXeXeXeXeXeXaeXeXeXaXaXeXeXeXeXeXeXaXaXaXeXeXeXeX 
3 
MDDSUB: MOV CSP)+,R5 s RETURN ADDRESS TO USE AS POINTER 
000244 MOV 050$ , 9OF PVEC sREDIRECT TRAP VECTOR 
MOV #200, sSET TO DOUBLE MODE FOR LOAD 
LOFPS R2 sLOAD FPS 
LOD CRS),ACO ;LOAD ACO WITH TEST DATA 
MOV @MODGAR ,R1 3LOAD KNOWN INTO AC1 
- LOD (R1),AC1 H 
MOV 5,R1 sPOINT TO FSRC DATA 
ADD #10,R1 
MOV 40(R5S),R2 sGET TEST FPS 
LOFPS R2 sLOAD TEST FPS 
H 
MOOD CR1),ACO s*TEST INSTRUCTION 
1$: SETD sWAIT FOR POSSIBLE FPA TRAP. 
H 
sINSTRUCTION DIDNT TRAP 
003030 BIT #1, 30FLAG sVERIFY A NO TRAP CONDITION 
BEQ 2s sBRANCH IF GOOD 














COKDADO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT 


14740 
14741 
14742 
14743 


075132 
075136 


075140 


075144 
075152 
075154 
075160 


075162 
075166 
075170 
075172 
075176 
075200 
075204 


075206 
075210 
075214 
075216 


075222 
075224 
075230 
075232 
075236 


075240 
075242 
075246 
075252 
075256 
075260 
075264 


075266 
075270 
075272 
075276 
075302 
075306 
075310 
075314 


075316 
075322 
075324 
075330 


TESTS 


004737 
104003 


000167 


170203 
012702 
170102 
012701 


174011 
026503 


170301 


140132 


000020 


075126 
140132 


140132 


000020 
042626 
105642 


140132 


000030 
042576 
105612 


140132 


003030 
000044 





003030 


BS 
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SEQ 0260 


sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 

sREJOIN CODE 


sSEE IF EXPECTING A TRAP 

sBRANCH IF EXPECTING A TRAP 

sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 

sREJOIN CODE 

sSEE IF PC = INSTRUCTION 

sCLEAN UP STACK 


3 

sBRANCH IF GOOD COMPARE 

sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
sPC WAS INCORRECT 


sSAVE FPS 
;SET FPP TO DOUBLE 


sPOINT TO RECEIVED DATA TABLE 


sSAVE ACO RESULT 

;VERIFY STATUS 

;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sBAD FPS 

sPOINT TO EXPECTED DATA 


sVERIFY DATA 


sBRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sBAD ACO 


sSAVE AC1 RESULT 
sPOINT TO EXPECTED 


;VERIFY DATA 


3 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
3;FPP ERROR 
;BAD AC1 

;SEE IF NEED TO CHECK FEC 

;BRANCH IF NEED TO CHECK 

;RETURN FROM TEST 


CALL SBODETFPA 
ERROR * 
JMP 2$ 

. 

sINSTRUCTION TRAPPED 

UJ 

50$: BIT #1 ,80FLAG 
BNE 51$ 
CALL BODE TFPA 
ERROR 3 
JMP 2s 

51$: MOV (SP )+,R4 
TST (SP)-« 
CMP #1$,R4 
BEQ 2s 
CALL SDE TFPA 
ERROR +3 

H 

sCOMMON CODE FOR TRAP AND NO TRAP 

3 

2$: STFPS R3 
MOV #200 ,R2 
LOFPS R2 
MOV @RECDST,R1 

sSAVE FRACTIONAL RESULT 
STD ACO, (R1) 
CMP 42(R5),R3 
BEG 3$ 
CALL aeDETFPA 
ERROR +3 

3$: MOV R5,R4 
ADD #20,R4 

4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL @eDETFPA 
ERROR «3 

;SAVE INTEGER RESULT 

H 

5$: STD ACi1,(R1) 
MOV R5,R4 
ADD $30,R4 
JSR R7,DATVER 
TST COUNT 
BEQ 6$ 
CALL QeDETFPA 
ERROR ry 

6$: TST QeFLAG 
BNE 7$ 
JMP 44(R5) 

7$: STST R1 


sSAVE FEC 

















C5 
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SEQ 0261 
FLOATING POINT TESTS 
14797 075332 016504 000044 MOV 44(R5),R4 ;GET FEC 
14798 075336 020401 CMP R4,R1 ;VERIFY FEC 
14799 075340 001403 BEQ 8$ ;BRANCH IF GOOD 
14800 075342 004737 140132 CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
14801 075346 104003 ERROR +3 ;FPP ERROR 
14802 ;BAD FEC 
poe 075350 000165 000046 8$: JMP 46(R5) sRETURN FROM TEST 
; 
14805 075354 HOP15 
14808 ; 
p> 24 Ge eee 
14810 iTEST STCFD 
14811 
14812 075354 NSFD: 
14813 
14814 31/AC=0 
14815 075354 004767 000170 JSR R7,SFOSUB :D0 TEST 
14816 075360 000177 000000 000000 . WORD 0177,0,0,1 ;ACO 
14817 075370 000000 000000 . WORD 0,0,0, sRESULT 
14818 075400 047557 -WORD 47557 ; TEST FPS 
14819 075402 047544 . WORD 47544 sRESULT FPS 
14820 327AC>0, TRUNCATE 
14821 075404 004767 000140 JSR R7, SFOSUB :D0 TEST 
14822 075410 077577 177777 177777 . WORD 77577, -1,-1,-1 ;ACO 
14823 075420 077577 177777 000000 . WORD 77577, -1,0,0 sRESULT 
14824 075430 007540 . WORD 7540 ; TEST FPS 
14825 075432 007540 . D 7540 sRESULT FPS 
14826 33/AC<O, ROUND 
14827 075434 004767 000110 JSR R7, SFOSUB :D0 TEST 
14828 075440 100377 177777 100000 . WORD 100377, -1,100000,0 ;ACO 
14829 075450 100377 177777 000000 . WORD 100377,-1,0,0 ;RESULT 
14830 075460 007517 . WORD 7517 ; TEST FPS 
14831 075462 007510 WORD 7510 sRESULT FPS 
14832 34/AC=-0 
14833 075464 004767 000060 JSR R7, SFOSUB :00 TEST 
14834 075470 100000 000000 000000 .- WORD 100000,0,0,0 3;ACO 
14835 075500 000000 000000 000000 . WORD 0,0,0,0 sRESULT 
14836 075510 007757 . WORD 7757 3; TEST FPS 
14837 075512 007744 . WORD 7744 sRESULT FPS 
14838 35/AC<0 
14839 075514 004767 000030 JSR R7, SFOSUB 300 TEST 
14840 075520 125252 125252 125252 . WORD 125252, 125252,125252, 125252 3ACO 
14841 075530 125252 125252 000000 . WORD 125252, 125252,0,0 ;RESULT 
14842 075540 . WORD i+) . ; TEST FPS 
es 075542 000010 . WORD 10 sRESULT FPS 
; 
14845 075544 000167 000120 JMP HOP 16 ;GET OVER SUBROUTINE 
14846 3 #XeXaXaXaXeXaeXeXaXeXaXaXeXaXaXeXeXaXeXeXaXeXaXxaeXeXaXaXeXeX 
14847 3 *XaeXaXaeXaXeXaXaXaXaXeXaXeXaeXaXeXaXeXaXeXeXaXeXaXaXeXaXeXaX 
14848 ;STCFD 
14849 Fy ACO 
14850 Fy RESULT 
14851 3 FPS BEFORE EXECUTION 
pres ; FPS AFTER EXECUTION 
3 
14854 sTHERE CAN BE NO TRAPS WITH THE STCFD INSTRUCTION 
14855 3 XaXaXeXaXaeXaeXaeXaeXaXaXaXaXaXaX aX eX aX aXaeXaeXeXeXaXaXaXaXeXaX 





COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


075716 


075720 
075724 


012605 
012737 
012702 
170102 
172415 
012701 
016502 
170102 


176011 


170203 
016502 
020203 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


000165 


004737 
104003 


000165 


005037 
004767 
000177 
000000 


000200 
000204 


005037 
004767 


075656 
000200 


003142 
000020 


000022 


140132 


000010 
042242 
105256 
140132 


000024 


140132 


000024 


MACRO YOS.02 


000244 


000000 





DS 
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s*XeXSXeXaeXaXeXaeXaXaXeXaXeX aX aXe aX aXaX eX eXeX aXaxeX eX axeXex 
; RETURN ADDRESS TO USE AS POINTER 


y 
40$: STCFD 


(SP)+,RS 


#50$ , @OFPVEC 


~ sae 
(RS), ACO 


#RECDST ,R1 


20(RS),R2 
R2 


ACO, (R1) 


; 
s INSTRUCTION DIDNT TRAP 


;VERIFY STATUS 


3 
2$: 


sREDIRECT TRAP VECTOR 

sSET TO DOUBLE MODE FOR LOAD 
sLOAD FPS 

sLOAD ACO WITH TEST DATA 
sPOINT TO RESULT AREA 

sGET TEST FPS 

sLOAD TEST FPS 


s;*#TEST INSTRUCTION 


sSAVE FPS 

s;GET EXPECTED STATUS 
;VERIFY STATUS 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


:FPP ERROR 
sBAD FPS 
sPOINT TO EXPECTED DATA 
sVERIFY DATA 


sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


:FPP ERROR 
sBAD ACO 
sRETURN FROM TEST 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
sRETURN FROM TEST 


sNQ INTERRUPT 
3;D0 TEST 
3ACO 
sRESULT 


; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 


STFPS R3 
MOV 22CRS),R2 
CMP R2,R3 
BEQ 3$ 
CALL aeDETFPA 
ERROR +3 
3$: MOV RS,R4 
ADD #10,R4 
4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL @aeDETFPA 
ERROR +3 
5$: JMP 24(R5S) 
F 
s INSTRUCTION TRAPPED 
3 
50$: CALL aeDETFPA 
ERROR + 
JMP 24(R5) 
HOP 16 
H 
3 ieee ne ee ee ee ee ee ee 
;TEST STCDF 
3 
MSOF : 
31/AC=0 
CLR ae¢FLAG 
JSR R7, SDF SUB 
-WORD 177,0,0,0 
.WORD 0,0 
. WORD 200 
.- WORD 204 
;2/AC=-0 
CLR a¢FLAG 
JSR R7,SDFSUB 


300 TEST 


$$$ 


$$$ 


$$$ 


SEQ 0262 


a a 


COKDADO KDJ11-B CLUSTER DIAG. 


14915 075730 
14916 075740 
14917 075744 
14918 075746 


14920 075750 
14921 075754 
14922 075760 
14923 075770 
14924 075774 
14925 075776 


14927 076000 
14928 076006 
14929 076012 
14930 076022 
14931 076026 
14932 076030 


14934 076032 
14935 076036 
14936 076042 
14937 076052 
14938 076056 
14939 076060 


14941 076062 
14942 076070 
14943 076074 
14944 076104 
14945 076110 
14946 076112 


14948 076114 


14962 076120 
14963 076122 
14964 076130 
14965 076134 
14966 076136 
14967 076140 
14968 076144 
14969 076150 


[ 
| 
FLOATING POINT 
| 14971 o76152 





TESTS 
100000 


000000 
007777 
007744 


005037 
004767 
OSSS55 
055555 
000240 
000240 


012737 


012737 
004767 
077777 
000000 


006700 
006706 


000167 


012605 
012737 
012702 
170102 
172415 
012701 
016502 
170102 


176011 


000300 
000000 


055555 


003030 
000056 
125252 
125253 


000002 
000024 
177777 
000000 


000232 


076202 
000200 


003142 
000014 


ES 
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000200 . WORD 100000 , 300, 200,100 ;ACO 
. WORD 0,0 ;RESULT 
. WORD 7777 ; TEST FPS 
. WORD 7744 sRESULT FPS 
33/AC>0, TRUNCATE 
CLR SOF LAG sNO INTERRUPT 
JSR R7 , SOF SUB :00 TEST 
177777 . WORD 55555,55555,-1,-1 ;ACO 
. WORD $3555 ,,5SS35 sRESULT 
. WORD 240 ; TEST FPS 
. WORD 240 sRESULT FPS 
34/AC<0O, — TO UNDEFINED VARIABLE 
003030 #1, 30FLAG s INTERRUPT 
SR R7, SOFSUB ;00 TEST 
100000 . WORD 77777, -1, 100000 ,0 ;ACO 
. WORD 0,0 ;RESULT 
. WORD 1200 ; TEST FPS 
. WORD 101206 sRESULT FPS 
35/AC<O, ROUND 
CLR OeFLAG sNO INTERRUPT 
JSR R7, SOF SUB ;D0 TEST 
125252 . WORD 125252, 125252,125252, 125252 ;ACO 
. WORD 125252,125253 ;RESULT 
.- WORD 7700 ; TEST FPS 
. WORD 7710 sRESULT FPS 
36/ROUND TO UV, TRAPS DISABLED 
003030 MOV #2,390FLAG 3; INTERRUPT 
JSR R7, SOF SUB 300 TEST 
177777 . WORD 77777,-1,-1,0 ;ACO 
. WORD 0,0 sRESULT 
. WORD 6700 ; TEST FPS 
. WORD 6706 sRESULT FPS 
; 
JMP HOP17 ;GET OVER SUBROUTINE 
; 
5 *XaX aX aX aK aX EX XK EX KEK XK HX AX EXK HX EK HEX EX EK EX EXE X EX XH X EX 
7 aaa aia aataaaa ie ee iat a ta ait eat 
3S 
3 ACO 
H RESULT 
; FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
; 
3A TRAP CAN ONLY OCCUR IF ROUNDING CAUSES OVERFLOW 
3g eXeXaXeXaXeXeXeXaXaXaXaeXaXaeXeXaXaeXeXaeXaeXaeXaeXaeXeXaXaeXaXeXeX 
3 eXaXaXaXaXaXaXaXaXaeXaXaXeXaeXaXaeXaXaXeXeXaXaXaXaXeXeXaXeXeX 
SDFSUB: MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
000244 MOV #50$ , 9#FPVEC sREDIRECT TRAP VECTOR 
MOV #200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
LOD CRS),ACO ;LOAD ACO WITH TEST DATA 
MOV #RECDST,R1 sPOINT TO RESULT AREA 
MOV 14(R5),R2 ;GET TEST FPS 
LOFPS Re ;LOAD TEST FPS 
; 
40$: STCOF ACO,(R1) :*TEST INSTRUCTION 


SS  D 





SEQ 0263 


| 





COKDADO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT 


14972 
14973 
14974 
14975 
14976 
14977 
14978 
14979 


076154 
076156 


076160 
076166 
076170 
076174 


076176 


076202 
076210 
076212 
076216 


076220 
076224 
076226 
076230 
076234 
076236 
076242 


076244 
076246 
076252 
076254 
076256 
076262 


076264 
076266 
076272 
076276 
076302 
076304 
076310 


076312 
076316 
076320 


076324 
076330 
076332 
076336 
076340 


TESTS 
170327 
000000 


032737 
001426 
004737 
104003 


000167 


032737 
001005 
004737 
104003 


000167 
012604 
005726 
022704 
001403 
004737 
104003 


170203 
016502 
020203 
001403 
004737 
104003 


010504 
062704 
004767 
005767 
001403 
004737 
104003 


005737 
001002 
000165 


012704 
170314 
021427 
001403 
004737 


000001 
140132 


000042 


000001 


140132 


000020 


076154 
140132 


000016 


140132 


000010 
041564 
104616 


140132 


003030 
000020 


003122 
000010 
140132 


FS 
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003030 


003030 


s;WAIT FOR POSSIBLE FPA TRAP. 


1$: STST CPC)+ 
-WORD 0 sSTORE STATUS HERE. 


; 
sINSTRUCTION DIDNT TRAP 


BIT #1,39¢FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2$ ;BRANCH IF GOOD 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$ sREJOIN CODE 
3 
sINSTRUCTION TRAPPED 
3 
50$: BIT #1,39@FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ sREJOIN CODE 
51$: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST (SP )+ ;CLEAN UP STACK 
CMP #1$,R4 3 
BEQ 2s ;BRANCH IF GOOD COMPARE 
CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:PC WAS INCORRECT 
3 
;COMMON CODE FOR TRAP AND NO TRAP 
;VERIFY STATUS 
3 
2s: STFPS R3 sSAVE FPS 
MOV 16(RS),R2 ;GET EXPECTED STATUS 
CMP R2,R3 ;VERIFY STATUS 
BEQ 3$ ;BRANCH IF GOOD 
CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 :FPP ERROR 
;BAD FPS 
3$: MOV RS,R4 sPOINT TO EXPECTED DATA 
ADD #10,R4 
4$; JSR R7,DATVFR ;VERIFY DATA 
TST COUNT 
BEQ 5$ ;BRANCH IF GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
5$: TST aeFLAG ;SEE IF NEED TO CHECK FEC 
BNE 7$ ;BRANCH IF NEED TO CHECK 
JMP 20(R5) ;sRETURN FROM TEST 
3 
;VERIFY FEC 
3 
7$: MOV #RECFEC,R4 sPOINT TO FEC AREA 
STST CR4) ;SAVE FEC 
CMP (R4),#10 ;VERIFY FEC FOR OVERFLOW 
BEQ 8$ ;BRANCH IF GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 














COKDADO KDJ11-B CLUSTER DIAG. 


15033 076352 


15040 076352 


15042 076352 
15043 076356 
15044 076360 
15045 076362 
15046 076364 
15047 076366 
15048 076372 
15049 076374 
15050 076400 


15052 076402 
15053 076406 
15054 076410 
15055 076414 


15057 076416 


15065 076416 


15067 076416 
15068 076422 
15069 076426 
15070 076430 
15071 076432 
15072 076436 
15073 076440 
15074 076442 
15075 076446 
15076 076452 
15077 076456 
15078 076460 
15079 076464 


15081 076466 
15082 076470 
15083 076474 
15084 076476 
15085 076502 


FLOATING POINT 
15029 076344 
15087 076504 





TESTS 
104003 
000165 


012701 
170101 
176006 
170202 
170303 
022702 
001403 
004737 
104003 


022703 
001403 
004737 
104003 


012701 
012704 
170104 
172411 
012701 
174011 
170411 
012704 
004767 
005767 
001403 
004737 
104003 


170202 
020227 
001403 
004737 
104003 


000020 


040000 


140000 
140132 


000002 
140132 


003764 
000200 


003142 


003314 
041426 
104442 


140132 


000204 
140132 
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ERROR 
8$: JMP 


+3 
20(RS) 


SEQ 0265 


;FPP ERROR 
;BAD FEC 
sRETURN FROM TEST 


TEST STCFD - USING ILLEGAL ACCUMULATOR 


MSFOI: 
i 


1$: CMP 


#40000 ,R1 
Ri 

ACO, AC6 
Re 


R3 
+ Slee 


1 
OeDETFPA 
+3 


#2,R3 
2$ 
aeDETFPA 


+3 


sDISABLE INTERRUPTS 


2 

+*TEST ILLEGAL INSTRUCTION 

sSAVE STATUS 

sSAVE FEC 

;VERIFY FER SET 

s;BRANCH IF ERROR RECEIVED 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sFER BIT NOT SET ON ILLEGAL INST. 

;VERIFY FEC = FLOATING OPCDOE ERROR 

s;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sFEC INCORRECT 


sTEST CLRD 


MCLRD: 
; 


i$: STFPS 


#TAB47,R1 
#200 ,R4 


R4 
(R1),ACO 
#@RECDST,R1 


R7, DATVER 
COUNT 

1$ 
QeDETFPA 


oa 


R2 
R2, #204 
es 


aeDETFPA 
+3 


sPOINT TO DATA 
;SET FPP STATUS TO DOUBLE 


; 

sPOINT TO DATA BUFFER 
;STORE GARBAGE 

;CLEAR DATA BUFFER 
sVERIFY BUFFER =0 

; 


; 

sBRANCH I RECDST. = 0 

s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sRECDST NOT CLEARED 

sSAVE STATUS 

;VERIFY STATUS 

sBRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD STATUS 


— 


076504 


076504 
076510 
076512 
076514 
076516 
076520 
076524 
076526 
076532 


076534 
076540 
076542 
076546 


076550 


076550 


076550 
076554 
076560 
076564 
076572 
076574 
076576 
076602 
076604 
076610 


076612 
076616 
076620 
076624 


076626 
076634 
076636 
076642 


076644 


076650 
076652 
076654 
076660 


076662 


022705 
001403 
004737 
104003 


012704 
012714 
012701 
012737 
170114 
170211 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


040200 


140200 
140132 


000002 
140132 


003162 
147757 
003132 
076650 


003162 
140132 


003132 
140132 


003132 
140132 


000012 


140132 





H5 
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sTEST CLRD, ILLEGAL ACCUMULATOR 


3 

MCLRI: 

> 
MOV #40200 ,R4 
LOFPS R4 
CLRD R6 
STFPS R33 
STST RS 
CMP #140200 ,R3 
BEQ 1$ 
CALL aeDETFPA 
ERROR +3 

1$: CMP #2,R5 
BEQ 2$ 
CALL OeDETFPA 
ERROR +3 

2s: 


:TEST LOFPS, STFPS MODE 1 


MLS2: 

. 
MOV #TSTLOC,R4 
MOV #147757, CR4) 
MOV #RECST,R1 

000244 MOV #10$ , a#FPVEC 

LDOFPS CR4) 
STFPS CR1) 
CMP R4,#TSTLOC 
BEQ 1$ 
CALL a#DETFPA 
ERROR +3 

1$: CMP R1, #RECST 
BEQ 2$ 
CALL Oe#DETFPA 
ERROR +3 

147757 2$: CMP QHRECST , #147757 

BEQ 3$ 
CALL aeDETFPA 
ERROR +3 
JMP 3$ 

3 

;UNEXPECTED TRAP 

Hy 

10$: MOV (SP)+,RO 
MOV (SP)+,R5 
CALL a#DETFPA 
ERROR +3 

3$: 


Page 14-247 


sDISABLE INTERRUPTS 

s;LOAD STATUS 

3*TEST INSTRUCTION WITH ILLEGAL 
sSAVE STATUS 

sSAVE FEC 

;VERIFY ERROR 

sBRANCH IF FER SET 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

sERROR IN FPS 

;VERIFY FEC =2 OPCODE ERROR 
;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FEC 


;POINT R4 TO RAM 

s;SETUP EXPECTED STATUS 

;SET BUFFER FOR RECEIVED STATUS 
;SETUP TRAP VECTOR 

s*TEST INSTRUCTION 

3#TEST INSTRUCTION 

;VERIFY R4 

sBRANCH IF GOOD 


s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
; 


sVERIFY Ri 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


;BAD R1 
;VERIFY STATUS 
;BRANCH F GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD STATUS 
;GET OVER TRAP 


sSAVE PC 
;SAVE PS 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;UNEXPECTED TRAP 


ACC 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


SEQ 0266 





COKDADO KDJ11-8 CLUSTER DIAG. 


FLOATING POINT T 


15157 076662 


15159 076662 
15160 076666 
15161 076672 
15162 076676 
15163 076704 
15164 076706 
15165 076710 
15166 076714 
15167 076716 
15168 076722 


15170 076724 
15171 076730 
15172 076732 
15173 076736 


15175 076740 
15176 076746 
15177 076750 
15178 076754 


15180 076756 


15184 076762 
15185 076764 
15186 076766 
15187 076772 


15189 076774 


15196 076774 


15198 076774 
15199 077000 
15200 077006 
15201 077014 
15202 077020 
15203 077026 
15204 077034 
15205 077036 
15206 077040 
15207 077044 
15208 077046 
15209 077052 


| 15211 077054 


ESTS 


012704 
012714 
012701 
012737 
170124 
170221 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


012704 
012737 
012737 
012701 
012737 
012737 
170134 
170231 
020427 
001403 
004737 
104003 


020127 


003162 
145557 
003132 
076762 
003164 


140132 


003134 
140132 


003132 
140132 


000012 


140132 


003162 
003166 
147501 
003172 
003132 
077112 


003164 
140132 


003174 





MACRO YOS.02 


000244 


145557 


003162 
003166 


003172 
000244 


I5 


TEST LOFPS, STFPS MODE 2 





Wednesday 27-Feb-85 17:55 Page 14-248 


SEQ 0267 


MLS2: 
3 
MOV #TSTLOC,R4 sPOINT R4 TO RAM 
MOV #145557, (R4) ;SETUP EXPECTED STATUS 
MOV @RECST,R1 ;SET BUFFER FOR RECEIVED STATUS 
MOV #10$ , 9OFPVEC ;SETUP TRAP VECTOR 
LOFPS 4)+ 3*TEST INSTRUCTION 
STFPS (CR1i)+ ;*TEST INSTRUCTION 
CMP R4,#TSTLOC+2 ;VERIFY R4 
BEQ i$ ;BRANCH IF GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
PF 
1$: CMP Ri, #RECST+2 ;VERIFY R1 
BEQ 2s ;BRANCH IF GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD Ri 
2s: CMP O#RECST , #145557 ;VERIFY STATUS 
BEQ 3$ :BRANCH F GOOD 
CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD STATUS 
JMP 3$ ;GET OVER TRAP 
3 
sUNEXPECTED TRAP 
3 
10$: MOV CSP)+,RO ;SAVE PC 
MOV (SP)+,R5 ;SAVE PS 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
- sUNEXPECTED TRAP 


:TEST LOFPS, STFPS MODE 3 


MLS3: 
3 
MOV #TSTLOC ,R4 sPOINT R4 TO RAM 
MOV #TSTLOC+4,9#TSTLOC ;TSTLOC= DEFERRED ADDRESS 
MOV #147501, A#TSTLOC+4 ;SETUP EXPECTED STATUS 
MOV #TSTLOC+10,R1 ;R1 POINTS TO TSTLOC+10 
MOV #RECST ,A#TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
MOV #10$ , 9@FPVEC ;SETUP TRAP VECTOR 
LDFPS aC R4)- ;*TEST INSTRUCTION 
STFPS aC Ri)-« ;*TEST INSTRUCTION 
CMP R4,#TSTLOC+2 ;VERIFY R4 
BEQ 1$ ;BRANCH IF GOOD 
CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3FPP ERROR 
1$: CMP R1,#TSTLOC+12 ;VERIFY R1 











COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 


15212 077060 
15213 077062 
15214 077066 


15216 077070 
15217 077076 
15218 077100 
15219 077104 


15221 077106 


15225 077112 
15226 077114 
15227 077116 
15228 077122 


15230 077124 


15237 077124 


15239 077124 
15240 077130 
15241 077136 
15242 077142 
15243 077150 
15244 077152 
15245 077154 
15246 077160 
15247 077162 
15248 077166 


15250 077170 
15251 077174 
15252 077176 
15253 077202 


15255 077204 
15256 077212 
15257 077214 
15258 077220 


15260 077222 


15264 077226 
15265 077230 
15266 077232 
15267 077236 


15269 077240 


TESTS 


001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


012704 
012737 
012701 
012737 
170144 
170241 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


140132 


003132 
140132 


000012 


140132 


003164 
147757 
003134 
077226 


003162 
140132 


003132 
140132 


003132 
140132 


000012 


140132 





147501 


003162 
000244 


147757 


J5 
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BEQ 2$ 
CALL aeDETFPA 
ERROR +3 
2$: CMP OHRECST , #147501 
BEQ 3$ 
CALL aeDETFPA 
ERROR +3 
JMP 3$ 


* 
sUNEXPECTED TRAP 


é 

10$: MOV (SP)+,RO 
MOV (SP)+,RS 
CALL QeDETFPA 
ERROR +3 


3$: 
F 


3 lili nn ee ee ee a a ee 
;TEST LDFPS, STFPS MODE 4 


; 

MLS4: 

; 
MOV #TSTLOC+2,R4 
MOV #147757, A@TSTLOC 
MOV @RECST+2,R1 
MOV #10$ , @@FPVEC 

-(R4) 


STFPS -CR1) 
CMP a 


BEQ 1 
CALL aeDETFPA 
ERROR +3 

1$: CMP R1,#RECST 
BEQ 2$ 
CALL a#DETFPA 
ERROR +3 

2s: CMP O#RECST , #147757 
BEQ 3$ 
CALL OeDETFPA 
ERROR +3 
JMP 3$ 


; 
sUNEXPECTED TRAP 


é 

10$: MOV (SP)+,RO 
MOV (SP)+,RS 
CALL aeDETFPA 
ERROR +3 








Page 14-249 
SEQ 0268 


s;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 


BAD R1 

;VERIFY STATUS 

;BRANCH F GOOD 

s;DETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
sBAD STATUS 

sGET OVER TRAP 


sSAVE PC 
;SAVE PS 
sDETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 
sUNEXPECTED TRAP 


sPOINT R4 TO RAM 

sTSTLOC= STATUS ADDRESS ; 

sSET BUFFER FOR RECEIVED STATUS 

sSETUP TRAP VECTOR 

s*#TEST INSTRUCTION 

s*TEST INSTRUCTION 

sVERIFY R4 

s;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;VERIFY Ri 

sBRANCH IF GOOD 

s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sBAD R1 

;VERIFY STATUS 

sBRANCH F GOOD 

s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s;BAD STATUS 

sGET OVER TRAP 


sSAVE PC 
;SAVE PS 
sDETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
sUNEXPECTED TRAP 





| ennese KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


15273 


077240 


077312 
077316 


077320 
077324 
077326 
077332 


077334 
077342 
077344 
077350 


077352 


077356 
077360 
077362 
077366 


077370 


077370 


077370 
077374 
077402 
077406 
077414 
077420 
077424 
077430 
077432 
077436 


077440 
077444 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


012704 
012737 
012701 
012737 
170164 
170261 
020427 
001403 
004737 
104003 


020127 
001403 


003162 
140132 


003172 
140132 


003132 
140132 


000012 


140132 


003162 
140001 
003272 
077476 
000004 
177700 
003162 


140132 


003272 





MACRO YOS.02 


003162 
003166 


003172 
000244 


147501 


003166 
000244 


KS 


iTEST LOFPS, STFPS MODE 5 


Wednesday 27-Feb-85 17:55 Page 14- 


250 


MLSS: 
3 
MOV #TSTLOC+2,R4 ;POINT R4 TO RAM 
MOV #TSTLOC+4,9#TSTLOC ;TSTLOC= DEFERRED ADDRESS 
MOV #147501, 9#TSTLOC+4 sSETUP EXPECTED STATUS 
MOV #TSTLOC+12,R1 3R1 POINTS TO 412 
MOV #RECST , @#TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
MOV #10$% , BOF PVEC ;SETUP TRAP VECTOR 
LOFPS a-(R4) :*TEST INSTRUCTION 
STFPS a-CR1i) 3*TEST INSTRUCTION 
CMP R4,@TSTLOC ;VERIFY R4 
BEQ 1$ ;BRANCH IF GOOD 
CALL OSDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
1$: CMP R1,#TSTLOC+10 ;VERIFY Ri 
BEQ 2$ sBRANCH IF GOOD 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
;BAD R1 
2s: CMP @HRECST , #147501 ;VERIFY STATUS 
BEQ 3$ ;BRANCH F GOOD 
CALL aeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD STATUS 
JMP 3$ ;GET OVER TRAP 
H 
;UNEXPECTED TRAP 
10$: MOV (SP)+,RO sSAVE PC 
MOV CSP)+,R5 sSAVE PS 
CALL AeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3;FPP ERROR 
sUNEXPECTED TRAP 
3$: 
' 
:TEST LDFPS, STFPS MODE 6 
MLS6: 
H 
MOV #TSTLOC,R4 sPOINT R4 TO RAM 
MOV #140001, d#TSTLOC+4 ;SETUP EXPECTED STATUS 
MOV #TSTLOC+110,R1 3R1 WILL POINT TO TESTLOC+10 
MOV #10$ , aeFPVEC ;SETUP TRAP VECTOR 
LOFPS 4(R4) :*TEST INSTRUCTION 
STFPS -100(R1) 3*TEST INSTRUCTION 
CMP R4,#TSTLOC ;VERIFY R4 
BEQ 1$ ;BRANCH IF GOOD 
CALL OeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
1$: CMP R1,#TSTLOC+110 ;VERIFY Ri 
BEQ 2s ;BRANCH IF GOOD 





SEQ 0269 


077446 
077452 


077454 
077462 
077464 
077470 


077472 


077476 


077510 


077510 


077510 
077514 
077522 
077530 
077534 
077542 
077550 
077554 
077560 
077564 
077566 
077572 


077574 
077600 
077602 
077606 


077610 
077616 
077620 
077624 


077626 


077632 
077634 
077636 
077642 


077644 





COKDADO KDJ11-B8 CLUSTER 
FLOATING POINT TESTS 


004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


012704 
012737 
012737 
012701 
012737 
012737 
170174 
170271 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
1040%3 


DIAG. 


140132 


003172 
140132 


000012 


140132 


140132 


003072 
140132 


003172 
140132 


000012 


140132 





MACRO YOS.02 


140001 2$: 


003162 
003166 


003164 
000244 


145501 


— —— ———— 





A 
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j 
sUNEXPECTED TRAP 


@eDETFPA sDETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 
;BAD R1 
@eTSTLOC+10, #140001 s;VERIFY STATUS 
3$ sBRANCH F GOOD 
SeDETFPA sDETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 
;BAD STATUS 
3$ ;GET OVER TRAP 
(SP )+,RO sSAVE PC 
(SP)+,R5 sSAVE PS 
aeDETFPA ;DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 


sUNEXPECTED TRAP 


sTEST LOFPS, STFPS MODE 7 


if 
sUNEXPECTED TRAP 


#TSTLOC+100,R4 sPOINT R4 TO RAM 
#TSTLOC+4,a#@TSTLOC s;TSTLOC= DEFERRED ADDRESS 
#145501, d9¢TSTLOC+4 ;SETUP EXPECTED STATUS 
#TSTLOC-70,R1 3R1 POINTS TO TSTLOC+10 
#TSTLOC+10,9#TSTLOC+2 F 
#10$ , AHF PVEC ;SETUP TRAP VECTOR 
@-100(R4) s*TEST INSTRUCTION 
a72(R1) :*TEST INSTRUCTION 
R4,#TSTLOC+100 ;VERIFY R4& 
1$ ;BRANCH IF GOOD 
aeDETFPA ;DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 

1 
R1,#TSTLOC-70 sVERIFY Ri 
2s ;BRANCH IF GOOD 
aeDETFPA sDETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 

;BAD R1 
AeTSTLOC+10, #145501 ;VERIFY STATUS 
3$ ;BRANCH F GOOD 
aeDETFPA sDETERMINE FLOATING POINT FAULT. 
+3 ;FPP ERROR 

;BAD STATUS 
3$ ;GET OVER TRAP 
CSP)+,RO sSAVE PC 
(SP)+,R5 sSAVE PS 
aeDETFPA ;DETERMINE FLOATING POINT FAULT. 
+3 ;FPP ER 


ROR 
sUNEXPECTED TRAP 





COKDADO KDJ11-8 CLUSTER DIAG. 


15413 077710 
15414 077714 
15415 077716 
15416 077720 
15417 077724 


15419 077726 
15420 077732 
15421 077736 
15422 077740 
15423 077744 
15424 077750 
15425 077752 
15426 077756 


15428 077760 


15435 077760 
15438 077760 


FLOATING POINT TESTS 
15441 077774 
' 





007700 
077714 


000003 
140132 


000012 
140132 
003324 


003142 


040134 
103150 


140132 


000440 
000000 





MACRO YOS.02 


M5 
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sTEST LOCLD MODE 27 


MLOC2: 
; 


000244 


10$: 


1$: MOV 


Ri 
#7700 ,R4 
R4 


#10$ , AF PVEC 
(R7)+,ACO 


1$ 
CSP)+,RO 
(SP)+,R5 
QeDETFPA 
+3 


@TABGA ,R4 
@RECDST ,R1 
ACO, (R1) 
R7,DATVER 
COUNT 


2s 
OeDETFPA 
+3 


sINIT R1 
sFPS*DOUBLE, LONG 


; 
sSETUP WILD TRAP 
s*#TEST INSTRUCTION 
; 

; 

; 


: 
; VERIFY 
sBRANCH IF GO 


00 
sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 

s INSTRUCTION FAILED 
sJUMP OVER WILD TRAP 
sSAVE PC 


SEQ 0271 


;SAVE PS 
sDETERMINE FLOATING POINT FAULT. $$$ 


sFPP ERROR 

sWILD TRAP ON INSTRUCTION 
sPOINT TO EXPECTED DATA 
sPOINT TO DATA BUFFER 
sVERIFY DATA 
a 


sBRANCH IF GOOD DATA 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
sBAD DATA 


iTEST LOCIF, LOCLF 


MLCF : 
3 
31/INT=0 





R7 ,LCFSUB 


300 TEST 
sFSRC 
sRESULT 
3s TEST FPS 
sRESULT FPS 


300 TEST 
3sF SRC 
sRESULT 
3; TEST FPS 
sRESULT FPS 


3:00 TEST 
sF SRC 





$$$ 





NS 
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FLOATING POINT 


TESTS 


000000 


000360 
025252 
000000 





-WORD 0,0 
-WORD 100 
-WORD 104 
34/INT#=40000 
JSR R7, LCF SUB 
-WORD 40000,0 
-WORD 43600,0 
-WORD 17 
-WORD 0 
sS/LONG=1 
JSR R7, LCF SUB 
-WORD 0,1 
«WORD 40200,0 
-WORD 117 
-WORD 100 
s6/INT=PATTERN 
JSR R7,LCFSUB 
-WORD 252,25252 
-WORD 42052,0 
-WORD 0 
-WORD 0 
3 7/INT=-40000 
JSR R7,LCFSUB 
«WORD -40000,0 
-WORD 143600,0 
-WORD 7 
-WORD 10 
s8/INT#=-1 
JSR R7,LCFSUB 
. WORD wii 0 
-WORD 140200,0 
-WORD 7 
-WORD 10 
s9/INT*PATTERN 
JSR R7, LCF SUB 
-WORD 125252,125252 
«WORD 143652,126000 
-WORD 7 
-WORD 10 
3 10/LONG=4£0000 
JSR R7,LCFSUB 
-WORD 40000,0 
-WORD 47600,0 
-WORD 117 
-WORD 100 
311/LONG=1 
JSR oo 
«WORD 40200,0 
«WORD 7557 
-WORD 7540 
312/LONG=PATTERN 
JSR R7,LCFSUB 
-WORD 0,252 
-WORD 42052,0 
-WORD 7557 
-WORD 7540 





sRESULT 
3 TEST FPS 
sRESULT FPS 

300 TEST 
sFSRC 
sRESULT 
3; TEST FPS 
sRESULT FPS 


300 TEST 
sFSRC 
sRESULT 
3; TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 
sRESULT 
s TEST FPS 
sRESULT FPS 


300 TEST 


3sFSRC 

sRESULT 
3; TEST FPS - 
sRESULT FPS 


300 TEST 


sFSRC 

sRESULT 
3; TEST FPS 
sRESULT FPS 


s TEST FPS 
sRESULT FPS 


300 TEST 
sFSRC 
sRESULT 
3; TEST FPS 
sRESULT FPS 


300 TEST 
sFSRC 
sRESULT 
s TEST FPS 
sRESULT FPS 


300 TEST 


s TEST FPS 
sRESULT FPS 








SEQ 0272 


COKDADO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


15509 
15510 


15511 1 


15512 
15513 


000140 
125252 
125253 


000120 
177500 
177777 


000100 


313/LONG = -40000 


JSR R7, LCF SUB 
. WORD -40000,0 
«WORD 147600,0 
«WORD 107 
. 110 
314/LONG=-1 
JSR R7,LCFSUB 
«WORD -1,-1 
-WORD 140200,0 
-WORD 75 
-WORD 7510 
315/LONG=PATTERN 
JSR R7,LCFSUB 
-WORD 125252,125252 
-WORD 147652,125253 
-WORD 105 
«WORD 110 
;16/LONG=77777, 177500 
JSR R7,LCFSUB 
. WORD 77777, 177500 
- WORD 47777177777 
-WORD 117 


-WORD 100 
;17/LONG=40000, 100 

JSR R7, LCF SUB 

WORD 


° 40000, 100 
-WORD 47600,1 
-WORD 7502 
-WORD 7500 
;18/LONG=40000,100 - TRUNCATE 
JSR R7,LCFSUB 
- WORD 40000, 100 
-WORD 47600,0 
-WORD 7557 
-WORD 7540 
319/INT= MOST NEGATIVE 
JSR R7,LCFSUB 
-WORD 100000,0 
-WORD 144000,0 
WORD 7 
-WORD 10 
;20/LONG= MOST NEGATIVE 
JSR R7,LCFSUB 
. WORD 100000, 0 
-WORD 150000,0 
-WORD 107 
WORD 110 
; 
JMP HOP 18 


sLDOCIF, LOCLF 

3 

3 FSRC 

3 RESULT 





B6é 
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sRESULT 
s TEST FPS 
sRESULT FPS 


300 TEST 
3sFSRC 


sRESULT 
3 TEST FPS 
sRESULT FPS 


300 TEST 

3sF SRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


:D0 TEST 

sFSRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


sRESULT 
; TEST FPS 
sRESULT FPS 


sRESULT 
s_TEST FPS 
sRESULT FPS 


300 TEST 

sFSRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


3:00 TEST 

sFSRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


sGET OVER SUBROUTINE 


3 
3 XeXaeXeXeXaXeXeXeXaeXaXaXeXeXaeXeXeXaXaeXeXaXeXaXaXeXeXeXeXeX 
3 *XeXeXeXeXeXaXaXaeXaXaeXaeXeXeX eX aX eX aeXeXeXeXaXaXaeXeXaeXaeXeXeX 


COKDADO KDJ11-B8 CLUSTER DIAG. 


FLOATING POINT TESTS 


012602 
012737 
012701 
016200 
170100 
010204 


177014 


004767 


100574 000244 
003142 
000010 


000200 


000012 


140132 


000004 
037306 
102340 
140122 


000014 


140132 


177756 





MACRO YOS.02 


3 XEXaXeXaXeXaXeXeXeXeXaXaXaXeXaeX aX eXaraXaxXeXreXaXaxexaxexeX 
5X HXeXeXaXaXeXaXaXeXaXaXaXaXeXeXaXeXeXaXxeX eXeXeXeXeXeXeX aX 


C6 
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FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


; 
sNO TRAP CAN OCCUR 


H 

LCFSUB: MOV (SP)+,R2 
MOV #50$ , OF PVEC 
MOV @RECDST,Ri 
MOV 10CR2),RO 
LOFPS RO 
MOV R2,R4 

¢ 

40$: LOCIF (R4),ACO 

a 

;VERIFY STATUS 

3 

2s: STFPS R3 
MOV #200,RO 
LOFPS RO 
STO ACO,C(R1) 
MOV 12CR2),RO0 
CMP RO,R3 
BEQ 3$ 
CALL OeDETFPA 
ERROR + 

3$: MOV R2,R4 
ADD #4,R4 

4$: JSR R7,DATVFR 
TST COUNT 
BEQ 5$ 
CALL OeDETFPA 
ERROR +3 

5$: JMP 14(R2) 

H 

s INSTRUCTION TRAPPED 

é 

50$: MOV (SP)+,RO 
MOV CSP)+,R5 
CAIL aeDETFPA 
EF ROR 23 
JMP 5$ 

HOP 18: 


TEST LOCID, LOCLOD 


3 

MLCD: 

3 

31/LONG=0 
JSR 
. WORD 
. WORD 


R7,LCOSUB 
0,0 
0,0,0,0 





s RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 
sPOINT TO RESULT AREA 
sGET TEST FPS 
sLOAD TEST FPS 
sPOINT TO TEST DATA 


s#TEST INSTRUCTION (ACCORDING TO MODE) 


sSAVE FPS 
sSET FPP STATUS TO DOUBLE 


° 
sSAVE TEST RESULT INTO RECDST 
sGET EXPECTED STATUS 
;VERIFY STATUS 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 


sBAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sBAD ACO 
sRETURN FROM TEST 


sSAVE PC 
sSAVE PS 
sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
3; CONTINUE 
;D0 TEST 
sFSRC 
sRESULT 


SEQ 0274 


SSS 





COKDADO KDJ11-8 CLUSTER DIAG. 


15662 101024 


15664 101026 
15665 101032 
15666 101036 
15667 101046 
15668 101050 


15670 101052 
15671 101056 
15672 101062 
15673 101072 
15674 101074 


FLOATING POINT 
15676 101076 

| 

' 


‘ 
--—- 


TESTS 


007313 
007304 


004767 


000024 
125252 
125252 


000126 





MACRO YOS.02 


000000 


000000 


126000 





. WORD 
;27INT=0— 


JSR 


. WORD 
34/INT=-40000 


JSR 


3 
3 eXaXaXaXaXaXaeXaXaXaeXaXaXeXaXaXaXaXaXeXeXaeXeXeXaXaXeXaXeXeX 
3 eXaXeXaXaXeXaeXaeXeXeXaXeXeXaXaXeXeXaeXeXaXaXeXeXaXaXeXaXaXeX 


;sLOCID, LOCLD 
; 


D6 


7313 ; TEST FPS 

7304 sRESULT FPS 
R7,LCDSUB :D0 TEST 
0,1 sFSRC 
40200,0,0,0 ;RESULT 
7757 ; TEST FPS 

7740 sRESULT FPS 
R7,LCOSUB :D0 TEST 
40000, -1 sFSRC 
43600,0,0,0 ;RESULT 
7617 ; TEST FPS 

7600 sRESULT FPS 
R7,LCDSUB 300 TEST 
-40000,-1 3FSRC 
143600,0,0,0 ;RESULT 
7600 ; TEST FPS 

7610 sRESULT FPS 
R7,LCDSUB :D0 TEST 
40000,0 sF SRC 
47600,9,0,0 ;RESULT 
7757 ; TEST FPS 

7740 ;RESULT FPS 
R7,LCDSUB 3:00 TEST 
0,1 sFSRC 
40200,0,0,C ;RESULT 
300 ; TEST FPS 

300 sRESULT FPS 
R7,LCDSUB ;D0 TEST 
-1,-2 ;FSRC 
140400,0,0,0 ;RESULT 
73 s TEST FPS 

7310 sRESULT FPS 
R7,LCDSUB 300 TEST 
123456,176543 3FSRC 
143661,122000,0,0 

200 ; TEST FPS 

210 sRESULT FPS 
R7,LCDSUB ;D0 TEST 
125252,125252 FSRC 
147652,125252,126000,0 

300 3; TEST FPS 

310 sRESULT FPS 
HOP19 ;GET OVER SUBROUTINE 
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SEQ 0275 


COKDADO KDJ11-B CLUSTER DIAG. 





FLOATING POINT TESTS 


15691 101102 
15692 101104 
15693 101112 
15694 101116 
15695 101122 
15696 101124 


15698 101126 


15702 101130 
15703 101132 
15704 101136 
15705 101140 
15706 101142 
15707 101146 
15708 101150 
15709 101152 
15710 101156 


15712 101160 
15713 101162 
15714 101166 
15715 101172 
15716 101176 
15717 101200 
15718 101204 


15720 101206 


15724 101212 
15725 101214 
15726 101216 
15727 101222 
15729 101224 


15731 101230 


15739 101230 


012602 
012737 
012701 
016200 
170100 
010204 


177014 


170203 
012700 
170100 
174011 
016200 
020003 
001403 
004737 
104003 


010204 
062704 
004767 
005767 
001403 
004737 
104003 


000162 


012600 
012605 
004737 
104003 


000167 


101212 000244 
003142 
000014 


000200 


000016 


140132 


000004 
036706 
101722 
140132 


000020 


140132 


177756 





MACRO YOS.02 





FSRC 
RESULT 
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SEQ 0276 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


; 

;NO TRAP CAN OCCUR 
3 XaXeXeXeX aX aX eX eXeXaXaXeX aX aX eX aXeXeXax aX aX aXaxeXeXaX aX aX 
seXEXEXaX aX aX aX eXeXaX aX aX aX eX aX eXeX aX ax aXeXeXeXaX aX aX eXeXeX 


;_RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

sPOINT TO RESULT AREA 

s;GET TEST FPS 

;LOAD TEST FPS 

sPOINT TO TEST DATA 


s#TEST INSTRUCTION (ACCORDING TO MODE) 


sSAVE FPS 
;SET FPP STATUS TO DOUBLE 


3 
sSAVE TEST RESULT INTO RECDST 
;GET EXPECTED STATUS 

sVERIFY STATUS 

sBRANCH IF GOOD 

s;DETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 
;BAD FPS 

sPOINT TO EXPECTED DATA 


sVERIFY DATA 


s;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 

sRETURN FROM TEST 


;SAVE PC 

sSAVE PS 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 

; CONTINUE 


F 

LCDSUB: MOV CSP)+,R2 
MOV #50$ , BOF PVEC 
MOV #RECDST,R1 
MOV 14(R2),RO 
LOFPS RO 
MOV R2,R4 

3 

40$: LDOCID CR4),ACO 

3 

;VERIFY STATUS 

3 

2s: STFPS R3 
MOV #200 ,RO 
LDFPS RO 
STD ACO,(R1) 
MOV 16(R2),RO 
CMP RO,R3 
BEQ 3$ 
CALL aeDETFPA 
ERROR 3 

3$: MOV R2,R4 
ADD #4,R4 

4$: JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
CALL OsDETFPA 
ERROR + 

5$: JMP 20(R2) 

3 

s INSTRUCTION TRAPPED 

3 

50$: MOV (SP)+,RO 
MOV (SP)+,R5S 
CALL a#DETFPA 
ERROR +3 
JMP 5$ 

F 

HOP19 

3 

3 lie ee ee ee ee ee ee a a ee 

; TEST LDEXP 

;DOUBLE 

3 

MLXP: 





F6 
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FLOATING POINT 


TESTS 








SEQ 0277 


COKDADO KDJ11-B CLUSTER DIAG. 
15741 31/EXP=10 - AC=NEG 
15742 101230 005037 003030 CLR OOF LAG sNO INTERRUPTS 
15743 101234 004767 001140 JSR R7,LXPSUB ;D0 TEST 
15744 101240 123456 067012 025252 -WORD 123456,67012,25252,171717 sACO 
15745 101250 000010 -WORD 10 3EX 
15746 101252 142056 067012 025252 -WORD 142056,67012,25252, 171717 sRESULT 
15747 101262 007757 -WORD 7757 : TEST FPS 
15748 101264 007750 -WORD 7750 sRESULT FPS 
15749 32/EXP=177 - ACO=P0S 
15750 101266 005037 003030 CLR @eGFLAG sNO INTERRUPTS 
15751 101272 004767 001102 JSR R7,LXPSUB :D0 TEST 
15752 101276 023456 070123 100000 .WORD 23456, 70123,100000,1 3ACO 
15753 101306 000177 -WORD 177 ;EXP 
15754 101310 077656 070123 100000 -WORD 77656,70123, 100000, 1 RESULT 
15755 101320 007700 -WORD 7700 ; TEST FPS 
15756 101322 007700 WORD 7700 sRESULT FPS 
15757 3 3/EXP=56 
15758 101324 005037 003030 CLR aeFLAG sNO INTERRUPTS 
15759 101330 004767 001044 JSR R7,LXPSUB ;D0 TEST 
15760 101334 055555 044444 033333 -WORD 55555 ,44444,33333, 22222 sACO 
15761 101344 000056 WORD 56 ;EXP 
15762 101346 053555 044444 033333 . WORD ener ;RESULT 
15763 101356 007757 -WORD 7757 ; TEST FPS 
15764 101360 007740 WORD 7740 sRESULT FPS 
15765 34/EXP=- 151, ACO=UV 
15766 101362 005037 003030 CLR @eFLAG sNO INTERRUPTS 
15767 101366 004767 001006 JSR R7,LXPSUB ;D0 TEST 
15768 101372 100077 177777 177777 -WORD  100077,-1,-1 sACO 
15769 101402 177623 -WORD -155 sEXP 
15770 101404 104677 177777 177777 -WORD 104677,-1,-1,-2 sRESULT 
15771 101414 007757 -WORD 7757 ; TEST FPS 
15772 101416 007750 -WORD 7750 sRESULT FPS 
15773 ;5/EXP=-177 
15774 101420 005037 003030 CLR aeFLAG ;NO INTERRUPTS 
15775 101424 004767 000750 JSR R7,LXPSUB ;D0 TEST 
15776 101430 000177 177777 177777 . WORD 177, -1,-1,-2 ;ACO 
15777 101440 177601 -WORD -177 sEXP 
15778 101442 000377 177777 177777 -WORD 377,-1,-1,-2 sRESULT 
15779 101452 007700 -WORD 7700 s TEST FPS 
15780 101454 007700 -WORD 7700 sRESULT FPS 
15781 36/EXP=-200, UNDERFLOW 
15782 101456 012737 000001 003030 MOV #1,30FLAG ; INTERRUPTS 
15783 101464 004767 000710 JSR R7,LXPSUB 300 TEST 
15784 101470 030131 032334 035363 -WORD 30131,32334,35363, 73031 3ACO 
15785 101500 177600 -WORD -200 ;EXP 
15786 101502 000131 032334 035363 . WORD 43. 32334, 35363, 73031 sRESULT 
15787 101512 007740 . WORD 740 ; TEST FPS 
15788 101514 107744 . WORD 107744 sRESULT FPS 
15789 101516 000012 WORD 12 sFEC 
15790 ;7/EXP=LARGEST NEGATIVE 
15791 101520 012737 000001 003030 MOV #1,30FLAG sEXPECT INTERRUPTS 
15792 101526 004767 000646 JSR R7,LXPSUB ;D0 TEST 
15793 101532 000000 000123 000456 “WORD 0,123,456,1 sACO 
15794 101542 100000 -WORD 100000 sEXP 
15795 101544 040000 000123 000456 -WORD 40000,123,456,1 RESULT 
15796 101554 002200 -WORD 2200 ; TEST FPS 
| 15797 101556 102200 -WORD 102200 sRESULT FPS 
| | 








FLOATING POINT TESTS 
000012 


012737 
004767 
111111 
177600 
100111 
002217 
102214 
000012 


012737 
004767 
123456 
176035 
000000 


005700 
005704 
000012 


012737 
004767 
000377 
161162 
074577 


15798 101560 


15807 101622 


15809 101624 
15810 101632 
15811 101636 
15812 101646 
15813 101650 
15814 101660 
15815 101662 
15816 101664 


000002 
000500 
123456 


123456 


15818 101666 
15819 101674 
15820 101700 
15821 101710 
15822 101712 
15823 101722 
15824 101724 
15825 101726 


15827 101730 
15828 101734 
15829 101740 
15830 101750 
15831 101752 


003030 
000440 
177777 


177777 


003030 
000402 
000100 


000100 
15840 102020 
15841 102022 


15843 102024 
15844 102032 
15845 102036 
15846 102046 
15847 102050 
15848 102060 
15849 102062 
15850 102064 


15852 102066 
15853 102074 
15854 102100 


000001 
000342 
177777 


177777 


004767 


012737 
004767 
000555 


000002 
000300 


COKDADO KDJ11-B CLUSTER DIAG. 
| 177777 





G6 
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-WORD 12 FEC 
38/EXP=-200, NEG. ACO 
003030 MOV #1,90FLAG ; INTERRUPTS 
JSR R7,LXPSUB ;D0 TEST 
100000 . WORD 111111, 100000, 100000, -1 ;ACO 
. WORD -200 3;EXP 
100000 . WORD 100111,100000, 100000, -1 ;RESULT 
-WORD 2217 3 TEST FPS 
-WORD 102214 sRESULT FPS 
-WORD 12 FEC 
39/EXP=-1743, FIU=0 
003030 MOV #2, 9¢FLAG sNO INTERRUPTS 
JSR R7,LXPSUB :D0 TEST 
012346 -WORD 123456,12346,12346,123 ;ACO 
WORD -1743 ;EXP 
000000 -WORD 0,0,0,0 ;RESULT 
WORD 700 ; TEST FPS 
. WORD 5704 sRESULT FPS 
. WORD 12 3sFEC 
310/EXP =-16616, FID=1 
003030 MOV #2 ,20FLAG ;NO INTERRUPTS 
JSR R7,LXPSUB ;D0 TEST 
065432 -WORD 377,123456,65432,1 ;ACO 
. WORD -16616 3;EXP 
065432 . WORD 74577 ,123456 ,65432,1 ;RESULT 
-WORD 47700 ; TEST FPS 
. WORD 147700 ;RESULT FPS 
. WORD 12 3;FEC 
;11/EXP=177, ACO=UNDEF INED VARIABLE 
CLR ae¢FLAG sNO INTERRUPTS 
JSR R7,LXPSUB ;D0 TEST 
177777 . WORD 100177, -1,-1,-1 ;ACO 
. WORD Av? 3 EXP 
177777 ~WORD -1,-1,-1,-1 ;RESULT 
. WORD 7700 ; TEST FPS 
WORD 7710 sRESULT FPS 
;12/EXP=150 ACO=P0S 
CLR OGFLAG sNO INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
000200 -WORD 200,100,200,300 ;ACO 
. WORD 150 3; EXP 
000200 -WORD 72000,100,200,300 ;RESULT 
. WORD 7717 ; TEST FPS 
WORD 7700 sRESULT FPS 
;13/EXP=200, ACO=NEG 
003030 MOV #1,00FLAG 
JSR R7,LXPSUB :D0 TEST 
177777 . WORD at ee et we ;ACO 
-WORD 200 EXP 
177777 . WORD 100177,-1,-1,-1 ;RESULT 
. WORD 7705 ; TEST FPS 
. WORD 107716 sRESULT FPS 
-WORD 10 3FEC 
314/EXP=400, FID 
003030 MOV #2, 00FLAG ; INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
177776 -WORD 555,-1,-2,-3 ACO 





SEQ 0278 


- 


COKDADO KDV11-B CLUSTER DIAG. 


15855 102110 
15856 102112 
15857 102122 
15858 102124 
15859 102126 


15861 102130 
15862 102136 
15863 102142 
15864 102152 
15865 102154 
15866 102164 
15867 102166 


15869 102170 
15870 102176 
15871 102202 
15872 102212 
15873 102214 
15874 102224 
15875 102226 
15876 102230 


15878 102232 
15879 102236 
15880 102242 


TESTS 


000400 
040155 
047700 
147702 
000010 


012737 


012737 
004767 
123456 
077777 
137656 


177777 


000000 
000236 
177777 


003030 
000136 
023465 





15881 102252 000050 
15882 102254 152056 023465 
15883 102264 007500 
15884 102266 007510 


15886 102270 012737 000001 
15887 102276 004767 000076 
15888 102302 000333 000444 
15889 102312 177600 
15890 102314 000133 000444 
15891 102324 007500 
15892 102326 107504 
15893 102330 000012 


15895 102332 012737 000001 
15896 102340 004767 000034 


15902 102372 000010 


f 
| 
| 
FLOATING POINT 
15904 102374 000167 000250 
| 
' 


ne ee a SS LT 
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SEQ 0279 
-WORD 400 EXP 
177776 -WORD 40155,-1,-2,-3 ;RESULT 
-WORD 47700 ; TEST FPS 
-WORD 147702 ;RESULT FPS 
-WORD 10 sFEC 
315/EXP=11011 FIU=0 
003030 MOV #0, 9¢FLAG :NO INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
177776 e WORD 177773 . -1 ’ -2 . -3 ;ACO 
-WORD 11011 3;EXP 
000000 -WORD 0,0,0,0 ;RESULT 
-WORD 6700 ; TEST FPS 
-WORD 6706 sRESULT FPS 
316/EXP=LARGEST POSITIVE 
003030 MOV #1,39¢FLAG ; INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
000100 . WORD 123456, 100,100,200 ;ACO 
. WORD 7777 3;EXP 
000100 . WORD 137056, 100,100, 200 ;RESULT 
WORD 7740 ; TEST FPS 
WORD 107752 sRESULT FPS 
° 10 ;FEC 
317/FLOATING 
OeFLAG sNO INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
000555 . WORD 123456, 23465 ,555,444 ;ACO 
WORD 50 3;EXP 
000555 . WORD 152056 ,23465,555,444 ;RESULT 
-WORD 7500 ; TEST FPS 
WORD 7510 ;RESULT FPS 
;18/FLOATING UNDERFLOW 
003030 MOV #1,98FLAG ; INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
000555 . WORD 333,444,555,666 3ACO 
. WORD €20 3;EXP 
000555 . WORD 133,444,555, 666 ;RESULT 
WORD 7500 3s TEST FPS 
. WORD 107504 ;RESULT FPS 
. WORD 12 ;FEC 
;19/FLOATING OVERFLOW 
003030 MOV #1,300FLAG ; INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
000345 . WORD 12346, 123,345,456 . ;ACO 
. WORD 400 3;EXP 
000345 WORD 40146,123,345, 4sé ;RESULT 
. WORD 7400 ; TEST FPS 
. WORD 107402 ;RESULT FPS 
-WORD 10 FEC 
3 
HOP20 ;GET OVER SUBROUTINE 


JMP 
5 eXaXaXaX aX aXaXaXaXaXaXaXaXaXaX aX aXaXaXaXeX aX aXeXaXaXeXeX aX 
3 eXaX aX eX aX aX aX aeXaX eX aX aX aX aX aX aX aXaXaXaXaX aXaeXaXaXaXaXaX aX 
;LDEXP 





ACO 

EXPONENT 

RESULT 

FPS BEFORE EXECUTION 





— ee 





COKDADO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


15912 
15913 
15914 


102400 
102402 
102410 
102414 
102420 
102422 
102424 
102426 
102432 
102434 


102440 
102442 
102444 


102446 
102454 
102456 
102462 


102464 


102470 
102476 
102500 
102504 


102506 
102512 
102514 
102516 
102522 
102524 
102530 


102532 
102534 
102540 
102542 
102544 
102550 
102552 
102554 


012602 
012737 
012701 
012700 
170100 
010204 
172414 
016200 
170100 
016204 


176404 
170327 
000000 


032737 
001426 
004737 
104003 


000167 


032737 


170203 
012700 
170100 
174011 
016200 
020003 
001403 
004737 


102470 
003142 
000200 


000022 
000010 


000001 
140132 


000042 


000001 


140132 


000020 


102442 
140132 


000200 


000024 


140132 
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000244 


003030 


003030 


16 
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; FPS AFTER EXECUTION 


; (FEC) 


3 
5 XX HXHEX RX HEK SX RXHK EX EK RK KEK EX KEK KEK ENE KEK KEK EXE KEK KEK 
5X HXEXHEX HX HRK EX EXHEX EK EXHK RX RXHEK XK RK EK KKK KK KK KEK KEK 


5 
LXPSUB: MOV (SP)+,R2 
MOV 


s RETURN ADDRESS TO USE AS POINTER 


#50$ , 9OF PVEC sREDIRECT TRAP VECTOR 


MOV @RECDST,R1 
MOV om 


LOFPS 
MOV R2,R4 
LOD (R4),ACO 
Vv 22(R2),RO 
LDOFPS RO 
MOV 10(R2),R4 
; 
40$: LDEXP R4,ACO 
1$: STST CPC)+ 
-WORD O 
5 
s INSTRUCTION DIDNT TRAP 
BIT #1,3¢FLAG 
BEQ 2s 
CALL @eDETFPA 
ERROR +3 
JMP 2s 
; 
s INSTRUCTION TRAPPED 
; 
50$: BIT #1,90FLAG 
BNE S1i$ 
CALL OeDETFPA 
ERROR +3 
JMP 2s 
S1$: MOV (SP)+,R4 
TST (SP )+ 
CMP #1$,R4 
BEQ 2s 
CALL QeDETFPA 
ERROR +3 


sPOINT TO RESULT AREA 
;SET FPS TO DOUBLE 


é 

sPOINT TO ACO DATA 
sLOAD ACO 

sGET TEST FPS 

sLOAD TEST FPS 

sPOINT TO TEST DATA 


;*TEST INSTRUCTION (ACCORDING TO MODE) 
sWAIT FOR POSSIBLE FPA TRAP. 
sSTORE STATUS HERE 


;VERIFY A NO TRAP CONDITION 
sBRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


sSEE IF EXPECTING A TRAP 

sBRANCH IF EXPECTING A TRAP 

sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 

sREJOIN CODE 

sSEE IF PC = INSTRUCTION 

;CLEAN UP STACK 


; 
sBRANCH IF GOOD COMPARE 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sPC WAS INCORRECT 


o 
sCOMMON CODE FOR TRAP AND NO TRAP 


;VERIFY STATUS 


é 

2s: STFPS R3 
MOV #200 ,RO 
LOFPS RO 


STD ACO,(R1) 

MOV 24(R2),RO 
CMP RO,R3 

BEQ 3¢ 

CALL @eDETFPA 





sSAVE FPS 
sSETUP FPS 
sFPS=200 
;GET RESULT 
3;GET EXPECTED STATUS 
sVERIFY STATUS 
;BRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 








SEQ 0280 


COKDADO KDJ11-B CLUSTER DIAG. 


15970 
15971 
15972 
15973 


102610 
102614 
102616 


102622 
102626 
102630 
102634 
102636 
102642 


102644 
102650 


102650 


102650 
102654 
102660 
102670 
102674 
102676 


102700 
102704 
102710 
102720 
102724 
102726 


102730 
102734 


r 
i 
| 
FLOATING POINT 
15969 102560 
102740 
| 





TESTS 
104003 


000012 
035304 
100320 


140132 


003030 
000026 
003122 
000026 
140132 


000030 


003030 
000610 


000000 
177777 


MACRO YOS.02 


000000 


177777 


000000 


000001 


3$: MOV 
4$: JSR 


S$: TST 


; VERIFY 
7$: 


coda 


SEQ 0281 


sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;DETERMINE FLOATING POINT FAULT. $$$ 


;SEE IF NEED TO CHECK FEC 


sBRANCH IF NEED TO CHECK 


;VERIFY FEC FOR OVERFLOW 
;DETERMINE FLOATING POINT FAULT. $$$ 
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+3 ;FPP ERROR 
;BAD FPS 
R2,R4 
#12,R4 
R7, DATVER 
COUNT 
S$ ;BRANCH IF GOOD 
OeDETFPA 
+ ;FPP ERROR 
;BAD ACO 
—- 
26(R2) sRETURN FROM TEST 
#RECFEC ,R4 sPOINT TO FEC AREA 
CR4) ;SAVE FEC 
(R4),26(R2) 
8$ ;BRANCH IF GOOD 
aeDETFPA 
+3 ;FPP ERROR 
;BAD FEC 
30(R2) 


sRETURN FROM TEST 


TEST STCOI, STCOL 


MSCD: 
; 
31/ACO=0, INT 
CLR OF LAG sNO INTERRUPTS 
JSR R7,SCDSUB ;D0 TEST 
-WORD 0177,0,0,0 ;ACO 
. WORD 0,-1 ;RESULT 
. WORD 7640 ; TEST FPS 
. WORD 7644 ;sRESULT FPS 
32/ACO=- 0, LONG 
CLR aeFLAG ; INTERRUPT 
JSR R7,SCDSUB ;D0 TEST 
. WORD 100177,-1,-1,-1 ;ACO 
-WORD 0,0 ;RESULT 
. WORD 7700 ; TEST FPS 
. WORD 7704 ;RESULT FPS 
33/EXP=100, LONG 
CLR OeFLAG sNO INTERRUPT 
JSR R7,SCDSUB ;D0 TEST 
-WORD 20000,0,0,0 ;ACO 
-WORD 0,0 ;RESULT 
. WORD 300 ; TEST FPS 
. WORD 304 ;RESULT FPS 
34/EXP=200, BAISED 0, INT, ROUND 
CLR aeFLAG ; INTERRUPT 
JSR R7,SCDSUB ;D0 TEST 
. WORD 140177,177777,1.1 ;ACO 
. WORD 0 ;RESULT 
. WORD 7700 ; TEST FPS 








—- 
' 





COKDADO KDJ11-B CLUSTER DIAG. 


FLOATING POINT 
16028 103006 
16030 103010 


16044 103070 
16045 103076 
16046 103102 
16047 103112 
16048 103116 
16049 103120 


16051 103122 
16052 103126 
16053 103132 
16054 103142 
16055 103146 
16056 103150 


16058 103152 
16059 103160 
16060 103164 
16061 103174 
16062 103200 
16063 103202 


16065 103204 
16066 103212 
16067 103216 
16068 103226 
16069 103232 
16070 103234 


16072 103236 
16073 103244 
16074 103250 
16075 103260 
16076 103264 
16077 103266 


16079 103270 
16080 103276 
16081 103302 
16082 103312 
16083 103316 
16084 103320 


TESTS 
007704 
005037 


000000 
007700 


007600 
107605 


012737 
004767 
043300 


000000 
047700 
047700 


012737 
004767 


012737 
004767 
050100 
000000 


047700 
147705 


003030 
000450 
075757 
173757 


003030 
000420 


000000 
000000 


003030 
000336 


000000 
177777 


000001 
000304 
177777 
177777 





— oo 
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-WORD 7704 sRESULT FPS 
35/LONG 
CLR OOF LAG ; INTERRUPT 
JSR R7,SCOSUB 300 TEST 
157737 . WORD 47667, 75757 ,157737, 167773 
-WORD 55675,1737 57 ;RESULT 
-WORD 7717 ; TEST FPS 
. WORD 7700 sRESULT FPS 
36/LONG, EXP=2#832 
CLR OeFLAG 3NO INTERRUPT 
JSR R7,SCOSUB 3:00 TEST 
000000 . WORD 46400,0,0,0 ;ACO 
-WORD 1000,0 sRESULT 
. WORD 7700 ; TEST FPS 
-WORD 7700 sRESULT FPS 
37/LONG, EXP>2*#32 
003030 MOV #1,30FLAG s INTERRUPT 
JSR R7, SCDSUB ;D0 TEST 
000000 . WORD 77607,0,0,0 ;ACO 
; -WORD 0,0 sRESULT 
-WORD 7700 ; TEST FPS 
. WORD 107705 ;RESULT FPS 
38/INT, EXP=2e«15 
CLR aeFLAG sNO INTERRUPTS 
JSR R7,SCDSUB 300 TEST 
000000 -WORD 43200,0,0,0 ;ACO 
. WORD 10000, -1 ;RESULT 
.WORD 7600 ; TEST FPS 
-WORD 7600 ;RESULT FPS 
39/INT, EXP>2e«15 
003030 MOV #1,39¢FLAG 3; INTERRUPT 
JSR R7,SCDSUB :D0 TEST 
177777 -WORD 77777,-1,-1,-1 3ACO 
. WORD ah sRESULT 
. WORD 7600 ; TEST FPS 
-WORD 107605 sRESULT FPS 
310/INT, EXP>2*«15, FID 
003030 MOV #0, 30FLAG sNO INTERRUPT 
JSR R7,SCDOSUB ;D0 TEST 
000000 -WORD 43300,0,0,0 ;ACO 
-WORD 0,14000 ;RESULT 
.WORD 47700 ; TEST FPS 
-WORD 47700 sRESULT FPS 
;11/INT, EXP>2e«15, FIC=0 
003030 MOV #0, FLAG sNO INTERRUPT 
JSR R7,SCOSUB 3:00 TEST 
177777 . WORD 143300, -1,-1,-1 ;ACO 
. WORD -1,163741 ;RESULT 
. WORD 7300 ; TEST FPS 
. WORD 7310 sRESULT FPS 
312/LONG, EXP>2ee32, FID 
003030 MOV #2, 00FLAG 3; INTERRUPT 
JSR R7,SCOSUB 300 TEST 
000000 . WORD 50100,0,0,0 ;ACO 
-WORDB 0,0 sRESULT 
.WORD 47700 ; TEST FPS 
. WORD 147705 sRESULT FPS 





;ACO 


SEQ 0282 


1 ns en 





| COKDADO KDv11-B8 CLUSTER DIAG. 


FLOATING POINT 


103322 


103352 


103354 
103360 
103364 
103374 


103462 
103464 


103470 
103472 
103500 
103504 
103510 
103514 
103520 
103522 
103524 
103526 
103532 


103534 


TESTS 


012737 
004767 
050377 
000000 


007300 


007305 . 


005037 
004767 
100200 
000000 


007757 
007744 


005037 
004767 
037700 
000000 


007600 
007604 


005037 
004767 
004377 
000000 


007600 
007604 


000167 


012602 
012737 
012701 
012711 
012741 
012700 
170100 
010204 
172414 
016200 
170100 


175411 


003030 
000054 
177777 
177777 


177777 
177777 


000244 


103564 
003144 
177777 
177777 
000200 


000014 
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003030 
177777 


177777 


177777 


177777 


000244 


313/LONG, EXP>2« 
MOV 





L6 
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#32, FIC=0 
#0, OF LAG 
R7,SCOSUB 
50377,-1,-1,-1 


R7, SCDSUB 


R7, SCOSUB 


HOP21 





san 


SEQ o283_—C! 


sNO INTERRUPT 
= 


; TEST FPS 
sRESULT FPS 


3NO INTERRUPTS 
+ ae 


; 
sRESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
:D0 TEST 


3;ACO 
sRESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
:D00 TEST 
:ACO 

sRESULT 

; TEST FPS 

sRESULT FPS 


s;GET OVER SUBROUTINE 


5 *XaXaXeXaeX aX aX aXeXaeXaXeX eX eX aX aX aXaXeXeXeXeXeXeXaXaXeXeXeX 
5 *XeXaXeX aX aeXeXaXeX aX aXaXaXaXaeXaXaeXeXaXeXeXaXeXaXaraXaXaXaX 
sSTCDI, STCOL, STCFI, STCFL 


ACO 
RESULT 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
(FEC) 


; 
;TRAP ON CONVERSION FAILURE 
3 #XeXaXaXaXeXeXaXeXeXaXeXaXaXeXaXaXeXaXaXeXeXeXeXaXeXeXeXeX 
3 *XeXaXaXaXaXeXaXaXaXaXeXeXaXaeXaXaeXaeXaXaeXeXaXeXaXaXaXeXeXeX 


; 
SCOSUB: MOV 
MOV 


3 
40$: 





(SP)+,R2 
#50$ , 9OF PVEC 
@RECDST+2,R1 
#-1,(R1) 


14(R2),RO 
RO 


ACO,(R1) 


; RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

sPOINT TO RESULT AREA 

sPRELOAD RECEIVE DATA BUFFER 


; 

sSET FPS TO DOUBLE 

i 

sPOINT TO ACO DATA 
sLOAD ACO 

sGET TEST FPS 

sLOAD TEST FPS 


s*TEST INSTRUCTIONC ACCORDING TO MODE) 


‘ 
— —_ 9 





COKDADO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


16147 103542 
16148 103550 
16149 103552 
16150 103556 


| 
16142 103536 
16143 103540 
16152 103560 





170327 
000000 


032737 
001426 
004737 
104003 


000167 


032737 


000001 
140132 


000042 


000001 
140132 


000020 


103536 
140132 


000016 


140132 


000010 
034202 
077234 


140132 


003030 
000020 
003122 
000006 
140132 


MACRO YOS.02 


003030 


003030 
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sWAIT FOR POSSIBLE FPA TRAP. 
sSTORE STATUS HERE. 


sVERIFY A NO TRAP CONDITION 


sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. $$$ 


sFPP ERROR 
s INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


;SEE IF EXPECTING A TRAP 
s;BRANCH IF EXPECTING A TRAP 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 
sSEE IF PC = INSTRUCTION 
s;CLEAN UP STACK 


: 
sBRANCH IF GOOD COMPARE 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
sPC WAS INCORRECT 


sSAVE FPS 

sGET EXPECTED STATUS 
sVERIFY STATUS 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
sBAD FPS 
sPOINT TO EXPECTED DATA 
s;VERIFY DATA 


sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


sFPP ERROR 

3BAD ACO 
;SEE IF NEED TO CHECK FEC 
s;BRANCH IF NEED TO CHECK 
sRETURN FROM TEST 


sPOINT TO FEC AREA 

sSAVE FEC 

sVERIFY FEC FOR OVERFLOW 
sBRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


1$: STST (PC)+ 
-WORD 0 

; 

sINSTRUCTION DIDNT TRAP 
BIT #1, 30FLAG 
BEQ 2s 
CALL BeDETFPA 
ERROR + 
JMP 2s 

. 

s INSTRUCTION TRAPPED 

6 

50$: BIT #1, 90FLAG 
BNE 51$ 
CALL QeDETFPA 
ERROR + 
JMP 2s 

51$: MOV CSP)+,R4 
TST (SP )+ 
CMP #1$,R4 
BEQ es 
CALL @eDETFPA 
ERROR + 

3 

sCOMMON CODE FOR TRAP AND NO TRAP 

sVERIFY STATUS 

a 

2s: STFPS R3 
MOV 16(R2),RO 
CMP RO,R3 
BEQ 3$ 
CALL @eDETFPA 
ERROR +3 

3$: MOV R2,R4 
ADD #10,R4 

4$: JSR R7,DATVFR 
TST COUNT 
BEQ S$ 
CALL @eDETFPA 
ERROR + 

S$: TST @eFLAG 
BNE 7$ 
JMP 20(R2) 

;VERIFY FEC 

7$: MOV @RECFEC ,R4 
STST (R4) 
CMP (R4), 96 
BEQ 8$ 
CALL BODE TFPA 
ERROR + 





;FPP ERROR 
;BAD FEC 





$$$ 


$$$ 


$$$ 


$$$ 


$53 


SEQ 0284 


a EE 





N6 


COKDADO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 14-266 


FLOATING POINT 
103730 
103734 


TESTS 
000162 


012737 
004767 
070000 


000000 
007540 
107545 
005037 
004767 
052000 
000000 
047000 
047005 


000020 


003030 
177524 
052525 
102525 


003030 
177474 
177777 
177777 


003030 
177412 
000000 


177777 


000154 


000132 
177777 


177777 


177777 


003030 


177777 


177777 


177777 





JMP 


20(R2) 


sRETURN FROM TEST 


; 

MSCF : 

’ 

31/LONG EXP =30 


CLR @OFLAG sNO INTERRUPTS 
JSR R7, SCOSUB 300 TEST 
-WORD 44541,52525,-1,-1 3ACO 
-WORD 3,102525 sRESULT 
-WORD 7517 s TEST FPS 
-WORD 7500 sRESULT FPS 
s2/INT, EXP<O 
CLR LAG iNO INTERRUPTS 
JSR R7,SCDSUB 300 TEST 
-WORD 2300,-1,-1,-1 sACO 
-WORD 0O,-1 sRESULT 
-WORD 7400 ; TEST FPS 
-WORD 7404 sRESULT FPS 
33/LONG, EXP 
MOV 41, 90FLAG s INTERRUPT 
JSR R7,SCOSUB 300 TEST 
«WORD 70000,-1,-1,-1 sACO 
-WORD 0,0 sRESULT 
-WORD 7540 3; TEST FPS 
-WORD 10754 sRESULT FPS 
34/INT,EXP=5, FIC*0, FID=1 
CLR LAG sNO INTERRUPTS 
JSR R7,SCOSUB 300 TEST 
-WORD 52000,0,-1,-1 3sACO 
-WORD 0O,-1 sRESULT 
-WORD 47000 ~= ; TEST FPS 
-WORD 47005 sRESULT FPS 
; 
F 
3 wreeeceeeneceeceeceneceececeeneececeeceeceeeecececee 
sTEST STEXP 
F 
MSXP; 
’ 
31/EXP=100 
JSR R7,SXPSUB 300 TEST 
-WORD 20000,0,0,0 -3ACO 
-WORD -100 sRESULT 
WORD 7740 3 TEST FPS 
.WORD 7750 sRESULT FPS 
32/EXP=201 FLOAT, NEG 
JSR R7,SXPSUB 300 TEST 
«WORD 140377,-1,-1,0 ACO 
-WORD 1 sRESULT 
-WORD 7500 ; TEST FPS 
-WORD 7500 sRESULT FPS 











— 
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SEQ 0286 
FLOATING POINT TESTS 
16260 33/EXP2=-i77 
16261 104142 004767 000110 JSR R7, SXPSUB 300 TEST 
16262 104146 000177 177777 177777 . WORD 177,-1,-1,-1 sACO 
16263 104156 177600 . WORD 177600 sRESULT 
16264 104160 007700 . WORD 7700 s TEST FPS 
16265 104162 007710 ° 7710 sRESULT FPS 
16266 34/EXP=-100 
16267 104164 004767 000066 J R7, SXPSUB 300 TEST 
16268 104170 020000 000000 177777 -WORD 20000,0,-1,-1 3ACO 
16269 104200 177700 . WORD -100 sRESULT 
16270 104202 040200 -WORD 40200 ; TEST FPS 
16271 104204 040210 -WORD 40210 sRESULT FPS 
16272 35/EXP=200 
16273 104206 004767 000044 J R7, SXPSUB 3:00 TEST 
16274 104212 040000 000000 000000 -WORD 40000,0,0,0 ACO 
16275 104222 000000 -WORD O sRESUL7 
16276 104224 007700 . WORD 7700 3; TEST FPS 
16277 104226 007704 . WORD 7704 sRESULT FPS 
16278 36/EXP=0 
16279 104230 004767 000022 JSR R7,SXPSUB 300 TEST 
16280 104234 000177 177777 177777 - WORD 177,-1,-1,-1 3ACO 
16281 104244 177600 . WORD 177600 sRESULT 
16282 104246 000000 -WORD 0 ; TEST FPS 
oo 104250 000010 . WORD 10 sRESULT FPS 
3 
16285 104252 000167 000120 JMP HOP22 ;GET OVER SUBROUTINE 
16286 3 eXeXeXeXaeXaeXaeXeXaeXeXaXaeXaeXeXaeXeXaeXaeXeXeXeXeXeXeXeXeXeXeXeX 
16287 3 eXeXeXaeXeXeXeXeXaeXeXaeXeXeXaeXeXeXaeXeXeXaeXeXaXeXeXaeXeXeXeXeX 
16288 ;STEXP 
16289 3 ACO 
16290 ; EXPONENT RESULT 
16291 3 FPS BEFORE EXECUTION 
16292 ; FPS AFTER EXECUTION 
16293 3 
16294 sNO TRAPS CAN OCCUR 
16295 3 eXeXaXeXeXeXeXaXeXeXaeXeXeXeXeXaXeXeXeXeXeXeXeXeXeXeXeXeXeX 
16296 3 eXeXeXeXeXaeXeXaeXeXeXeXeXeXaeXeXaXeXeXeXeXeXeXeXaeXeXeXeXeXaX 
16297 3 
16298 104256 012602 SXPSUB: MOV (SP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
16299 104260 012737 104360 000244 MOV #50$ , OF PVEC sREDIRECT TRAP VECTOR 
16300 104266 012701 003142 MOV @RECDST,R1 sPOINT TO RESULT AREA 
16301 104272 012700 000200 MOV #200,RO ;SET FPS TO DOUBLE 
16302 104276 170100 LOFPS RO ; 
16303 104300 010204 MOV R2,R4 sPOINT TO ACO DATA 
16304 104302 172414 LOD CR4),ACO ;LOAD ACO 
16305 104304 016200 000012 MOV 12(R2),R0 sGET TEST FPS 
fetes 4 104310 170100 LOFPS RO ;LOAD TEST FPS 
E 
teed 104312 175011 40$: STEXP ACO,C(R1) 3*#TEST INSTRUCTIONC ACCORDING TO MODE) 
3 
16310 sVERIFY STATUS 
16311 ; 
16312 104314 170203 2$: STFPS R3 sSAVE FPS 
16313 104316 016200 000014 MOV 14(R2),RO 3;GET EXPECTED STATUS 
16314 104322 020003 CMP RO,R3 ;VERIFY STATUS 
16315 104324 001403 BEQ 3$ ;BRANCH IF GOOD 


| 16316 104326 004737 140132 CALL QeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
' 




















16373 104400 000240 NOP 
16374 104402 005737 003032 TST CCHPAS shave done enough inclusive passes? 


~ 
o 
w 
~ 
~ 
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SEQ 0287 
FLOATING POINT TESTS 

16317 104332 104003 ERROR +3 ;FPP ERROR 
16318 sBAD FPS 
16319 104334 016204 000010 3$: MOV 10CR2),R4 sPOINT TO EXPECTED EXPONENT 
16320 104340 020437 003142 CMP R4,90RECDST sVERIFY EXPONENT 
16321 104344 001403 BEQ 5$ ;BRANCH IF GOOD 
16322 104346 004737 140132 CALL ODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
16323 104352 104003 ERROR +3 ;FPP ERROR 
16324 ;BAD ACO 
ett 104354 000162 000016 S$: JMP 16(R2) sRETURN FROM TEST 

3 
16327 s INSTRUCTION TRAPPED 
16328 3 
16329 104360 012600 50$: MOV CSP)+,RO sSAVE PC 
16330 104362 012605 MOV (SP)+,R5S sSAVE OLD PS 
16331 104364 004737 140132 CALL aeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
16332 104370 104003 ERROR +3 ;FPP ERROR 
16333 ;WILD TRAP DURING STEXP 
oeees 104372 000167 177756 JMP S$ sREJOIN CODE 

8 
16336 104376 HOP22: 
16339 
16340 -ENABL AMA 
16341 -SBTTL TEST - CHECK REGISTER ACCESS 
16342 ;CHECK REGISTER ACCESS - THIS TEST WILL VERIFY EACH OF THE THREE 
16343 ;CACHE MEMORY SYSTEM REGISTERS CAN BE ACCESSED WITHOUT A TRAP TO 
16344 sLOCATION 4(CNON-EXISTANT ADDRESS TRAP) OCCURRING. THE REGISTERS TO 
16345 ;BE TESTED ARE: 
16346 3 CACHE CONTROL 17777746 
16347 3 MEMORY SYSTEM ERROR 17777744 
16348 Fy HIT/MISS 17777752 
16349 sEACH REGISTER WILL BE ACCESSED WITH A WRITE CYCLE. 
16350 3 
16351 ;BGNTST 
16352 sSAVE CONTENT OF LOCATION 4 
16353 ;LET LOCATION 4 POINT TO ERROR ROUTINE 
16354 sINITIALIZE R TO TOP OF ADDRESS TABLE 
16355 3;D0 UNTIL FOR ALL REGISTERS 
16356 Bu TEST REGISTER UNDER TEST 
16357 3. IF TIMEOUT DID HAPPEN 
16358 ie ERROR 
16359 cs ENDIF 
16360 sENDDO 
16361 sRESTORE CONTENTS OF LOCATION 4 
16362 ;EXIT TST 
16363 : 
16364 sADDRESS TABLE: 17777746 
16365 3 17777744 
16366 ; 17777752 
16367 3 
16368 ;ENDTST 
16369 sERROR ROUTINE: SET TIMEOUT FLAG 
16370 3 RETURN 
16372 PETIT i iti ti tii ti titi iti titi tii ri tiriititiriiririri irri r rrr res sy 

104376 000004 TST: SCOPE 
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CHECK REGISTER 


ACCESS 


137542 
000004 
104536 
177746 


177746 
177744 
177744 
177752 


177752 
003012 
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001122 


001122 


99$: 


1$: 


2s: 


3$: 


4$: 


ERROUT: 





D7 


99$ 


TST3 


#TOUT, 
a4, 


O04 


#MSER, $BDADR 
+130 

Ri 

HITMIS 

Ri 

4$ 
—ee 
+ 

SLOCOO, a#4 
TST3 


R1 






SEQ 0288 


; not yet 


3; de aid 
;:GO TO Next test 


sSAVE CONTENTS OF VECTOR 4 

sLET VECTOR 4 POINT TO ERROR ROUTINE 
sCLEAR TIMEOUT FLAG 

sREAD REGISTER UNDER TEST 

3 TIMEOUT? 


sSTORE LOCATION 
sTIMEQUT ACCESING CCR 
sCLEAR TIMOUT FLAG 
sREAD MSER 

sTIMEOUT ? 


sSTORE LOCATION 

s TIMEOUT ACCESSING MSER 
sCLEAR TIMEOUT FLAG 
sACCESS HIT/MISS 

s TIMEOUT? 


sSTORE LOCATION 
s TIMEOUT ACCESSING HIT/MISS 
sRESTORE VECTOR 4 


+;GO TO NEXT TEST 


sFLAG TIMEOUT 


- ee ee eee 


— KDJ11-B CLUSTER DIAG. 
TEST - CCR REGISTER BIT TEST 


000004 
16431 104544 000240 
16432 104546 005737 
16433 104552 001002 
16434 104554 000240 
16435 104556 000431 
16436 104560 000240 
16437 104562 012701 
16438 104566 005037 
16439 104572 042737 
16440 104600 010137 
16441 104604 023701 
16442 104610 001407 
16443 104612 005737 
16444 104616 001003 
16445 104620 032701 
16446 104624 001001 
16447 104626 104004 
16448 104630 006101 
16449 104632 103362 
16450 104634 052737 


ES SS LL 


003032 


177746 
177746 


177746 
174400 


001000 


MACRO YOS.02 


-SBTTL TEST 





E7 
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- CCR REGISTER BIT TEST 
;CCR REGISTER BIT TEST - THIS TEST WILL VERIFY THAT EACH READ/WRITE BIT OF 
sTHE CACHE CONTROL REGISTER CAN BE SET AND CLEARED INDIVIDUALLY AND THAT 


sBITS 15 - 11 AND BIT 8 ARE ALWAYS READ AS ZEROS. 


; 
;BGNTST 
:TNTTTALIZE GOOD DATA TO #1 
;CLEAR CCR 
3:00 UNTIL ALL BITS TESTED 


WRITE GOOD DATA TO CCR 


READ CCR 


“dl CCR NOT EQUAL TO GOOD DATA THEN 
nd CCR EQUAL TO ZERO THEN 


ENDIF 
UPDATE T 


;ENDDO 
sENDTST 


FF EERE EKER AREER ESEKESRESEEESRESREEREESEREREEESESCESES 
TST3: 


99$: 


177520 
1$: 


2$: 
3$: 


177520 


SCOPE 
NOP 


IF GOOD DATA NOT EQUAL TO BIT 15-11 OR BIT & THEN 
ose ERROR IN READ/WRITE BITS OF CCR 


O NEXT BIT 


#1, R1 


2 
#174400,R1 
3$ 

+4 

R1i 


1$ 
#1000,BCSR 


shave done enough inclusive passes? 


; not yet 


aid 
:;GO TO Next Test 
sINITIALIZE GOOD DATA TO #1 


;CLEAR CCR 


sDISABLE HALT ON BREAK 
s;WRITE GOOD DATA TO CCR 
;IF CCR NOT EQUAL GOOD DATA 


3; THEN 


;IF CCR EQUAL TO ZERO 
; THEN 
;IF GOOD DATA NE TO BIT 15-11 OR BIT 8 


3; THEN 

sERROR IN READ/WRITE BITS OF CCR 
sUPDATE TO NEXT BIT 

;D0 UNTIL ALL BITS TESTED 
sENABLE HALT ON BREAK 


SEQ 0289 














F7 
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SEQ 0290 
TEST - FORCE MISS TEST 

16454 -SBTTL TEST - FORCE MISS TEST 

16455 sFORCE MISS TEST - THIS TEST WILL VERIFY THAT ALL REFERENCES MADE 

16456 sWITH EITHER BIT<3> OR BIT<2> OF THE CCR SET CAUSE A CACHE MISS AND 

16457 sLEAVE THE CACHE ENTRY UNCHANGED. FIRST WRITE A TEST ADDRESS WITH 

16458 sBITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN 

16459 sINTO THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH 

16460 sNEW DATA. NEXT CLEAR BITS<3:2> AND READ THE TEST ADDRESS, THE DATA 

16461 sSHOULD EQUAL TO PATTERN 1. FINALLY READ THE TEST ADDRESS WITH BIT<3> 

16462 sSET, THE DATA SHOULD EQUAL PATTERN 2. A LAST WRITE MUST BE DONE WITH 

16463 s;BOTH FORCE BITS CLEARED BECAUSE THE CACHE AND MAIN MEMORY HAVE 

16464 sDIFFERENT DATA. 

16465 3 

16466 F 

16467 ;BGNTST 

16468 ;WRITE TEST ADDRESS WITH PATTERN 1 

16469 sSET CCR BITS<3:2> = 0,1 

16470 ;sWRITE TEST ADDRESS WITH PATTERN 2 

16471 ;CLEAR CCR BIT<3> 

16472 sREAD TEST ADDRESS 

16473 ;SAVE HIT/MISS REGISTER DATA 

16474 ;COMPARE RECEIVED DATA TO PATTERN 1 

16475 :IF DATA NOT EQUAL THEN 

16476 He IF DATA EQUAL TO PATTERN 2 THEN 

16477 Be ‘ IF HIT THEN 

16478 Ss ‘ ERROR FORCE MISS WRITES TO CACHE 

16479 Tr ELSE 

16480 be ‘ IF PARITY ERROR INDICATORS EQUAL O THEN 

16481 be ‘ ERROR FROCE MISS INVALIDATES CACHE 

16482 = ELSE 

16483 3. ‘ IF ALL PARITY INDICATORS SET THEN 

16484 te ERROR PARITY ABORT AFTER FORCE MISS 

16485 ie ENDIF 

16486 ix IF TAG PARITY ERROR THEN 

16487 Bie - ERROR TAG PARITY ERROR AFTER FORCE MISS 

16488 ie ELSE 

16489 Pn 2 IF BO AND Bi ERROR THEN 

16490 ae ‘ ERROR DATA PARITY ERROR AFTER FORCE MISS 

16491 = ENDIF 

16492 be IF BO PARITY ERROR THEN 

16493 fs ‘ ERROR LOW BYTE PARITY ERROR 

16494 bi ENDIF 

16495 S~ IF Bi PARITY ERROR THEN 

16496 Bis ' ERROR HIGH BYTE PARITY ERROR 

16497 Re J ‘ ENDIF 

16498 hs ‘ ‘ ENDIF 

16499 a : ENDIF 

16500 bs ‘ ENDIF 

16501 ie ELSE = 

16502 Si. ERROR IN DATA PATH 

16503 “ei END 

16504 ; ENDIF 

16505 ;SET CCR<3:2> = 1,0 

16506 ;READ TEST ADDRESS 

16507 ;SAVE HIT/MISS REGISTER DATA 

16508 ;COMPARE RECEIVED DATA TO PATTERN 2 

16509 ;IF DATA NOT EQUAL THEN 


j 16510 i. IF RECIEVED DATA EQUAL TO PATTERN 1 THEN 
' 
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TEST 


16511 
16512 
16513 
16514 
16515 
16516 
16517 


- FORCE MISS TEST 


001002 


003032 


000114 
105214 


177777 
000002 


100340 


100340 


000040 


177477 
000300 


MACRO YOS.02 


003012 
000114 


177746 
003162 
177746 
001124 
177520 


177520 


;CLEAR CCR<3:2> 











G/ 
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ENDIF 


IF HIT THEN 

— ERROR FORCE MISS READS FROM CACHE 

L 

oar ERROR FORCE MISS READS FROM CACHE AND MISS 


ERROR IN DATA PATH 


sWRITE TEST ADDRESS 
sENDTST 


LE Bahthththihthahsbthicthhthitbbbbhhbppppppprrttritititititiitittititiitit+ tf 


TST4: 


99$: 


100$: 


101$: 


102$: 


103$: 


SCOPE 


CCHPAS shave done enough inclusive passes? 
99$ ; not yet 
; debug aid 
TSTS 3;G0 TO NEXT TEST 
8#114, SLOCOO sSAVE CONTENTS OF VECTOR 114 
OF MPARR ,8#114 sSETUP PARITY VECTOR TO POINT TO HANDLER 
R3 ;CLEAR MSER SAVE LOCATION 
aeTSTLOC sWRITE TEST LOCATION WITH PATTERN 1 
#BITO2, CCR sSET CCR BITS<3:2> = 0,1 
#177777, a#TSTLOC sWRITE TEST LOCATION WITH PATTERN 2 
#200, CCR sCLEAR CCR BIT 3 AND SET PARITY ABORTS 
#177777, $GDDAT ;SAVE DATA IN MEMORY 
#1000,BCSR ;DISABLE HALT ON BREAK 
@eTSTLOC,R1 sREAD TEST ADDRESS 
a¢HITMIS ,R2 ;SAVE HIT/MISS DATA 
#1000,BCSR sENABLE HALT ON BREAK 
R1 sCOMPARE RECEIVED DATA TO PATTERN 1 
i$ sIF DATAS NOT EQUAL THEN 
#177777,R1 ;IF DATA EQUAL TO PATTERN 2 
106$ ; THEN 
#BITO1, R2 3;IF HIT 
100$ 37 


5 


1$ 
#100340,R3 
101$ 

+6 

1$ 
#100340,R3 
102$ 

+7 

1$ 

#BITOS, R3 
103$ 

#10 

1$ 

R3, R4 
#177477 ,R4 
#300, R4 
104$ 


HEN 
:EORCE MISS WRITES TO CACHE 
sIF PARITY INDICATORS EQUAL 0 
; THEN 


:EORCE MISS WRITE INVALIDATES CACHE 
sEL 

;IF ALL PARITY INDICATORS SET 

THEN 


‘ 
sPARITY ABORT AFTER FORCE MISS 
s;ELSE 

4 TAG PARITY ERROR 


; THEN 

aon PaRERY ERROR AFTER FORCE MISS 
3;ELS 

;COPY MSER INTO REG 4 

;MASK FOR BO AND B1 DATA 

;IF BO AND Bi DATA 

3; THEN 


a 


SEQ 0291 





MACRO YOS.02 
TEST - FORCE MISS TEST 


ie 
;ENDIF 


H7/ 
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#BITO3, CCR 
#1000,BCSR 
aeTSTLOC,R1 
Q*HITMIS ,R2 
#1000,BCSR 

Ri, 0177777 


Cc 
a#TSTLOC 
TSTS 


(SP), $BDADR 
MSER, R3 


;WRITE TEST ADDRESS WITH PATTERN 1 
;SET CCR BITS<3:2> = 0,1 
;WRITE TEST ADDRESS WITH PATTERN 2 


;IF HIT/MISS REGISTER BIT 1 NOT SET THEN 


;DATA PARITY ERROR AFTER FORCE MiSS 
;ELSE 
* 4 BO ERROR 


; THEN 
;LOW BYTE PARITY ERROR AFTER FORCE MISS 
:IF Bi ERROR 


3; THEN 

;HIGH BYTE PARITY ERROR AFTER FORCE MISS 
sENDIF 

;ERROR DATA PATH 

;CLEAR MSER SAVE REGISTER 

;SET CCR BITS <3:2> = 1,0 

;DISABLE HALT ON BREAK 

sREAD TEST LOCATION 

;SAVE HIT/MISS REGISTER DATA 

;ENABLE HALT ON BREAK 

;COMPARE RECEIVED DATA TO PATTERN 2 
:IF DATAS NOT EQUAL THEN 

;IF RECIEVED DATA EQUAL TO PATTERN 1 
; THEN 

3;IF HIT 


; THEN 
sFORCE MISS READS FROM CACHE 


;ELSE 
;FORCE MISS READS FROM CACHE AND MISS 
;ENDIF 

;ERROR IN DATA PATH 

sRESTORE VECTOR 114 

;CLEAR CCR BITS<3:2> 

;WRITE TEST ADDRESS 


+3GO TO NEXT TEST 


;SAVE ADDRESS THAT CAUSED ABORT 
s;SAVE CONTENTS OF MEMORY SYSTEM ERROR 
sREGISTER AND RETURN 


- HIT/MISS REGISTER TEST PART 1 

sHIT/MISS REGISTER TEST PART 1 - THIS TEST WILL VERIFY THAT THE HIT/MISS 
sREGISTER CORRECTLY LOGS HITS AND MISSES.FIRST WRITE A TEST ADDRESS WITH 
sBITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN INTO 
;THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH NEW DATA. 
sNEXT CLEAR CCR BITS<3:2> AND READ THE TEST ADDRESS, THE HIT/MISS REGISTER 
s;SHOULD LOGGED A HIT. FINALLY READ THE TEST ADDRESS PLUS 20000(8) THE 
sHIT/MISS REGISTER SHOULD HAVE LOGGED A MISS. 


ERROR IN RECORDING HITS IN HIT/MISS 


if 
| 
COKDADO KDJ11-B CLUSTER DIAG. 

16567 105056 104011 ERROR 
16568 105060 000412 BR 
16569 105062 032703 000100 104$: BIT 
16570 105066 001401 BEQ 
16571 105070 104012 ERROR 
16572 105072 032703 000200 105$: BIT 
16573 105076 001403 BEQ 
16574 105100 104013 ERROR 
16575 105102 000401 BR 
16576 105104 104014 106$: ERROR 
16577 105106 005003 1$: CLR 
16578 105110 052737 000010 177746 BIS 
16579 105116 042737 001000 177520 BIC 
16580 105124 013701 003162 MOV 
16581 105130 013702 177752 MOV 
16582 105134 052737 001000 177520 BIS 
16583 105142 020127 177777 CMP 
16584 105146 001412 BEQ 
16585 105150 005701 TST 
16586 105152 001007 BNE 
16587 105154 032702 000002 BIT 
16588 105160 001402 BEQ 
16589 105162 104015 ERROR 
16590 105164 090403 R 
16591 105166 104016 107$: ERROR 
16592 105170 000401 BR 
16593 105172 104014 108$: ERROR 
16594 105174 013737 003012 000114 23: MOV 
16595 105202 - 005037 177746 CLR 
16596 105206 005037 003162 CLR 
16597 105212 000405 BR 
16598 
16599 
16600 105214 011637 001122 FMPARR: MOV 
16601 105220 013703 177744 MOV 
16602 105224 000002 RTI 
16603 
16604 
16605 .SBTTL TEST 
16606 
16607 
16608 
16609 
16610 
16611 
16612 
16613 3 
16614 3 
16615 ;BGNTST 
16616 
16617 
16618 
16619 ;CLEAR CCR BIT<3> 
16620 ;READ TEST ADDRESS 
16621 
16622 





ES KS LL 


SEQ 0292 


— 


a 





KDJ11-8 CLUSTER DIAG. 
HIT/MISS REGISTER TEST 


105226 


013703 
000002 


003032 


023162 
177752 
000004 


003012 
001000 


177744 


MACRO YOS.02 


PART 1 


003012 
000114 


177746 
003162 
177746 
177520 


114150 
114150 


114150 
114150 


000114 
177520 





17 


sREAD TEST ADDRESS + 20000(8) 
;IF HIT/MISS REGISTER BIT 1 SET THEN 
ERROR IN RECORDING HITS IN HIT/MISS 


i. 
sENDIF 
sENDTST 





Wednesday 27-Feb-85 17:55 Page 16-3 


SEQ 0293 


33 aaa oo eee 


99$: 


1$: 


2$: 


HMPARR : 


SCOPE 


CCHPAS 
99% 


TST6 


a#114, SLOCOO 
#@HMPARR , #114 
a¢TSTLOC 

#BITO2, CCR 
#177777, 8#TSTLOC 
#200, CCR 
#1000,BCSR 
a#TSTLOC,R1 
HITMIS ,RECDAT 
yearend 


1 
+45 


@#TSTLOC+8192. ,R1 


HITMIS ,RECDAT 
#BITO2,RECCAT 


2s 

+45 

SLOCOO, 0#114 
#1000,BCSR 
TST6 

MSER, R3 


shave done enough inclusive passes? 
; not yet 


3; de aid 
:;G0 TO Next Test 


sSAVE CONTENTS OF VECTOR 114 

sSETUP PARITY VECTOR TO POINT TO HANDLER 
sWRITE TEST LOCATION WITH PATTERN 1 
sSET CCR BITS<3:2> = 0,1 

sWRITE TEST LOCATION WITH PATTERN 2 
sCLEAR CCR BIT 3 AND SET PARITY ABORTS 
sDISABLE HALT ON BREAK 

sREAD TEST ADDRESS 

sSTORE REGISTER 

eee REGISTER BIT 1 NOT SET 

i 

sERROR IN RECORDING HITS IN HIT/MISS 
sREAD TEST LOCATION + 20000(8) 

sSTORE REGISTER 

—_—" REGISTER BIT 1 SET 


sERROR IN RECORDING HITS IN HIT/MISS 
;RESTORE VECTOR 114 
sENABLE HALT ON BREAK 

+;GO TO NEXT TEST 


sSAVE CONTENTS OF MEMORY SYSTEM ERROR 
sREGISTER AND RETURN 


we ee ee 


| COKDADO KDJ11-B CLUSTER DIAG. 
TEST - HIT/MISS REGISTER TEST 


105412 
16700 105414 
16701 105416 
16702 105422 
16703 105424 
16704 105426 
16705 105430 
16706 105432 
16707 105436 
16708 105444 
16709 105450 
16710 105454 
16711 105460 
16712 105466 
16713 105474 
16714 105476 
16715 105502 
16716 105506 
16717 105512 
16718 105514 


000004 
000240 
005737 
001002 
000240 
000511 
000240 
005037 
013737 
012703 
012704 
012705 
042737 
023727 
001440 
012702 
012700 
012701 
012021 
077202 


003032 





J7 
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001162 


177520 
000007 


-SBTTL TEST - HIT/MISS REGISTER TEST 

sHIT/MISS REGISTER TEST - THIS TEST WILL VERIFY THAT THE HIT/MISS 
sREGISTER CORRECTLY LOGS CACHE HITS AND MISSES. IT WILL ALSO VERIFY 
; THAT EACH BIT OF THE REGISTER IS UNIQUE. THIS WILL BE DONE BY 
sFLOATING A ZERO THROUGH A FIELD OF ONES. THE ROTATING WILL BE DONE 
sBY EXECUTING A TST @@HM CWHERE HM IS THE ADDRESS OF THE HIT/MISS 
sREGISTER) AT SUCCESSIVE POSITIONS IN A SET OF EIGHT NOPS. THE READ 
;OF THE I/0 PAGE ADDRESS OF THE HIT/MISS REGISTER SHOULD CAUSE A 
sMISS TO BE RECORDED. 


: 
;BGNTST 

s INITIALIZE LOOP INDICATOR 

sINITIALIZE EXPECTED DATA 

;D0 UNTIL LOOP INDICATOR = SEVEN 

3. PUT BACKGROUND DATA INTO EXECUTION BUFFER 
fie PUT TST INSTRUCTION INTO TEST LOCATION 

is JUMP TO EXECUTE BUFFER 

e IF EXPECTED DATA NE RECEIVED DATA THEN 

3 5 ERROR IN RECORDING HITS IN HIT/MISS 
Fy ENDIF 

3 


INCREMENT LOOP INDICATOR 
° UPDATE EXPECTED DATA 
;ENDDO 


sEXIT TST 
; 
sBACKGROUND DATA:NOP 


Zz z 
3 


MOV ri, 


5 
sENDTST 
5 RRR EEE eee AEE EERE EEE EEE EEE EEE EEE EE EEE EEE EEE EEEEEE EEE EES 


TST6: SCOPE 


NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ not yet 
NOP ag aid 
BR TST7 3;GO0 TO NEXT T ST 
99$: NOP 
CLR LOOPIN sINITIALIZE LOOP INDICATOR 


MOV @eTSTLOC+20022, $TMP1 sSAVE FOR LATER 
MOV #TSTLOC+2,R3 sGET ADDRESS OF EXECUTION BUFFER 
MOV @EXPTBL ,R4 ;GET ADDRESS OF EXPECTED DATA TABLE 
MOV @HITMIS,RS ;PUT ADDRESS OF HIT/MISS REGISTER IN GPR 
BIC #1000,BCSR ;DISABLE HALT ON BREAK 
1$: CMP LOOPIN, #7 300 UNTIL LOOP INDICATOR EQUALS 7 
BEQ ENDHRT ; THEN EXIT 


MOV #13, R2 
MOV @BACDAT ,RO sPUT BACKGROUND DATA INTO 
sEXECUTION BUFFER 


MOV #TSTLOC,R1 
2s: MOV C(RO)+, (CRid+ 
;LOOP FOR TEN WORDS 


SOB R2, es 











SEQ 0294 





COKDADO KDJ11-B CLUSTER DIAG. 
TEST - HIT/MISS REGISTER TEST 


16719 105516 


16753 105646 
16754 105650 


023727 


052737 
000422 


000240 
000240 


003154 
001162 
005737 
177752 
003162 
114150 


001124 


003154 


001000 


114150 


MACRO YOS.02 


000006 
023204 


177520 


3$: 
4$: 


S$: 


ENDHRT : 


BACDAT: . 


EXPTBL: . 
oW 





K7 
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LOOPIN, #6 :I1S THIS LAST LOOP 
3$ ;IF YES THEN 
| ala tata tincie ee FETCH OF “RECDAT” 
sEL 
#5737, (CR3)+ sMOVE “TST” INSTRUCTION TO BUFFER 
#HITMIS, CR3) ;sMOVE HIT.MISS REG. ADD. TO BUFFER 
PC, TSTLOC ;GO EXECUTE TEST CODE 
(R4), RECDAT ;IF EXPECTED DATA NOT EQUAL TO 
S$ sRECEIVED DATA THEN 
CR4),$GDDAT ;SAVE EXPECTED PATTERN 
417 sERROR IN RECORDING HITS IN HIT/MISS 
CR4)+ s INCREMENT POINTER TO EXPECTED PATTERN 
ie s INCREMENT LOOP COUNTER 
#1000,BCSR sENABLE HALT ON BREAK 
TST7 3:;GO TO NEXT TEST 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 


sSAVE CONTENTS OF HIT/MISS REGISTER 


SEQ 0295 











———-- = 
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SEQ 0296 
TEST - BYTE ALLOCATION TEST 
16757 -SBTTL TEST - BYTE ALLOCATION TEST 
16758 sBYTE ALLOCATION TEST - THIS TEST WILL VERIFY THAT THE CACHE SYSTEM CORRECTLY 
16759 sHANDLES BYTE ACCESSES. THE TEST WILL FIRST CHECK THAT A WRITE ACCESS WHICH 
16760 sIS A MISS DOES NOT UPDATE THE CACHE. THIS WILL BE DONE BY FIRST ASSURRING 
16761 sA MISS AT A TEST LOCATION. THEN A WRITE BYTE ACCESS WILL BE DONE. FINALLY 
16762 sTHE LOCATION WILL BE READ. THE WRITE BYTE SHOULD NOT FAVE ALLOCATED THE 
16763 sADDRESS. NEXT THE TEST WILL VERIFY THAT IF A WRITE BYTE ACCESS IS A HIT 
16764 sTHAT THE CACHE LOCATION IS UPDATED. THE TEST WILL FIRST WRITE A TEST LOCATION 
16765 sWITH A PATTERN TO ALLOCATE THE ADDRESS. THEN A SECOND PATTERN WILL BE WRITTEN 
16766 sTO THE HIGH BYTE OF THE TEST LOCATION. THE TEST LOCATION WILL THEN BE READ. 
16767 sIF THE HIGH BYTE OF THE TEST LOCATION IS EQUAL TO THE SECOND PATTERN THEN THE 
16768 sLOCATION WAS UPDATED. THE SECOND TEST WILL BE REPEATED TO TEST LOW BYTE 
16769 sACCESSES. 
16770 ; 
16771 sBGNTST 
16772 sSAVE VECTOR 114 
16773 sLET VECTOR 114 POINT TO BYTE PARITY ROUTINE 
16774 sSET PARITY ABORT BIT IN CACHE CONTROL REGISTER 
16775 sREAD TEST LOCATION + 4K 
16776 sWRITE LOW BYTE TO TEST ADDRESS 
16777 sREAD LOW BYTE OF TEST ADDRESS 
16778 sIF HIT/MISS REGISTER BIT 1 SET THEN 
16779 i. ERROR WRITE BYTE ALLOCATES THE CACHE 
16780 sENDIF 
16781 sWRITE PATTERN 1 TO TEST LOCATION 
16762 sWRITE BYTE PATTERN 2 TO TEST LOCATION+1 
16783 sIF BIT1 NOTSETIN HIT/MISS REGISTER THEN 
16784 i. IF BO PARITY ERROR THEN 
16785 $- , ERROR LOW BYTE PARITY ERROR ON WRITE BYTE HIT 
16786 ie ELSE 
16787 ie . IF B1 PARITY ERROR THEN 
16788 i. ; ERROR HIGH BYTE PARITY ERROR ON WRITE BYTE HIT 
16789 i. ELSE 
16790 i. . ; WRITE BYTE HIT DOES NOT RECORD A HIT 
16791 i. ° ENDIF 
16792 i. ENDIF 
16793 sELSE 
16794 3. READ TEST LOCATION 
16795 i. IF RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN 
16796 i. . IF BYTE DATA REVERSED THEN 
16797 i. ° ERROR BYTES REVERSED ON WRITE CYCLES 
16798 $e ELSE 
16799 i. . . IF HIGH BYTE DATA ZERO THEN 
16800 S. : ; , ERROR IN WRITING TO HIGH BYTE 
16801 i. . ° ELSE 
16802 i. . . , ERROR IN WRITING TO HIGH BYTE 
16803 i. . ° ENDIF 
163804 i. ; ENDIF 
16805 3 ENDIF 
16806 sENDIF 
16807 sWRITE PATTERN 1 TO TEST LOCATION 
16808 sWRITE BYTE PATTERN 2 TO TEST LOCATION LOW BYTE 
16809 sIF BIT1 NOTSETIN HIT/MISS REGISTER THEN 
16810 i. IF BO PARITY ERROR THEN 
16811 i. . ERROR LOW BYTE PARITY 
16812 i. ELSE 
. IF B81 PARITY ERROR THEN 


| 16813 i. 





' 
|. 
‘ Se a —— 








TEST 








COKDADO KDJ11-8 CLUSTER DIAG. 
- BYTE ALLOCATION TEST 


003032 





M7 
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. ° ERROR HIGH BYTE PRITY 


Se 

$s ELSE 

Ss ‘ . WRITE BYTE HIT DOES NOT RECORD A HIT 
Se » ENDIF 

Se ENDIF 

sELSE 

ts READ TEST LOCATION 

i. ” RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN 
i. IF BYTE DATA REVERSED THEN 

Ss ERROR BYTES REVERSED 

ts ELSE 

Bie - IF LOW BYTE DATA ZERO THEN 

Ss ERROR IN DATA PATH 

Be ELSE 

be ‘ ‘ ERROR IN DATA PATH 

te i , ENDIF 

Be ‘ ENDIF 

Se ENDIF 

s ENDIF 


sCLEAR CACHE CONTROL REGISTER 
sRESTORE VECTOR 114 


sEXIT TST 
; 
sBYTE PARITY ROUTINE: SAVE MSER 
; RETURN 
sENDTST 
PCI i iit irr rrr rrr rrr rrr rrr iii r iri rir it iti tit titi iii iy) 
TST7 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ s not yet 
NOP F +s aid 
BR TST10 33GO TO NEXT TEST 
99%: NOP 
003012 MOV 8114, SLOCOO sSAVE VECTOR 114 
000114 MOV OBYPARR , 80114 sLET VECTOR 114 POINT TO ABORT ROUTINE 
CLR R3 sCLEAR MSER SAVE REGISTER 
177746 MOV @BITO7, CCR sSET PARITY ABORT BIT IN CCR 
TST TSTLOC+8192. sREAD TEST LOCATION + 4K TO CAUSE MISS 
177520 BIC #1000,BCSR sDISABLE HALT ON BREAK 
CLRB TSTLOC sWRITE LOW BYTE OF TEST LOCATION 
TSTB TSTLOC sREAD LOW BYTE OF TEST LOCATION 
114150 MOV HITMIS ,RECDAT sSTORE REGISTER 
114150 BIT @BITO2,RECDAT ;IF BIT1 OF HIT/MISS REGISTER SET 
BEQ i$ ; THEN 
ERROR +20 sWRITE BYTE ALLOCATES CACHE 
1$: CLR TSTLOC s;sWRITE PATTERN 1 TO TEST LOCATION 
003163 BISB 0377,  @a#@TSTLOC+1 ;WRITE PATTERN 2 TO HIGH BYTE 
114150 MOV HITMIS ,RECDAT sSTORE REGISTER 
114150 BIT @BITO2,RECDAT sIF BIT1 NOTSETIN HIT/MISS REGISTER 
BNE 2s 3 THEN ; 
101$: —— i — BYTE HIT DOES NOT RECORD HIT 
sEL 
003162 2%: CMP #177400, a@TSTLOC 3;IF TEST LOCATION NOT EQUAL TO 
BEQ 3$ sPATTERN 2 THEN 
ERROR +22 ;BYTES REVERSED ON WRITE CYCLES 











SEQ 0297 





N7 
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SEQ 0298 

TEST - BYTE ALLOCATION TEST 

16870 106026 005037 003162 3$: CLR TSTLOC sWRITE PATTERN 1 TO TEST LOCATION 

16871 106032 152737 000377 003162 BISB 0377, &@@TSTLOC sWRITE PATTERN 2 TO LOW BYTE 

16872 106040 013737 177752 114150 MOV HITMIS ,RECDAT sSTORE REGISTER 

16873 106046 032737 000004 114150 BIT #BIT02,RECDAT sIF BIT1 NOTSETIN HIT/MISS REGISTER 

16874 106054 001001 BNE as 3 THEN 

16875 106056 104012 ERROR +12 sLOW BYTE PARITY ERROR ON WRITE BYTE HIT 

16876 106060 022737 000377 003162 4%: CMP #377, $@@TSTLOC sIF TEST LOCATION NOT EQUAL TO 

16877 106066 001401 BEQ S$ sPATTERN 2 THEN 

16878 106070 104022 ERROR +22 sBYTES REVERSED ON WRITE CYCLES 

16879 106072 005037 177746 S$: CLR CCR sCLEAR CCR BEFORE EXIT 

16880 106076 052737 001000 177520 BIS #1000, BCSR sENABLE HALT ON BREAK 

16861 106104 013737 003012 000114 MOV SLOCOO, 90114 sRESTORE VECTOR 114 

16882 106112 000405 BR TST10 33GO TO NEXT TEST 

reese 

16885 106114 011637 001122 BYPARR: MOV (SP), $BDADR sSAVE ADDRESS THAT CAUSE ABORT 

16886 106120 013703 177744 MOV MSER,  R3 SAVE CONTENTS OF MSER 

ered 106124 000002 RTI sRETURN 


COKDADO KDJ11-8 CLUSTER DIAG. 
- POR BITIS (BYPASS) TEST 


TEST 








012737 
052737 


003032 


136574 
003162 
177777 001124 
100000 172300 
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SEQ 0299 


-SBTTL TEST - POR BITIS (BYPASS) TEST 

sPOR BIT1S (BYPASS) TEST - THIS TEST WILL VERIFY THAT WHEN BIT<15> IS SET 

sIN A POR AND AN ACCESS IS MADE TO A LOCATION MAPPED BY THE SELECTED POR 

sTHAT WOULD NORMALLY CAUSE A CACHE ACCESS, THE CACHE IS BYPASSED (I.E. THE 
sCACHE LOCATION IS INVALIDATED AND A MAIN MEMORY IS READ. THIS WILL BE DONE 
sBY FIRST WRITING A TEST LOCATION WITH A KNOWN PATTERN TO ALLOCATE THE ADDRESS. 
sTHEN THE LOCATION WILL BE WRITTEN AGAIN WITH THE MMU ENABLED AND BIT <15> SET 
sIN THE CONTROLING POR WITH A NEW PATTERN. THE LOCATION WILL THEN BE READ 

sAND A MISS SHOULD BE LOGGED IN THE HIT/MISS REGISTER. THIS READ WILL ALSO 
sBRING VALID DATA INTO CACHE FROM MEMORY. THE MMU WILL AGAIN BE ENABLED 

sWITH BIT <15> SET AND A READ CYCLE DONE. THIS SHOULD INVALIDATE THE CACHE. 
sNEXT THE MMU WILL BE DISABLED AND THE LOCATION READ FOR A THIRD TIME. THIS 
sWILL BE DONE WITH BIT<15> STILL SET. A MISS SHOULD ALSO BE LOGGED. LASTLY 
sBIT<15> WILL BE CLEARED AND THE MMU ENABLED AND THE LOCATION AGAIN READ. 
sTHIS TIME A CACHE HIT SHOULD BE LOGGED. 

H 


3 
sBGNTST 

sSETUP MMU REGISTERS 

sWRITE TEST LOCATION WITH PATTERN 1 

;SET BIT<15> IN POR FOR TEST LOCATION 

sENABLE MMU 

sWRITE TEST LOCATION WITH PATTERN 2 

;DISABLE MMU AND CLEAR BIT<15> IN POR 

sREAD TEST LOCATION 

3IF HIT/MISS REGISTER BIT<1> SET THEN 

Px ERROR CONDITIONAL BYPASS DOESN'T INVALIDATE CACHE 


sENDIF 

3SET BIT<15> IN POR FOR TEST LOCATION 

sENABLE MMU 

sREAD TEST LOCATION (SHOULD INVALIDATE CACHE) 

sDISABLE MMU 

sREAD TEST LOCATION 

IF HIT/MISS REGISTER BIT<1> SET THEN 

3. ERROR CONDITIONAL BYPASS DOESN'T INVALIDATE CACHE 


3;ENDIF 

sCLEAR BIT<15> IN POR 

3TURN ON MMU 

;READ TEST LOCATION 

3;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
—_ ERROR IN RECORDING HITS IN HIT/MISS 
3 


sTURN OFF MMU 
sENDTST 


i 
fj EPSRSSSEAESERESESESEESSSSSSSSEESSSESES ESE RASES ERASE EESESE SEES 
TST10: SCOPE 

NOP 


TST CCHPAS shave done enough inclusive passes? 
BNE 99$ s not yet 
NOP F on aid 
BR TST11 33GO TO NEXT TEST 

99$: NOP 
JSR PC, INITMM ;SETUP MEMORY MANAGEMEMT REGISTERS 
CLR a¢TSTLOC sWRITE TEST LOCATION WITH PATTERN 1 
MOV #177777, $GDDAT ;SAVE DATA IN MEMORY 
BIS #BIT15, KIPDRO ;SET BIT1S IN POR FOR TEST LOCATION 














COKDADO KDJ11-B CLUSTER DIAG. 


TEST - POR BITIS (BYPASS) TEST 


16972 106354 042737 
16973 106362 052737 


177572 
177777 


177572 
003162 
177752 
000004 


000001 
001000 





C8 
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003162 


172300 
177520 


114150 
114150 
172300 
172300 
114150 
114150 
114150 
114150 


177572 
177520 


2s: 


3$: 


4$: 


SRO 
0177777, @@TSTLOC 
SRO 


#BIT15, KIPDRO 
#1000 ,BCSR 
@eTSTLOC,R1 
HITMIS ,RECDAT 
ine atmaateee 


+23 
#BIT1S, KIPDRO 
SRO 


TSTLOC 

#BIT15, KIPDRO 
SRO 
@eTSTLOC,R1 
HITMIS ,RECDAT 
ee 


+23 

SRO 

@eTSTLOC 
HITMIS ,RECDAT 
+ tec 


+45 
#BITOO, SRO 
#1000,BCSR 


SEQ 0300 


sTURN ON MEMORY MANAGEMENT 

sWRITE TEST LOCATION WITH PATTERN 2 

s TURN OFF MEMORY MANAGEMENT 

sCLEAR BIT1S IN POR FOR TEST LOCATION 
sDISABLE HALT ON BREAK 

sREAD TEST LOCATION 

sSAVE HIT/MISS REGISTER 

— REGISTER BIT 1 SET 

’ 

sCONDITIONAL BYPASS DOESN'T INVALIDATE CACHE 
sSET BIT1S IN POR FOR TEST LOCATION 
sTURN ON MEMORY MANAGEMENT 

sREAD TEST LOCATION 

sCLEAR BIT 15 IN POR 

sTURN OFF MMU 

sREAD TEST LOCATION 

sSTORE HIT/MISS TO REGISTER 2 

sIF HIT/MISS REGISTER BIT 1 SET 


3 THEN 

sCONDITIONAL BYPASS DOESN’ T INVALIDATE O CACHE 
;TURN ON MEMORY MANAGEMENT 

sREAD TEST LOCATION ONE MORE TIME 

sSTORE HIT/MISS TO REGISTER 2 

— REGISTER BIT 1 NOT SET 

3 

sERROR IN RECORDING HITS IN HIT/MISS 

;TURN OFF MMU 

sENABLE HALT ON BREAK 





— 


D8 
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SEQ 0 
TEST - FLUSH CACHE TEST _ 
16976 -SBTTL TEST - FLUSH CACHE TEST 
16977 sFLUSH CACHE TEST - THIS TEST WILL VERIFY THAT WHEN CCR BIT<8> IS 
16978 sSET, THE ENTIRE CACHE IS INVALIDATED. FIRST 8K BYTES OF ADDRESSES 
16979 sWILL BE READ TO ALLOCATE CACHE. THEN THE CACHE WILL BE FLUSHED. 
16980 ;THE SAME SET OF ADDRESS WILL THEN BE READ AND THE HIT/MISS REGISTER 
ptee) ;CHECKED AFTER EACH READ FOR A MISS TO BE LOGGED. 
; 

16983 ;BGNTST 
16984 ;GET FIRST ADDRESS OF 8KB BUFFER 
16985 sINITIALIZE LOOP COUNTER TO 4KWORD COUNT 
16986 300 UNTIL LOOP COUNTER = 0 
16987 a. READ @ADDRESS+ 
16988 ;ENDDO 
16989 ;GET FIRST ADDRESS OF 8KB BUFFER 
16990 sINITIALIZE LOOP COUNTER TO 2KWORD COUNT 
16991 sINITIALIZE MISS COUNT TO 4KWORD COUNT 
16992 ;FLUSH CACHE 
16993 ;D0 UNTIL LOOP COUNTER = 0 
16994 $. READ @ADDRESS+ 
16995 Se ICREMENT ADDRESS TO READ EVERY 2WORDS 
16996 Be IF HIT/MISS REGISTER BIT<1> SET THEN 
16997 $. ‘ DECREMENT MISS COUNT 
16998 F ENDIF 
16999 ;ENDDO 
17000 ;GET FIRST ADDRESS OF 8KB BUFFER 
17001 sINITIALIZE LOOP COUNTER TO 4KWORD COUNT 
17002 ;D0 UNTIL LOOP COUNTER = 0 
17003 $. READ @ADDRESS+ 
17004 ;ENDDO 
17005 ;GET LAST ADDRESS OF 8KB BUFFER 
17006 sINITIALIZE LOOP COUNTER TO 2KWORD COUNT 
17007 ;FLUSH CACHE 
17008 we UNTIL LOOP COUNTER = 0 
17009 READ @ADDRESS- 
17010 . DECREMENT ADDRESS TO READ EVERY 2WORDS 
17011 i. IF HIT/MISS REGISTER BIT<1> SET THEN 
17012 be . DECREMENT MISS COUNT 
17013 3. ENDIF 
17014 ;ENDDO 
17015 ;IF MISS COUNT NOT EQUAL TO 4096. THEN 
17016 3. ERROR HITS RECORDED AFTER FLUSHING CACHE 
17017 ; ENDIF 
17018 sENDTST 
17019 ; 
17020 PWeriiiiiiiiiiiiiiiiii it iiiiiiiiiititititiiiittititt tit tttt ttt ttt 

106370 000004 TST11: SCOPE 
17021 106372 000240 NOP 
17022 106374 005737 003032 TST CCHPAS shave done enough inclusive passes? 
17023 106400 001002 BNE 99$ not yet 
17024 106402 000240 NOP ge aid 
17025 106404 000517 BR TST12 3:GO0 TO NEXT T ST 
17026 106406 000240 99$: NOP 
17027 106410 004737 136574 JSR eC. INI IMM sINITIALIZE MMU 
17028 106414 012737 001600 172354 MOV #1600 , KIPAR6 ;LET PAR6 POINT TO LOW 28K 
17029 106422 012701 140000 MOV #140000 ,R1 ;GET ADDRESS OF 8K BYTE BUFFER 
17030 106426 005237 177572 INC SRO ;ENABLE MMU 


j 17031 106432 012702 010000 MOV #4096., R2 ;INIT LOOP COUNTER TO 4K WORD COUNT 
' 











‘ 
-_-—-- 
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TEST - 


FLUSH CACHE TEST 


005721 
077202 
012701 
012702 
012703 
012737 
042737 
005721 
013737 
032737 
001401 
005303 
062701 
077214 
052737 
012702 
012701 
005721 
077202 
012702 
012701 
012737 
042737 
005741 
013737 
032737 
001401 
005303 
162701 
077214 
052737 
005037 
022703 
001401 
104024 


000400 


177752 
000004 


000002 


001000 
177572 
010000 
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177746 
177520 


114150 
114150 


177520 


177746 
177520 


114150 
114150 


177520 


1$: 


2s: 


3$: 


4$: 


S$: 


6$: 


8$: 








E8 


@PHITMIS ,RECDAT 
#BITO2,RECDAT 


@PHITMIS ,RECDAT 
#BITO2,RECDAT 
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SEQ 0302 


;READ ADDRESS TO ALLOCATE CACHE 

300 UNTIL ALL LOCATIONS ALLOCATED 
sGET ADDRESS OF 8K BYTE BUFFER 
sINIT LOOP COUNTER TO 2K WORD COUNT 
sINITIALIZE MISS COUNT TO 4K 

sFLUSH CACHE 

sDISABLE HALT ON BREAK 

sREAD ADDRESS 

sSTORE REGISTER 

;IF HIT/MISS REGISTER NOT EQUAL 

:T0 ZERO THEN 

sDECREMENT MISS COUNT 

3:00 IN 2 WORD INCREMENTS (PMI MEMORY) 
;LOOP UNTIL ENTIRE CACHE CHECKED 
sENABLE HALT ON BREAK 

;D0 FOR 4K 

sSTARTING WITH 0 

sALLOCATE IN CACHE 

;D0 FOR 4K 

;D0 FOR THE 2ND HALF 

sSTART WITH LAST LOCATION 

sFLUSH CACHE 

;sDISABLE HALT ON BREAK 

sREAD ADDRESS 

sSTORE REGISTER 

;IF HIT/MISS REGISTER NOT EQUAL 

:T0 ZERO THEN 

;DECREMENT MISS COUNT 

;D0 IN 2 WORD DECREMENTS 

:D0 FOR 2K WORDS 

sENABLE HALT ON BREAK 

;TURN OFF MMU 

— COUNT NOT EQUAL TO 4K WORDS 
3 

sHITS RECORDED AFTER FLUSHING CACHE 


::;GO TO NEXT TEST 


-—-—— 





COKDADO KDJ11-B CLUSTER DIAG. 
TEST - UNCONDITIONAL BYPASS TEST 


17070 
17071 
17072 
17073 


106644 
106646 
106650 
106654 
106656 
106660 
106662 


106664 
106670 
106674 
106702 
106710 
106714 
106722 
106730 
106732 
106734 
106740 


000004 
000240 
005737 
001002 
000240 
000471 
000240 


005737 
005737 
052737 
042737 
005737 
013737 
032737 
001001 
104045 
005037 
013737 


003032 


003164 
177752 





F8 
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177746 
177520 


114150 
114150 


114150 


SEQ 0303 
-SBTTL TEST - UNCONDITIONAL BYPASS TEST 
sUNCONDITIONAL BYPASS TEST - THIS TEST WILL VERIFY THAT WHEN CCR 
s;BIT<9> IS SET, A MEMORY REFERENCE IS FORCED TO MAIN MEMORY. THIS 
sWILL ALSO VERIFY THAT READ AND WRITE HIT INVALIDATE THE CACHE 
sLOCATIONS WHEN BYPASS IS SET. 
; 
3 
;BGNTST 
$ 
sREAD TEST LOCATIONS TO SETUP POSSIBILITY OF HIT 
;SET CCR BIT<9> 
F 
sREAD FIRST TEST LOCATION 
:IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
Be ERROR IN RECORDING HITS IN HIT/MISS 
; ENDIF 
H 
;WRITE SECOND TEST LOCATION 
;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
Hs ERROR IN RECORDING HITS IN HIT/MISS 
ENDIF 
;CLEAR CCR BIT<9> 
; 
;READ FIRST LOCATION 
;IF HIT/MISS REGISTER BIT<1i> SET THEN 
bs ERROR BYPASS DOESN'T INVALIDATE CACHE 
;ENDIF 
: 
sREAD SECOND LOCATION 
;IF HIT/MISS REGISTER BIT<1i> SET THEN 
is ERROR BYPASS DOESN'T INVALIDATE CACHE 
;ENDIF 
F 
sENDTST 
H 
H 
5 ERR REAR ERE AREER EERE EERE ER EREREREEREEEREEEEEEEEEREEEEEEEERE 
TST1i2: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ s not yet 
NOP 3 —< aid 
BR TST13 3;GO TO NEXT TEST 
99$: NOP 
TST a#TSTLOC sALLOCATE FIRST TEST LOCATION 
TST a¢TSTLOC+2 sALLOCATE SECOND TEST LOCATION 
BIS #BITO9, CCR sSET CCR BIT 9 (CACHE BYPASS) 
1$: BIC #1000,BCSR ;DISABLE HALT ON BREAK 
TST a¢TSTLOC ;READ FIRST TEST LOCATION 
MOV HITMIS,RECDAT ;STORE HIT/MISS TO REGISTER 2 
BIT #BITO2,RECDAT sIF HIT/MISS REG. BIT 1 NOT SET 
BNE 2$ ; THEN 
ERROR +45 sERROR IN RECORDING HITS IN HIT/MISS WITH CCR<9>=] 


sWRITE SECOND LOCATI 


CLR aeTSTLOC+2 ON 
sSTORE HIT/MISS TO REGISTER 2 


MOV HITMIS,RECDAT 











COKDADO K0J11-B CLUSTER DIAG. 
TEST - UNCONDITIONAL BYPASS TEST 


17140 107036 052737 


000004 114150 


003162 
177752 
000004 


003164 
177752 
000004 


001000 
001000 


MACRO YOS.02 


114150 
114150 


114150 
114150 


177746 
177520 





3$: 


4$: 


S$: 


.68 
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BIT oe 


ERROR +45 

TST aeTSTLOC 

MOV HITMIS ,RECDAT 
BIT > (elena 


ERROR +25 
CLR @eTSTLOC+2 
MOV HITMIS ,RECDAT 


BIT #BITO2,RECDAT 
BEQ S$ 
ERROR +25 


BIC #BITO9,CCR 
BIS #1000 ,BCSR 


SEQ 0304 


— REG. BIT 1 NOT SET 


sERROR IN RECORDING HITS IN HIT/MISS WITH CCCR<9>=] 
sREAD FIRST TEST LOCATION 
;STORE HIT/MISS TO REGISTER 2 
;IF HIT/MISS REG. BIT 1 SET 
3; THEN 
sBYPASS DOESN’T INVALIDATE CACHE 
;WRITE SECOND LOCATION 
sSTORE HIT/MISS TO REGISTER 2 
— REG. BIT 1 SET 
: 
;BYPASS DOESN'T INVALIDATE CACHE 
sRESTORE CCR 
sENABLE HALT ON BREAK 
a 


‘ 
= 





H8 
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TEST - WRITE WRONG DATA PARITY TEST 


17143 
17144 
17145 
17146 
17147 
17146 
17149 
17150 
17151 
17152 
17153 
17154 
17155 
17156 
17157 
17158 
17159 
17160 
17161 
17162 
17163 
17164 
17165 
17166 
17167 
17168 
17169 
17170 
17171 





-SBTTL TEST - WRITE WRONG DATA PARITY TEST 

sWRITE WRONG DATA PARITY TEST - THIS TEST WILL VERIFY THAT WHEN CCR 
sBIT<6> = 1 AND CCR BITS<7,0> = 0,1, A READ MISS OCCURS AFTER A 
;WRITE. THE WRITE WITH CCR BIT<6> = 1 TO A LOCATION WILL CAUSE A 
;CACHE UPDATE AND WRONG PARITY TO BE WRITTEN SO WHEN THE LOCATION 
:IS READ INSTEAD OF A HIT BEING RECORDED THE CACHE PARITY ERROR 
s;WILL CAUSE A CACHE MISS. THIS TEST WILL BE DONE A BYTE AT A TIME. 


; 

sBGNTST 

s;SAVE CONTENTS OF VECTOR 114 

sLET VECTOR 114 POINT TO ABORT ROUTINE 

;CLEAR MSER 

IF MSER NOT CLEAR THEN 

— ERROR MSER DOESN'T CLEAR ON WRITE REFERENCE 
: 


sWRITE TEST LOCATION 

;SET BITS<6,0> IN CCR 

s;WRITE TEST LOCATION LOW BYTE 

;CLEAR CCR BIT<6> CWRITE WRONG DATA PARITY) 

sINITIALIZE ERROR INDICATORS 

sREAD TEST LOCATION LOW BYTE 

- BIT<1> SET IN HIT/MISS REGISTER THEN 
PARITY ERROR DOESN'T CAUSE MISS 


FELSE 

fis IF MSER BITS <7:5> ZERO THEN 

$e ‘ - PARITY ERROR DOESN'T SET MSER PROPERLY 
3 L 

Bs ; SET ERROR IN LOW BYTE INDICATOR 

F ENDIF 

is ENDIF 

;ENDIF 


;CLEAR MSER 
;IF MSER _ CLEAR THEN 
Ss ERROR MSER DOESN'T CLEAR ON WRITE REFERENCE 


;ENDIF 

iSET CCR BIT<6> 

;WRITE TEST LOCATION HIGH BYTE 

;CLEAR CCR BIT<6> 

;READ TEST LOCATION HIGH BYTE 

;IF BIT<1> SET IN HIT/MISS REGISTER THEN 

“— IF MSER BITS<7:5> NOT SET THEN 

. PARITY ERROR DOESN'T CAUSE A MISS 


H . 

3 ELSE 

ks ; SET ERROR IN HIGH BYTE INDICATOR 
Be ENDIF 

;ELSE 

Pa IF MSER BITS <7:5> ZERO THEN 

Be ‘ PARITY ERROR DOESN'T SET MSER 

Be ENDIF 

;ENDIF 


sRESTORE CONTENTS OF VECTOR 114 
;IF ERROR INDICATORS SET THEN 


i. IF ERROR IN BOTH BYTES THEN 

i. ° PARITY ERROR IGNORED 

i- ELSE 

3. ° IF ERROR IN LOW BYTE THEN 


i. . LOW BYTE PARITY ERROR IGNORED 





SEQ 0305 


oe A 


o— 





KDJ11-B CLUSTER DIAG. 
WRITE WRONG DATA PARITY TEST 


1 
107302 


003032 


000114 
107350 
177744 
177744 


003162 
001000 
000101 
000377 
000100 


003162 
177752 
000004 


000340 


177744 
177744 


000340 


MACRO YOS.02 


003012 
000114 


177520 
177746 
003162 
177746 


177744 


177746 
003163 
177746 


114150 
114150 


177744 





sEXIT TST 





18 


ELSE 
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SEQ 0306 


HIGH BYTE PARITY ERROR IGNORED 


i 
sDATA PARITY ABORT ROUTINE: 


i 
sENDTST 


ILLEGAL PARITY INTERRUPT 
RETURN 


§ 5 EEEEEEEEEEEEEEEEKEEEEEEEREEEREREEEERESEEEEEEEEEEEEEEREEEEESESEEEE 


TST13: SCOPE 


99%: NOP 


1$: CLR 


2s: BIT 


3$: CLR 


4$: BIS 


S$: BIT 


CCHPAS 

995 

TST1i4 

9#114, SLOCOO 
#DAPABO , #114 
MSER 

MSER 

1$ 

+26 

a¢TSTLOC 
#1000,BCSR 
#101, CCR 
#377, TSTLOC 
#BITO6, CCR 
R2 

aéTSTLOC 
HITMIS, R3 
#BITO2, R3 

2$ 

+27 

3$ 

#340, MSER 
3$ 

+30 

MSER 

MSER 

4$ 

+26 

#BITO06, CCR 
#377, O#TSTLOC+1 
#BITO6, CCR 
@e¢TSTLOC+1 
HITMIS ,RECDAT 
#BITO2,RECDAT 
5$ 

27 

6$ 

#340, MSER 
6$ 

+30 





shave done enough inclusive passes? 
; not yet 


; de aid 
::GO TO hext test 


sSAVE CONTENTS OF VECTOR 114 

sLET VECTOR POINT TO ABORT ROUTINE 
sCLEAR MSER 

;IF MSER NOT CLEAR 

THEN 


‘ 

sMSER DOES NOT CLEAR ON WRITE REFERENCE 
sWRITE TEST LOCATION TO ALLOCATE CACHE 
sDISABLE HALT ON BREAK 

sSET BITS<6,0> IN CCR 

sWRITE LOW BYTE WITH BAD PARITY 

sCLEAR WRITE WRONG DATA PARITY BIT 
sCLEAR ERROR INDICATORS 

sREAD LOW BYTE OF TEST LOCATION 

sSAVE HIT/MISS 

sIF BIT 1 SET IN HIT/MISS REGISTER 


3; THEN 

a Na ERROR DON'T CAUSE A MISS 
: 

;IF MSER BIT<7:5> NOT ZERO 

3; THEN 


sPARITY ERROR DON'T SET MSER WITH CCR<7>=0 
;CLEAR MSER 

;IF MSER NOT CLEAR 

3; THEN 

sMSER DOES NOT CLEAR ON WRITE REFERENCE 
;SET CCR BIT 6 CWRITE WRONG PARITY) 
;WRITE HIGH BYTE OF TEST LOCATION 
;CLEAR WRITE WRONG PARITY BIT 

sREAD HIGH BYTE OF TEST LOCATION 

;SAVE HIT/MISS 

;IF BIT 1 SET IN HIT/MISS REGISTER 


; THEN 
sPARITY ERROR DON'T CAUSE A MISS 
sELSE 

sIF BITS <7:5> ZERO 


3; THEN 
;PARITY ERROR DON'T SET MSER WITH CCR<7>=0 





17256 107304 
17257 107310 
17258 107316 
17259 107322 
17260 107324 
17261 107326 
17262 107332 
17263 107340 
17264 107346 


17267 107350 
17268 107354 
17269 107356 





005037 
013737 
032702 
001401 
104031 
005037 
013737 
052737 
000404 


011637 
104007 
000002 


COKDADO KDJ11-B8 CLUSTER DIAG. 
TEST - WRITE WRONG DATA PARITY TEST 


177746 
003012 
000003 


177746 
003012 
001000 


001122 


MACRO YOS.02 


000114 


000114 
177520 


6$: 


7$: 


DAPABO: 


J8 


SLOCOO ,a#114 
#1000,BCSR 
TST14 


(SP), $BDADR 
+7 
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s;CLEAR CCR BEFORE EXIT 
sRESTORE CONTENTS OF VECTOR 114 
sIF ERROR INDICATORS SET 


3 THEN 

;PARITY ERROR IGNORED 

;CLEAR CCR 

;RESTORE PARITY TRAP 

;ENABLE HALT ON BREAK 
;3;GO TO NEXT TEST 


;SAVE ADDRESS THAT CAUSED ABORT 
;ILLEGAL PARITY INTERRUPT 


SEQ 0307 





COKDADO KDJ11-B CLUSTER DIAG. 
TEST - WRITE WRONG TAG PARITY 


17272 
17273 
17274 
17275 
17276 


107466 
107470 


003032 


MACRO YOS.02 


003012 
000114 
177520 
177746 
177746 


114150 
114150 











K8 
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SEQ 0308 


-SBTTL TEST - WRITE WRONG TAG PARITY 

sWRITE WRONG TAG PARITY - THIS TEST WILL VERIFY THAT A READ MISS 
sOCCURS AFTER A WRITE WILL CCR<10> = 1 AND CCR<7,0> = 0,1. THE WRITE 
sTO THE LOCATION WILL CAUSE A CACHE UPDATE BUT THE TAG WILL BE 
sWRITTEN WITH THE WRONG PARITY. WHEN THE LOCATION IS READ INSTEAD 
sOF A CACHE HIT OCCURRING THE PARITY ERROR SHOULD CAUSE A CACHE 


sMISS 


° 
sBGNTST 
sSAVE CONTENTS OF VECTOR 114 

sLET VECTOR 114 POINT TO ABORT ROUTINE 

sCLEAR MSER 

sSET WRITE WRONG TAG PARITY BIT<10> 

sWRITE TEST LOCATION 

sCLEAR CCR BIT<10> AND SET ABORT DISABLE BIT<0> 
sREAD TEST LOCATION 

sIF BIT<1> SET IN HIT/MISS REGISTER THEN 


;ENDIF 


IF MSER BITS <7:5> SET THEN 
hon PARITY ERROR DOESN'T CAUSE MISS 
L 


‘ PARITY ERROR DOESN'T SET MSER WITH CCR<7>=0 
ENDIF 


‘;SET WRITE WRONG TAG PARITY BIT<10> 


sWRITE TO A BYTE OF A TEST LOCATION 
sSAVE HIT/MISS REGISTER 
sCLEAR WRITE WRONG TAG PARITY BIT 


sIF BIT<1> NOT SET IN HIT/MISS REGISTER THEN 
ERROR 


;ENDIF 
sRESTORE VECTOR 114 
TST 


;EXIT 


; 
sTAG PARITY ABORT ROUTINE: 


8 
sENDTST 


TST14 


ILLEGAL PARITY INTERRUPT 
RETURN 


iddbbbibthh bhi bhdh port t piri tititititit tt ttt titi TtTtTTTTTTTT TTT TT 
SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP . ’ ee aid 
a TST15 +:GO TO NEXT TEST 


99$: 





MOV @#114, SLOCOO sSAVE CONTENTS OF VECTOR 114 

MOV #TAPABO 80114 sLET VECTOR POINT TO ABORT ROUTINE 
sDISABLE HALT ON BREAK 

CLR MSER ;CLEAR MSER 

MOV #BIT10, CCR sSET WRITE WRONG TAG PARITY 

CLR aeTSTLOC sWRITE LOCATION WITH BAD TAG PARITY 

MOV #BITOO, CCR sCLEAR BIT 10 AND SET BIT O 

TST aeTSTLOC sREAD TEST LOCATION 

MOV HITMIS,RECDAT sSAVE HIT/MISS REGISTER 


BIT #BITO2,RECDAT sIF BIT 1 SET IN HIT/MISS REGISTER 
BEQ 2s ; THEN 
ERROR +27 sPARITY ERROR DON'T CAUSE A MISS 


---— 











SEQ 0309 
TEST - WRITE WRONG TAG PARITY 


17328 107472 013737 003012 000114 2%: MOV SLOCOO, 94114 sRESTORE CONTENTS OF VECTOR 114 
17329 107500 005037 177744 CLR MSER ;CLEAR ERRORS 

17330 107504 052737 001000 177520 BIS #1000,BCSR s;ENABLE HALT ON BREAK 

17331 107512 000404 BR TST15 3;GO TO NEXT TEST 

17332 

17333 

17334 107514 011637 001122 TAPABO: MOV (SP), $BDADR ;SAVE ADDRESS THAT CAUSE ABORT 
17335 107520 104007 ERROR +7 sILLEGAL PARITY INTERRUPT 
17336 107522 000002 RTI 


: r FT ara | 
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17337 


, a a ee 
a 





COKDADO KDJ11-8 CLUSTER DIAG. 
TEST - PARITY ABORT TEST 


107524 
107526 
107530 
107534 
107536 
107540 
107542 


107544 
107552 
107560 


107566 
107572 
107574 


013737 
013737 
012737 


012704 
005724 
022704 


003032 


000114 
000004 
107676 


107566 
107676 





M8 
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003012 
003014 
000114 





-SBTTL TEST - PARITY ABORT TEST 


;PARITY ABORT TEST - THIS TEST WILL VERIFY THAT WHEN CCR<7,0> = 
31,0, AN ABORT OCCURS ON THE EXECUTION OF AN INSTRUCTION THAT HAS 


;BEEN WRITTEN WITH WRONG PARITY 
3 


F 
sBGNTST 

sSAVE VECTOR 114 

sSAVE VECTOR 4 

sLET VECTOR 114 POINT TO ABORT ROUTINE 
3LET VECTOR 4 POINT TO ERROR ROUTINE 
sCLEAR EXPECTING ABORT FLAG 

sSET CCR<10> WRITE WRONG TAG PARITY BIT 
sWRITE TEST ADDRESS 

sCLEAR CCR<10> 

sSET CCR TO #200 ENABLE PARITY ABORTS 
sSET EXPECTING ABORT FLAG 

sREAD TEST ADDRESS 

3IF ABORT FLAG NE O THEN 

3. ERROR IN PARITY ABORT LOGIC 
sENDIF 

sRESTORE VECTOR 114 

sRESTORE VECTOR 4 

3;EXIT TST 


5 

sABORT ROUTINE: IF EXPECTING ABORT FLAG NOT SET THEN 

he on ERROR NO ABORT SHOULD HAVE OCCURRED 
L 


—— CLEAR CEXPECTING) ABORT FLAG 
IF MSER NOT EQUAL TO 100040 T 

ENDIF 

IF PC = UPDATED PC THEN 

° ILLEGAL PARITY ABORT 

ENDIF 


RETURN 


sENDTST 


FF SSSSSSCSSSSSSSSSSSSSSSSESSSS ESSE SESS SSKSESSESE SSS SSESSESESEEESSESESESES 


TST1S: SCOPE 
NOP 
TST CCHPAS 


BNE 99% ' ues yet 
NOP aid 
BR TST16 33;G0 TO NEXT TEST 
99%: NOP 
MOV 80114, SLOCOO sSAVE VECTOR 114 
MOV ae4, SLOCO1 sSAVE VECTOR 4 


MOV @ABORTR , 80114 
: 
3s TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 


° sSTART WITH CURRENT 
1$: TST CR4)« sREAD A WORD 








HEN 
PARITY ABORT LOGIC DOESN'T SET MSER PROPERLY 


shave done enough inclusive passes? 


sLET VECTOR 114 POINT TO ABORT ROUTINE 


sGOT TO ABORT ROUTINE? 


SEQ 0310 








COKDADO KDJ11-B8 CLUSTER DIAG. 
ABORT TEST 


17410 107674 


L- 
TEST - PARITY 
17395 107600 
17413 107676 


; 


a — eR gn ar er 


005700 


107640 
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177520 
177746 


177746 


177520 
000114 
000004 


177744 
001124 


ABORTI: 


1%: 


ABORTR: 


1$: 
2s: 


3$: 


4$: 


SEQ 0311 
1$ sIF NOT, KEEP ON ALLOCATING 
RO sCLEAR EXPECTING ABORT FLAG 
#1000,BCSR sDISABLE HALT ON BREAK 
#B1IT10, CCR sSET WRITE WRONG PARITY BIT 
@eTSTLOC sWRITE TEST LOCATION WITH BAD PARITY 
@B1T07, CCR sENABLE ABORTS, CLEAR WWTP BIT 
RO sSET EXPECTING ABORT FLAG 
@OTSTLOC sREAD TEST LOCATION (SHOULD CAUSE ABORT) 
RO sIF ABORT FLAG NOT EQUAL ZERO 
i$ s THEN 
034 sPARITY ABORT LOGIC DOESN'T WORK 
#1000,BCSR sENABLE HALT ON BREAK 
SLOCOO, a0114 sRESTORE VECTOR 114 
—— 904 sRESTORE VECTORE 4 
TST16 33GO TO NEXT TEST 
MSER ,.R3 sSAVE MSER 


1% 

(SP), $BDADR 

7 

2s 

RO 

— 
#100040, $GDDAT 
35 

‘ - de @ABORTI+4 


7 


FTF EXPECTING ABORT FLAG NOT SET™ 


sSAVE ABORT ADDRESS 
sILLEGAL PARITY INTERRUPT 


sELSE 

sCLEAR CEXPECTING) ABORT FLAG 
—— NOT EQUAL TO 100040 

F 

sSAVE PROPER MSER SETTING 

sPARITY ABORT DON’T SET MSER PROPERLY 
x Aa EQUAL TO UPDATE PC 


3 N 
sILLEGAL PARITY INTERRUPT 
sRETURN 


COKDADO KDJ11-B8 CLUSTER DIAG. 
TEST - PARITY INTERRUPT TEST 


17430 
17431 
17432 
17433 


107752 
107754 
107756 
107762 
107764 
107766 
107770 


107772 
110000 


110006 
110012 
110014 
110020 
110022 
110024 
110032 


013737 
012737 


012704 
005724 
022704 
001374 
005001 
042737 
052737 


003032 


000114 
110106 


110006 


110106 


001000 
000100 
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003012 
000114 


177520 
177746 


B9 


-SBTTL TEST - PARITY INTERRUPT TEST 

PARITY INTERRUPT TEST - THIS TEST WILL VERIFY THAT WHEN CCR<7,0> = 

4 0, A PARITY INTERRRUPT OCCURS AFTER EXECUTION OF AN INSTRUCTION 
HAT HAS BEEN WRITTEN WITH WRONG PARITY. 


;BGNTST 

sSAVE CONTENTS OF 114 

sSETUP VECTOR 114 TO POINT TO INTERRUPT ROUTINE 
sCLEAR EXPECTING INTERRUPT FLAG 

sWRITE TEST ADDRESS WITH BAD PARITY 

sSET EXPECTING INTERRUPT FLAG 

sREAD TEST ADDRESS 

sIF INTERRUPT FLAG NE O THEN 

— PARITY INTERRUPT LOGIC DOESN'T WORK 
; 

sRESTORE CONTENTS OF VECTOR 114 

“ai TST 


PINTERRUPT ROUTINE : IF EXPECTING INTERRUPT FLAG NE 1 THEN 
in oe ERROR NO INTERRUPT SHOULD HAVE OCCURRED 


CLEAR (EXPECTING) INTERRUPT FLAG 


3 
3 

$ 

3 END 

3 - ——, + NE TO UPDATED PC THEN 

3 F PC = TEST INSTRUCTION PC THEN 
: A hos ERROR INSTRUCTION ABORTED 
3 . 

3 ‘ ‘ ILLEGAL PARITY ABORT 

F P ENDIF 

3 ENCIF 

3 
3 
3 
3 


IF MSER NE #340 THEN 

° PARITY INTERRUPT DOESN'T SET MSER PROPERLY 
ENDIF 

RETURN 


: 
sENOTST 
EE Iadaclashathathdhedadedadetetededeeee hb bpp tt rrrttititittt iti ttt t tL LTT Tritt) 


TST16: SCOPE 


NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug aid 
BR TST17 +:GO TO NEXT TEST 
99%: NOP 
MOV 84114, SLOCOO sSAVE CONTENTS OF VECTOR 114 
MOV @INTERR , 80114 sLET VECTOR POINT TO INTERRUPT ROUTINE 
; 
s TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 
; 
MOV #.,R4 ;START WITH CURRENT 
1$: TST CR4)- sREAD A WORD 
CMP @INTERR ,R4O :GOT TO INTERRUPT ROUTINE? 
BNE i$ sIF NOT, KEEP ON ALLOCATING 
CLR R1 sCLEAR EXPECTING INTERRUPT FLAG 


sDISABLE HALT ON BREAK 


BIC #1000,BCSR 
sSET WRITE WRONG DATA PARITY 


BIS #BIT06, CCR 














SEQ 0312 


COKDADO KDJ11-B CLUSTER DIAG. 


TEST - 


17486 
17487 
17488 
17489 
17490 
17491 
17492 
17493 


PARITY 





INTERRUPT TEST 


003162 
177746 


003162 


001000 177520 
003012 000114 
177744 


001122 


110056 


000340 177744 
000340 001124 


MACRO YOS.02 


INTRPC: 


1$: 


INTERR: 


1$: 
2s: 


4$: 


5$: 
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aeTSTLOC 
CCR 
Ri 


#1000 ,BC 


C9 


SR 


sWRITE LOCATION WITH BAD DATA PARITY 
sCLEAR WRITE WRONG DATA PARITY 

sSET EXPECTING INTERRUPT FLAG 

sREAD TEST LOCATION 

—— FLAG NOT EQUAL ZERO 
sPARITY INTERRUPT LOGIC DOESN'T WORK 
sENABLE HALT ON BREAK 

sRESTORE VECTOR 114 

;CLEAR MSER 


33GO TO NEXT TEST 


$BDADR 


@INTRPC+4 


MSER 
#GDDAT 


—— INTERRUPT FLAG NOT SET 


;SAVE INTERRUPT ADDRESS 

oe PARITY INTERRUPT 

3EL 

;CLEAR CEXPECTING) INTERRUPT FLAG 
— PC NOT EQUAL TO UPDATED PC 
H 

sILLEGAL PARITY INTERRUPT 

— NOT EQUAL TO EXPECTED VALUE 
sSAVE PROPER MSER 


sPARITY INTERRUPT DON'T SET MSER PROPERLY 


RETURN 






SEQ 0313 


COKDADO 
TEST 


ee 


KDJ11-B CLUSTER DIAG. 
- MISCELLANEOUS PARITY TEST 





MACRO YOS.02 





D9 
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-SBTTL TEST - MISCELLANEOUS PARITY TEST 

sMISCELLANEOUS PARITY TEST - THIS TEST CHECKS THAT BYPASS CYCLES WITH 
sPARITY ERRORS CAUSE CACHE HIT RESPONSE AND THAT FORCE MISS CYCLES 
sIGNORE PARITY ERRORS. 


; 
sBGNTST 

sWRITE A LOCATION WITH BAD PARITY 
sSET BYPASS IN CCR 

sREAD THE LOCATION BACK 

:IF NO HIT OR MSER NOT SET THEN 


110156 
110160 
110162 
110166 
110170 
110172 
110174 


110176 
110202 
110204 
110210 


110212 
110220 
110226 
110234 
110242 
110246 
110254 
110260 
110262 
110264 
110270 
110276 
110300 


110302 
110306 
110312 
110320 
110326 
110332 
110340 
110344 


012703 
005723 
022703 
001374 


013737 
012737 


003032 


110176 
110354 


177744 
177746 
110346 
002101 
003162 
000014 
003162 


003012 
000114 
177520 
177746 


177746 


177744 


000114 
177746 


177746 


sWRITE A LOCATION WITH BAD PARITY AND SET BYPASS 


3IF MSER SET WHILE READING IT BACK 
» ERROR 
sENDIF 
sENDTST 
Tihidbbbhbhhihhipiittittititii titi iti t ttt tit ttt titi tT TTT TTT T TTT TTT 
TST17: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP 3 a aid 
BR TST20 +3;GO TO NEXT TEST 
99$: NOP 
MOV #.,R3 sSTART WITH CURRENT INSTRUCTION 
10$: TST CR3)- sREAD A WORD 
CMP #4$,R3 sLAST WORD? 
BNE 10$ ;IF NOT, CONTINUE 
; CHECK BYPASS AND BAD PARITY 
H 
MOV 8#114, SLOCOO sSAVE PARITY VECTOR 
MOV #1$,80114 sPOINT NEW VECTOR 
BIC #1000,BCSR :DISABLE HALT ON BREAK 
BIS #BIT10!BITO6!BITOO,CCR sDATA AND TAG PAR., NO INT. 
CLR a#¢TSTLOC sWRITE CYCLE 
MOV #BITO9,CCR ;SET BYPASS 
TST a#¢TSTLOC ;BYPASS WITH WRONG PARITY 
ERROR 245 ERR 
BR 2s H 
1$: ADD #4 ,SP sADJUST STACK 
BIT #340,MSER sMSER OK? 
BNE 2s ;IF YES, BRANCH 
ERROR 42 ;BYPASS WRONG 
; CHECK FORCE MISS AND BAD PARITY 
A 
2s: CLR MSER ;CLEAR MSER 
CLR CCR ;CLEAR CCR 
MOV #3$ ,80114 ;POINT NEW VECTOR 
BIS #BIT10!BITO6!BITOO,CCR ;DATA AND TAG PAR., NO INTER 
CLR a#¢TSTLOC sFORCE MISS WITH PARITY 
MOV #14,CCR sFORCE MISS 
sy Nate sALLOCATE CACHE 


SEQ 0314 


‘ 
' 


ee eee es ee 


| COKDADO KDv11-B8 CLUSTER DIAG. 
- MISCELLANEOUS PARITY 


TEST 


17571 
17572 
17573 
17574 
17575 
17576 
17577 


110346 
110350 
110354 
110360 
110366 
110374 


104042 
062706 
005037 
052737 
013737 
012737 


000004 
177746 
001000 
003012 
000400 


MACRO YOS.02 


TEST 


177520 
000114 
177746 


3$: 
4$: 
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#B1T08,CCR 


SEQ 0315 


sADJUST STACK 

sCLEAR CCR 

sENABLE HALT ON BREAK 
14 sRESTORE PARITY VECTOR 

sFLUSH CACHE 


-_—< 


COKDADO KDJ11-B CLUSTER DIAG. 
- MEMORY SYSTEM ERROR REGISTER TEST 


TEST 











F9 
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-SBTTL TEST - MEMORY SYSTEM ERROR REGISTER TEST 

sMEMORY SYSTEM ERROR REGISTER TEST - THIS TEST WILL VERIFY THE 
sFUNCTIONALITY OF BITS <15> AND <7:5> OF THE MEMORY SYSTEM ERROR 
sREGISTER. THIS TEST WILL USE THE WRITE WRONG PARITY BITS (BITS<10> 
;AND <6> OF THE CCR) TO WRITE BAD PARITY INTO A LOCATION. THE 
sLOCATION WILL THEN BE READ WITH CACHE TRAPS ENABLED AND THE MSER 
;WILL BE CHECKED AFTER THE ABORT FOR THE CORRECT BIT(S) BEING SET. 
sTHIS WILL BE DONE FOR ALL COMBINATIONS OF BITS<10> AND <6> FOR WORD 
sACCESSES THEN REPEATED FOR ALL COMBINATIONS OF BITS<10> AND <6> FOR 
sBYTE ACCESSES. THE TEST WILL THEN BE REPEATED A THIRD TIME FOR BYTE 
sACCESSES AND ABORTS DISABLED. THE MSER SHOULD CONTAIN BITS <7:5> 
sSET TO 1'S AND BIT <15> A ZERO FOR ALL COMBINATIONS. 


3 
;BGNTST 

;SAVE CONTENTS OF VECTOR 114 

sSETUP VECTOR TO amaae - ABORT ROUTINE 

s INITIALIZE LOOP COUNTE 

my UNTIL ALL WORD COrSINATIONS CHECKED 

INITIALIZE MSER 

SETUP CCR FROM CCR TABLE 

READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
CLEAR <10,6> FROM CCR 

SETUP CCR FOR ABORT 

READ TEST LOCATION :THIS COULD CAUSE TRAP 
IF EXPECTED DATA NE RECEIVED DATA THEN 

‘ ERROR IN SETTING MSER 


ENDIF 
UPDATE LOOP COUNTER 


NDDO 
s INITIALIZE LOOP COUNTER 
;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 
i. INITIALIZE MSER 
. SETUP CCR FROM CCR TABLE 
READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 


@: cesstsees 


CLEAR <10,6> FROM CCR 

SETUP CCR FOR ABORT 

READ LOW BYTE TEST LOCATION 

GET EXPECTED BYTE DATA FROM TABLE 

IF EXPECTED DATA NE RECEIVED DATA THEN 
— ERROR IN SETTING MSER 


; 
i 

; 

“ 

; 

; 

: 

i 

; 

g INITIALIZE MSER 

; READ HIGH BYTE TEST LOCATION 

i. GET EXPECTED BYTE DATA FROM TABLE 
$. IF EXPECTED DATA NE RECEIVED DATA THEN 
. . ERROR IN SETTING MSER 

i 

; 

; 

; 

; 

is 

‘ 

; 

; 

é 

‘ 


ENDIF 
INCREMENT LOOP COUNTER 


ENDDO 
INITIALIZE LOOP COUNTER 
DO UNTIL ALL BYTE COMBINATIONS CHECKED 
INITIALIZE MSER 
SETUP CCR FROM CCR TABLE 
READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
CLEAR <10,6> FROM CCR 
SETUP CCR FOR NO ABORTS 
READ LOW BYTE TEST LOCATION 





—_ a 


SEQ 0316 


—_— 


ee 


COKDADO KDJ11-B CLUSTER DIAG. 


TEST 


110402 
110404 
110406 
110412 
110414 
110416 
110422 


110424 
110432 
110440 
110444 
110450 
110454 
110462 
110466 
110472 
110476 
110504 
110510 
110514 
110516 
110522 
110524 
110526 


000004 
000240 
005737 
001003 
000240 
000137 
000240 


013737 
012737 
012704 
012700 
012701 
042737 


005037 ' 


012037 
005037 
012737 
005737 
021137 
001403 
011137 
104035 
005721 
005737 


003162 
177744 


001124 


023162 


MACRO YOS.02 


003012 
000114 


177520 


177746 


- MEMORY SYSTEM ERROR REGISTER TEST 


;ENDDO 


sEXIT 





G9 
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IF RECEIVED DATA NE TO #340 THEN 
ERROR IN SETTING MSER 


ENDIF 


INITIALIZE MSER 


READ HIGH BYTE TEST LOCATION 
IF RECEIVED DATA NE #340 THEN 
ERROR IN SETTING MSER 


ENDIF 


INCREMENT LOOP COUNTER 


TST 


; 
sCCR TABLE: 


0 
100 
2000 


i 2100 
sEXPECTED WORD DATA: 0) 


; 
sEXPECTED BYTE DATA: 


; 
sABORT ROUTINE: RTI 


; 
sENDTST 
§ §EEREEEEEEEREREEEEEEREREEEEREEEEEEEREREREREEEEEEEKEREEEEEEEEEREE 


TST20: 


99$: 


1$: 


2s: 


SCOPE 


CCHPAS 
99% 


10$ 

8#114, SLOCOO 
#ABROUT, 0114 
04, R4 
@CCRTBL, RO 


@eTSTLOC 
(R1), 
2s 


(R1), 
(R1)+ 
a#TSTLOC+8192. 


MSER 
$GDDAT 


SEQ 0317 


shave done enough inclusive passes? 
: not yet 

; debug aid 

; yes skip this 


sSAVE CONTENTS OF VECTOR 114 

sSETUP VECTOR TO POINT TO ABORT ROUTINE 
sINITIALIZE LOOP COUNTER 

sGET ADDRESS OF CCR TABLE 

sGET ADDRESS OF EXPECTED DATA TABLE 
sDISABLE HALT ON BREAK 

sINITIALIZE MSER DATA 

;SETUP CCR FROM CCR TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
sSETUP CCR TO ABORT POSSIBLE BAD PARITY 
sREAD TEST LOCATION 

sIF RECEIVED DATA NOT EQUAL TO EXPECTED 
;DATA THEN 

sSAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

sINCREMENT POINTER THRU MSER TABLE 

3TO INSURE MISS ON THE NEXT LOOP 


KDJ11-B CLUSTER DIAG. 


MEMORY 


110532 
110534 


110714 
110720 
110724 
110732 
110736 
110742 
110746 
110752 
110760 
110764 
110772 
110774 
111002 
111004 


111056 


-—— 





MACRO YOS.02 


SYSTEM ERROR REGISTER TEST 


077425 
052737 


012704 
012700 
012701 
042737 
005037 
005737 
011037 
105037 
012737 
105737 
021137 
001403 
011137 
104035 
005721 
005037 
005737 
012037 
105037 
012737 
105737 
021137 
001403 
011137 
104035 
005721 
077451 
052737 


012704 
012700 
042737 


104035 
077453 


001000 177520 


177520 


177746 
003162 
177744 


001124 


177744 


177746 
003163 
177744 


001124 


177520 


177520 


177746 
177744 


000340 001124 


177746 
177744 
001124 


H9 


SOB R4, 1$ 
BIS #1000,BCSR 
;CHECK BYTE en NOW 
MOV R4 
MOV SCCRTBL. RO 
MOV #EXPBDT,R1 
BIC #1000,BCSR 
3$: CLR MSER 
TST aéTSTLOC 
MOV CRO), CCR 
CLRB ae#TSTLOC 
MOV #BITO7, CCR 
TSTB a#TSTLOC 
CMP (Ri), MSER 
BEQ 4$ 
MOV CR1i), $GDDAT 
ERROR +35 
4$: TST CR1i)+ 
CLR MSER 
TST a#TSTLOC 
MOV CRO)+, CCR 
CLRB Oe#TSTLOC+1 
MOV #BITO7, CCR 
TSTB OeTSTLOC+1 
CMP (Ri), MSER 
BEQ 5$ 
MOV CR1), $GDDAT 
ERROR +35 
5$: TST CR1)+ 
SOB R4, 3$ 
BIS #1000,BCSR 
sREPEAT WITHOUT ABORT 
MOV #3, R4 
MOV #CCRTBL+2, RO 
BIC #1000, BCSR 
6$: CLR MSER 
TST aeéTSTLOC 
MOV CRO), CCR 
CLRB aeTSTLOC 
MOV #BITOO, CCR 
TSTB ae¢TSTLOC 
CMP #340, MSER 
BEQ 7$ 
MOV #340, $GDDAT 
ERROR +35 
7$: CLR MSER 
TST a¢TSTLOC 
MOV CRO)+, CCR 
CLRB @eTSTLOC+1 
MOV #BITOO, CCR 
TSTB @aeTSTLOC+1 
CMP #340, MSER 
BEQ 8$ 
MOV #340, $GDDAT 
ERROR +35 
8$: SOB R4, 6$ 
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SEQ 0318 


sLOOP UNTIL ALL COMBINATIONS CHECKED 
sENABLE HALT ON BREAK 


sINITIALIZE LOOP COUNTER 

;GET ADDRESS OF CCR TABLE 

;GET ADDRESS OF EXPECTED BYTE DATA TABLE 
sDISABLE HALT ON BREAK 

sINITIALIZE MSER 

sALLOCATE TO HAVE WRITE BYTE HIT 

;SETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
;SETUP CCR TO ABORT POSSIBLE BAD FARITY 
;READ LOW BYTE OF TEST LOCATION 
— DATA NOT EQUAL TO EXPECTED 
; N 

;SAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

s INCREMENT POINTER THRU MSER TABLE 
sINITIALIZE MSER 

;ALLOCATE TO HAVE WRITE BYTE HIT 

;SETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
;SETUP CCR TO ABORT POSSIBLE BAD PARITY 
sREAD HIGH BYTE OF TEST LOCATION 
Cn DATA NOT EQUAL TO EXPECTED 
Hy 

;SAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

sINCREMENT POINTER THRU MSER TABLE 

;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 
sENABLE HALT ON BREAK 


sINITIALIZE LOOP COUNTER 

sGET ADDRESS OF CCR TABLE 

sDISABLE HALT ON BREAK 

sINITIALIZE MSER 

sALLOCATE CACHE LOC. 

s;SETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
sSETUP CCR TO NOT ABORT 

sREAD LOW BYTE OF TEST LOCATION 
acai DATA NOT EQUAL TO EXPECTED 
; 

sSAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

s INITIALIZE MSER 

sALLOCATE CACHE LOC. 

sSETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
sSETUP CCR TO NOT ABORT 

sREAD HIGH BYTE OF TEST LOCATION 

, aaiataaaes DATA NOT EQUAL TO EXPECTED 
; 


sSAVE PROPER MSER SETTING 


sMSER NOT SET PROPERLY 
;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 


_ 
' 
{ 
| 


COKDADO KDJ11-B CLUSTER DIAG. 


17759 111114 


17761 111116 
17762 111120 
17763 111122 
17764 111124 


17766 111126 
17767 111130 
17768 111132 
17769 111134 
17770 111136 
17771 111140 
17772 111142 
17773 111144 


17775 111146 





MACRO YOS.02 


SYSTEM ERROR REGISTER TEST 


005037 177744 
052737 001000 177520 
013737 003012 000114 
005037 177746 


000421 


10$: 


CCRTBL: . 


EXPWDT: . 


EXPBOT: . 


ABROUT: 
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MSER s;CLEAR ERROR REGISTER 
#1000,BCSR sENABLE HALT ON BREAK 
SLOCOO, a#114 sRESTORE VECTOR 114 

CCR sCLEAR ALL BIT IN CCR 


TST2i 33GO TO NEXT TEST 





SEQ 0319 


— 


17779 
17780 
17781 
17782 
17783 
17784 
17785 
17786 
17787 
17788 
17789 
17790 
17791 
17792 
17793 
17794 
17795 


-_-- 


111150 
111152 
111154 
111160 
111162 
111164 
111166 


111170 
111176 
111204 
111212 





000004 
000240 
005737 
001002 
000240 
000475 
000240 


013737 
013737 
012737 
012737 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 


003032 


000004 
000114 
111232 
177400 
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003012 
003014 
000004 
172354 


SEQ 0320 :~=CS! 


-SBTTL TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT 
sCHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT - THIS TEST WILL 
;VERIFY THAT IF A PARITY ERROR OCCURS ON THE SAME ADDRESS REFERENCE AS A 
sNON-EXISTENT MEMORY ERROR THAT THE CACHE DATA PATH GATE ARRAY BLOCKS THE 
sPARITY ERROR TO THE J-11 CHIP SET. THIS WILL BE DONE BY USING THE DIAGNOSTIC 
sBIT TO CAUSE A PARITY ERROR IN A CACHE REFERENCE THAT DOES NOT HAVE A 
sCORRESPONDING ADDRESS IN MAIN MEMORY. THE ADDRESS WILL THEN BE READ CAUSING 
;BOTH A CACHE PARITY ERROR AND A NON-EXISTENT MEMORY ERROR. TO AVOID HAVING 
;TO SIZE THE ENTIRE MEMORY TO FIND A NON-EXISTENT MEMORY ADDRESS THIS TEST 
sWILL USE THE LARGEST NON-I/0 ADDRESS (17757776). THE TEST WILL FIRST READ 
sTHIS ADDRESS AND IF A NXM TRAP OCCURS THE TEST WILL BE DONE. IF THE ACCESS 
;TO THIS ADDRESS DOES NOT TRAP THEN THE TEST WILL BE SKIPPED. 


; 
;BGNTST 

sSAVE CONTENTS OF VECTOR 4 

sSAVE CONTENTS OF VECTOR 114 

;LET VECTOR 4 POINT TO CONTINUE TESTING (A:) 
;LET PAR6 = #177400 

sACCESS ADDRESS 157776 (PHYSICAL 17757776) 
3;IF NO TRAP THEN 

Be GOTO ENDTST 

ape 


A: 

;SET DIAGNOSTIC AND WRITE WRONG PARITY BITS IN CCR 
;sWRITE ADDRESS 157776 

;CLEAR CCR 

;SET PARITY ERROR ABORT BIT IN CCR 

;LET VECTOR 4 POINT TO CONTINUE TESTING (B:) 

;LET VECTOR 114 POINT TO NXM-PARITY ERROR ROUTINE 
;READ ADDRESS 157776 

3;IF NO TRAP THEN 

vr ERROR IN ABORT LOGIC 

—— 


3B: 
;CLEAR CCR 

sRESTORE CONTENTS OF VECTOR 114 
sRESTORE CONTENTS OF VECTOR 4 


;EXIT TST 

é 

Hy 

;NXM-PARITY ERROR ROUTINE: RESET STACK AFTER TRAP 

: PARITY ABORT NOT BLOCKED BY NXM 
; GOTO B: 

;ENDTST 


5 ERR EERE EERE EERE EERE EERE REESE REESE EE EEEEE EERE EEEEEE EEE 
TST21: SCOPE 
NOP 


TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP 3 ons aid 
BR TST22 3;GO TO NEXT TEST 
99$: NOP 


sSAVE CONTENTS OF VECTOR 4 

;SAVE CONTENTS OF VECTOR 114 

;LET VECTOR 4 POINT TO CONTINUE TESTING 
;LET PAR6 = OFFSET TO HIGHEST MEMORY 


MOV ae4, SLOCOO 
MOV a#114, SLOCO1 
MOV #1$, ara 

MOV #177400 , KIPAR6 














KDJ11-B CLUSTER DIAG. 
CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 


111220 
111224 
111230 
111232 
111236 


111350 
111354 
111356 


177572 
157776 


111350 
157776 


000004 
177746 
177572 
001000 
003012 
003014 


MACRO YOS.02 


177520 
177746 


177746 
000004 
000114 


177520 
000004 
000114 


1$: 


2$: 
ABOEXT: 


NXMPAR : 
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#2$, ae4 
@NXMPAR , 8114 
80157776 


SLOCOO, a#4 
SLOCO1, a#114 
TST22 


04, SP 
+40 


s TURN ON MMU 

sACCESS ADDRESS 17757776 

IF NO TRAP SKIP TEST 

sRESET STACK AFTER TRAP 

sDISABLE HALT ON BREAK 

sSET DIAG. AND WRITE WRONG PARITY BITS 
sWRITE TO ADDRESS 17757776 

sCLEAR CCR AND SET PARITY ABORT BIT 
sLET VECTOR 4 POINT TO CONTINUE TESTING 
sLET VECTOR 114 POINT TO ERROR ROUTINE 
sREAD ADDRESS 17757776 (SHOULD TRAP) 
sNXM AND PARITY ABORT DIN’ T HAPPEN 

sGO EXIT TEST 

sRESET STACK AFTER TRAP 

sCLEAR CCR FOR EXIT 

sDISABLE MMU 

sENABLE HALT ON BREAK 

sRESTORE VECTOR 4 

sRESTORE VECTOR 114 


3:;GO TO NEXT TEST 


sRESET STACK AFTER TRAP 
sPARITY ABORT NOT BLOCKED BY NXM TRAP 


COKDADO KDJ11-8 CLUSTER DIAG. 
TEST - MULTIPROCCESSING INSTRUCTION TESTS 


| 17917 
17918 


111360 
111362 
111364 
111370 
111372 
111374 
111376 


111400 
111406 


111412 
111414 
111416 
111424 
111432 
111434 
111436 
111444 
111446 
111454 


111456 
111460 
111462 
111464 


003032 


001000 
003162 


177752 
000010 


000004 
111412 





177520 


114150 


114150 


114150 
001126 
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SEQ 0322 =! 
-SBTTL TEST - MULTIPROCCESSING INSTRUCTION TESTS 
sMULTIPROCCESSING INSTRUCTION TESTS - THIS TEST WILL VERIFY THAT THE MULTI- 
sPROCCESSING INSTRUCTIONS DO A BYPASS OF THE CACHE. THIS TEST WILL NOT VERIFY 
sTHE REST OF THE FUNCTIONALITY OF THESE INSTRUCTIONS BECAUSE THAT WILL ALREADY 
sHAVE BEEN CHECKED IN THE BASE INSTRUCTION TESTS. THE TEST WILL FIRST ALLOCATE 
sAN ADDRESS IN CACHE THEN A TSTSET INSTRUCTION WILL BE DONE AT THAT ADDRESS. 
sA HIT SHOULD BE RECORDED ON THE ACCESS. NEXT, THE ADDRESS WILL BE READ AND 
sA MISS SHOULD BE RECORDED BECAUSE THE FORCED BYPASS ON THE TSTSET INSTRUCTION 
sSHOULD HAVE INVALIDATED THE CACHE ENTRY. THE SAME SEQUENCE WILL THEN BE 
sREPEATED FOR THE WRTLCK INSTRUCTION. 
; 
;BGNTST 
sREAD TEST LOCATION TO ALLOCATE CACHE 
:D0 TSTSET INSTRUCTION 
sIF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
‘ag ERROR IN MULTI-PROCESSOR HOOKS 
H 
sREAD TEST LOCATION CALSO ALLOCATES CACHE FOR WRTLCK) 
:D0 WRTLCK INSTRUCTION 
sIF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
Se ERROR IN MULTI-PROCESSOR HOOKS 
s ENDIF 
;READ TEST LOCATION 
300 ASRB INSTRUCTION 
sIF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
Ss ERROR IN MULTI-PROCESSOR HOOKS 
ENDIF 
sENDTST 
sNOTE: THE CODE IS POSITION DEPENDENT 
ELdbibibbbhhh hhh tari tiiti titi tt tit tttititittirTrTrTrrrretrrTrTrrT Tt 
TST22: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; a aid 
BR TST23 +3GO TO NEXT TEST 
99%: NOP 
BIC #1000,BCSR sDISABLE HALT ON BREAK 
TST TSTLOC sREAD TEST LOCATION TO ALLOCATE CACHE 
3 TSTSET TSTLOC 300 TSTSET INSTRUCTION 
7$: -WORD 7237 ; THESE NEXT TWO LOCATIONS ARE THE TSTSET 
«WORD TSTLOC sINSTR. BECAUSE THE ASSEMBLER WAS NOT READY 
MOV HITMIS ,RECDAT ;STORE REGISTER 
BIT #BIT3,RECDAT sIF HIT/MISS REGISTER BIT 3 NOT SET 
BNE i$ ; THEN 
ERRCR +45 sERROR IN RECORDING HITS IN HIT/MISS 
1$: BIT #BIT2,RECDAT sIF HIT/MISS REGISTER BIT 2 SET 
BEQ 2s ; THEN 
MOV ae7$, $BDDAT ;SAVE OPCODE 
ERROR +41 sMULTI-PROCESSOR HOOK INSTRUCTION DOESN‘ TT CAUSE MIS 
328: WRTILCK TSTLOC 300 WRTLCK INSTRUCTION 
2s: NOP sPUT THE WRITE LOCK CODE ON THE RIGHT $$$ 
NOP sBOUNDRY. $$$ 
-WORD 7337 ;THESE NEXT TWO WORDS ARE THE WRILCK 
-WORD TSTLOC sINSTR. BECAUSE THE ASSEMBLER WAS NOT READY 

















COKDADO KDJ11-8 CLUSTER DIAG. 


17925 111516 


17936 111576 


013737 


177752 
000010 
000004 
111456 
003162 


177752 
000010 


001000 
000004 


111526 


MACRO YOS.02 
TEST - MULTIPROCCESSING INSTRUCTION TESTS 


114150 
114150 
114150 
001126 


114150 
114150 


177520 
114150 


001126 


3$: 


4$: 


S$: 





M9 


HITMIS ,RECDAT 
ne 


«45 : 
ica maaaae 
av2$, $BDDAT 
41 


TSTLOC 
HITMIS ,RECDAT 
_ 


5 
245 
#1000,BCSR 
#BIT2,RECDAT 
TST23 

0043, $BODAT 
+41 
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SEQ 0323 


sSTORE REGISTER 
tee REGISTER BIT 3 NOT SET 


37 
sERROR IN RECORDING HITS IN HIT/MISS 
— REGISTER BIT 2 SET 


; 
sSAVE OPCODE 
sMULTI-PROCESSOR HOOK INSTRUCTION DOESN‘ TT CAUSE MIS 


s;THE THIRD BYPASS INSTRUCTION 
sSTORE REGISTER 
sIF HIT/MISS REGISTER BIT 3 NOT SET 


3 THEN 
sERROR IN RECORDING HITS IN HIT/MISS 
sENABLE HALT ON BREAK 
3IF HIT/MISS REGISTER BIT 2 SET 
33;EXIT TEST 
sSAVE OPCODE 
sMULTI-PROCESSOR HOOK INSTRUCTION DOESN’ TT CAUSE MIS 








g 
| N9 
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i SEQ 0324 
TEST - DATA STORE RAM TESTS 
17941 -SBTTL TEST - DATA STORE RAM TESTS 
17942 ;DATA STORE RAM TESTS - THERE ARE TWO TESTS FOR THE DATA STORE RAM. 
17943 sTHE FIRST TEST WILL BE A NO DUAL ADDRESSING TEST AND THE SECOND 
17944 sTEST WILL BE A DATA RELIABILITY TEST. THE NO DUAL ADDRESSING TEST 
17945 sWILL FIRST WRITE EACH WORD OF THE CACHE RAM WITH ITS WORD ADDRESS 
17946 sAND VERIFY THE CONTENTS WITH A READ OF EACH ADORESS. THEN EACH 
17947 sBYTE WILL BE WRITTEN WITH ITS ADDRESS AND CHECKED. THE DATA 
oveet sRELIABILITY TEST THAT WILL BE USED IS A TEST CALLED MOVING INVERSIONS. 
: 
17950 sBGNTST 1 
17951 sSETUP MMU REGISTERS TO HAVE BYPASS ON KERNAL SPACE AND NO 
17952 BYPASS ON USER SPACE 
17953 iLeT PS EQUAL KERNAL FOR CURRENT MODE AND USER FOR PREVIOUS 
17954 MODE 
17955 ;ENABLE MMU 
17956 1GET FIRST ADDRESS OF 4K WORD DATA BUFFER 
17957 sCLEAR DATA TO BE WRITTEN 
17958 sSET DIAGNOSTIC BIT (BIT<1i2) IN CCR 
17959 sD0 UNTIL DATA TO BE WRITTEN EQUALS 20000(8) 
17960 $. WRITE DATA TO ADDRESS 
17961 ; . ADD 2 TO ADDRESS 
17962 $. ADD 2 TO DATA TO BE WRITTEN 
17963 sENDDO 
17964 sGET FIRST ADDRESS OF 4K WORD DATA BUFFER 
17965 sCLEAR EXPECTED DATA 
17966 300 UNTIL EXPECTED DATA EQUALS 20000(8) 
17967 t. READ ADDRESS 
17968 $. IF RECEIVED DATA NE EXPECTED DATA THEN 
17969 . . GOTO DATA STORE PARITY ERROR ROUTINE 
17970 . ENDIF 
17971 gs ADD 2 TO EXPECTED DATA 
17972 ‘ ADD 2 TO ADDRESS 
17973 sENDOO 
17974 sGET FIRST ADDRESS OF 8K BYTE DATA BUFFER 
17975 sCLEAR DATA TO BE WRITTEN 
17976 s00 UNTIL ALL BYTES CHECKED 
17977 t. WRITE DATA TO ADDRESS 
17978 t. ADD 1 TO ADDRESS 
17979 3 ADD 1 TO DATA TO BE WRITTEN 
17980 sENODO 
17981 sGET FIRST ADDRESS OF 8K BYTE DATA BUFFER 
17982 : sCLEAR EXPECTED DATA 
17983 300 UNTIL EXPECTED DATA EQUALS 20000(8) 
17984 $. READ ADDRESS 
17985 . IF RECEIVED DATA NE EXPECTED DATA THEN 
17986 3. . GOTO DATA STORE PARITY ERROR ROUTINE 
17987 t. ENDIF 
17988 ADD 1 TO EXPECTED DATA 
17989 $. ADD 1 TO ADDRESS 
17990 sENDDO 
17991 sENOTST 
17992 ’ 
17993 FF SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHESESSESSSSHESESSSSSSESEESSESSEESES 
111 000004 TST23: SCOPE 
17994 111602 000240 NOP 
17995 111604 005737 003032 TST CCHPAS shave done enough inclusive pesses? 
| 17996 111610 001002 BNE 99% s not yet 


| ia —- 


















Bio 
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TEST - DATA STORE RAM TESTS 


SEQ 0325 


17997 111612 000240 NOP ; a eid 
17998 111614 000550 BR TST24 33GO TO NEXT TEST 
posed 111616 000240 99%: NOP 
18001 111620 004737 136574 JSR PC, INITMM sSETUP MMU REGISTERS 
111624 012737 002000 172354 MOV #2000, KIPAR6 sLET PAR6 MAP TO ADDRESS 200000 
18003 111632 005237 177572 INC SRO sTURN ON MEMORY MANAGEMENT 
18004 111636 012702 140000 MOV #140000 ,R2 sGET FIRST ADDRESS OF 4K WORD BUFFER 
18005 111642 005001 CLR Ri sINIT DATA TO BE WRITTEN 
18006 111644 052737 000002 177746 BIS #BITO1, CCR sSET DIAG BIT IN CASE NO MEMORY PRESENT 
18007 111652 042737 001000 177520 BIC #1000,BCSR sDISABLE HALT ON BREAK 
18008 111660 020127 020000 1$: CMP Ri, #20000 300 UNTIL ALL ADDRESSES WRITTEN 
18009 111664 001404 BEQ 2¢ sIF DONE GO CHECK DATA 
18010 111666 010122 MOV Ri, (R2)- sWRITE DATA TO ADDRESS 
18011 111670 062701 000002 ADD #2, R1 sUPDATE DATA BY 2 (WORD BOUNDARY) 
18012 111674 000771 BR i$ sE 
18013 111676 042737 000002 177746 2$: BIC @B1IT01, CCR sCLEAR DIAGNOSTIC BIT 
18014 111704 012702 140000 MOV #140000 ,R2 sGET FIRST ADDRESS OF 4K WORD BUFFER 
18015 111710 005001 CLR 1 sINIT DATA TO BE CHECKED 
18016 111712 020127 020000 3$: CMP Ri, #20000 3:00 UNTIL ALL ADDRESSES CHECKED 
18017 111716 001426 BEQ S$ sIF DONE GO DO BYTES 
18018 111720 010137 001122 MOV Ri, $BDADR sSTORE FOR ERRORS 
18019 111724 052737 100000 001122 BIS @B1IT15, $BDADR ; 
18020 111732 012237 114150 MOV CR2)+, RECDAT sREAD TEST LOCATION 
18021 111736 013737 177752 001160 MOV HITMIS, $TMPO sSTORE REGISTER 
18022 111744 032737 000020 001160 BIT #B1T04, $TMPO sHIT? 
18023 111752 001001 BNE 100$ sIF YES, BRANCH 
18024 111754 104045 ERROR +45 sDATA RAM ERROR 
18025 111756 020137 114150 100$: CMP Ri, RECDAT sIF RECIEVED DATA NOT EQUAL TO EXPECTED 
18026 111762 001401 BEQ as 3 THEN 
18027 111764 104043 ERROR +43 sDATA RAM ERROR 
16028 111766 062701 000002 4$: AOD #2, R1 sUPDATE EXPECTED DATA BY 2 
18029 111772 000747 BR 3$ sENDDO 
18030 111774 012702 140000 S$: MOV #140000 ,R2 sGET FIRST ADDRESS OF 4K WORD BUFFER 
18031 112000 005001 CLR R1 sINIT DATA TO BE WRITTEN 
18032 112002 052737 000002 177746 BIS #BITO1, CCR sSET DIAG BIT IN CASE NO MEMORY PRESENT 
18033 112010 020127 020000 6$: CMP Ri, #2 300 UNTIL ALL ADDRESSES WRITTEN 
18034 112014 001404 BEQ 7$ sIF DONE GO CHECK DATA 
18035 112016 110122 MOVB Ri, (R2)+ sWRITE DATA TO ADDRESS 
18036 112020 062701 000001 ADD #1, R1 sUPDATE DATA BY 1 (BYTE BOUNDARY) 
18037 112024 000771 BR 6$ sENDDO 
18038 112026 042737 000002 177746 7$: BIC #BITO1, CCR sCLEAR DIAGNOSTIC BIT 
18039 112034 012702 140000 MOV #140000 ,R2 sGET FIRST ADDRESS OF 4K WORD BUFFER 
18040 112040 005001 CLR Ri sINIT DATA TO BE CHECKED 
18041 112042 020127 020000 8$: CMP Ri, #20000 300 UNTIL ALL ADDRESSES CHECKED 
18042 112046 001426 BEQ 10$ sIF DONE EXIT TEST 
18043 112050 010137 001122 MOV Ri, $BDADR sSTORE FOR ERRORS 
18044 112054 052737 100000 001122 BIS #B1IT15, $BDADR ; 
18045 112062 112237 114150 MOVB (R2)+, RECDAT sREAD TEST LOCATION 
18046 112066 013737 177752 001160 MOV HITMIS, $TMPO sSTORE REGISTER 
18047 112074 032737 000020 001160 BIT #BITO4, $TMPO sHIT? 
18048 112102 001001 BNE 101$ sIF YES, BRANCH 
18049 112104 104045 ERROR +45 sDATA RAM ERROR 
18050 112106 120137 114150 101$: CMPB Ri, RECDAT sIF RECIEVED DATA NOT EQUAL TO EXPECTED 
18051 112112 001401 BEQ 9$ ; THEN 
18052 112114 104043 ERROR +43 s;DATA RAM ERROR 
18053 112116 062701 000001 9$: ADD #1, Ri sUPDATE EXPECTED DATA BY 1 
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SEQ 0326 


TEST - DATA STORE RAM TESTS 


18054 112122 000747 BR 8$ sENDOO 
18055 112124 052737 001000 177520 10%: BIS #1000,BCSR sENABLE HALT ON BREAK 
teed 112132 005037 177572 R F MMU 


CLR SRO sTURN OF 


[ 
| 


_— - ~ ee es 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - TAG STORE RAM TESTS 








D10 
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-SBTTL_ TEST - TAG STORE RAM TESTS 
sTAG STORE RAM TESTS - THERE ARE TWO TESTS FOR THE TAG STORE RAMS. THE FIRST 
sTEST IS AN ADDRESSING TEST TO ENSURE NO DUAL ADDRESSING OF THE TAG STORE. 


sTHE SECOND TEST IS A “MOVING INVERSIONS” TEST THAT CHECKS THE DATA RELIABILITY 


s;O0F THE RAM STORE. 


e 

sDUAL ADDRESSING TEST - THIS WILL BE DONE BY FIRST FLUSHING THE CACHE, THEN 
sTHE FIRST 512(10) LOCATIONS (BLOCK 0) WILL BE WRITTEN WITH ADDRESSES THAT 
sWILL CAUSE A _INCREMENTING PATTERN TO BE STORED IN THOSE LOCATIONS OF THE TAG 
sSTORE RAM. NEXT THE ENTIRE 4K ADDRESS RANGE WILL BE READ. THE HIT/MISS 
sREGISTER SHOULD ONLY REPORT HITS ON THE ADDRESSES THAT WERE ALLOCATED. THIS 
sPROCESS WILL BE REPEATED FOR EACH BLOCK. 


é 

sINITIALIZE LOW ADDRESS 

sSETUP AND ENABLE MMU 

sINITIALIZE BLOCK COUNTER 

;D0 UNTIL ALL BLOCKS TESTED (8 TIMES) 

FLUSH CACHE AND SET DIAGNOSTIC BIT 

LET CURRENT ADDRESS = LOW ADDRESS 

INITIALIZE ALLOCATION COUNTER 

DO UNTIL ENTIRE BLOCK ALLOCATED (1000 TIMES) 

. in on READ CURRENT ADDRESS 
L 


. WRITE CURRENT ADDRESS 
ENDIF 


. UPDATE CURRENT ADDRESS (ALSO ADD 200 TO PAR) 
ene FOR I/0 PAGE WRITE THE SAME ADDRESS AS BEFORE 


INITIALIZE GOOD ADDRESS 
INITIALIZE CURRENT ADDRESS 
INITIALIZE LOCATION COUNTER 
SAVE CONTENTS OF VECTOR 114 
LET VECTOR 114 POINT TO TAG STORE PARITY ABORT ROUTINE 
DO UNTIL ALL LOCATIONS CHECKED (1000 TIMES) 
. INITIALIZE CHECK COUNTER 
DO UNTIL ADDRESS IN EACH BLOCK CHECKED 
* READ CURRENT ADDRESS 


IF HIT THEN 

. IF CURRENT ADDRESS NE GOOD ADDRESS THEN 

° . ERROR 

° ENDIF 

ELSE 

. IF CURRENT ADDRESS EQUAL GOOD ADDRESS THEN 
. ° ERROR 

: ENDIF 

ENDIF 


UPDATE GOOD ADDRESS (ADD #2) 
UPDATE CURRENT ADDRESS 


ENDDO 
UPDATE LOW ADDRESS (ADD #2000) 


“a ENDDO 
;ENDDO 
;DISABLE MMU 
sRESTORE VECTOR 114 
sENDTST 


5 SERRE SESE REESE EERE EEEERESE REESE ESEEESESEEEESEEEEESEE 





SEQ 0327 
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112136 
112140 
112142 


000004 
000240 
005737 
001003 
000240 
000137 
000240 


013737 
012737 
012737 


003032 


112710 


114170 
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001160 
000004 
003016 
172516 
003154 
177520 
177746 
114170 
003152 
172354 
172314 


172314 


114170 
172354 
172354 


172354 
177746 
003020 
114170 


003152 
114144 
001122 
001122 
177746 


114150 
114150 


003020 





TST24: 


99$: 


1$: 


9$: 


2s: 


3$: 
4$: 


10$: 


5$: 
6$: 


E10 
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204, $TMPO 
#20 , 804 
#140000 ,LOWADD 
INITMM 


CCR 

LOWADD, CURADD 
#-400, ALLCTR 
#2000, KIPAR6 


3$ 
#BIT15,KIPDR6 
@CURADD ,R2 
#B1IT15, KIPDR6 
— 
@CURADD 

#2, CURADD 
#200,  KIPAR6 
#177600 , KIPAR6 
10$ 
#200 , KIPAR6 
ALLCTR 

2s 

#BITO02, CCR 
LOWADD, GOODAD 
Ri, GOODAD 
#140000 , CURADD 
CURADD 


#6,R1 

R1, KIPAR6 
#-200, ALLCTR 
#-10, | DCOUNT 
CURADD, $BDADR 


HITMIS, RECDAT 
#BIT2, RECDAT 


7$ 
+ eam GOODAD 


+46 
8$ 


ie 


SEQ 0328 


shave done enough inclusive passes? 
s not yet 

; debug aid 

; yes skip this 


sSTORE TIMEOUT VECTOR 

;POINT NEW 

sINITIALIZE LOW ADDRESS CUSE PAR6) 
sINITIALIZE MMU 

sENABLE MMU 

sENABLE 22-BIT MAPPING 

300 UNTIL ALL BLOCKS TESTED 

300 IN 2 WORDS TO AVOID PMI MEMORY 
;DISABLE HALT ON BREAK 

;SET UP PAR6 FOR THIS TEST 

3FLUSH CACHE AND SET DIAG BIT 

;GET FIRST ADDRESS IN CURRENT BLOCK 
3D0 UNTIL ALL ADDRESSES ALLOCATED 
;IF ADDRESS LESS THAN 32K 

; THEN 

;SET BYPASS 

;STORE CURRENT DATA 

sALLOCATE NEXT ACCESS 

sWRITE ALLOCATE 

;ELSE 

;WRITE CURRENT ADDRESS 

;UPDATE CURRENT ADDRESS 


sREACHED I/0 PAGE? 

sBRANCH IF NOT 

;DON'T UPDATE PAR FOR I/0 PAGE 
;IF ALL ADDRESSES ALLOCATED 
;ENDDO 

;RUN WITH FORCE MISS 
sINITIALIZE GOOD ADDRESS 


; 
;GET FIRST ADDRESS 
sSTART WITH 1 OR 2 LOCATION 


3 

sMAKE SURE ON THE RIGHT BOUNDARY 

;D0 UNTIL ALL LOCATIONS CHECKED 

3D0 UNTIL ADDRESS IN EACH BLOCK CHECKED 
sIN CASE OF ERRORS 

;CLEAR PAR BITS 

;CLEAR FORCE MISS 

sREAD CURRENT ADDRESS 

sSTORE REGISTER 

;IF ACCESS WAS A HIT 


3; THEN 

3;IF CURRENT ADDRESS NOT EQUAL TO GOOD 
;ADDRESS THEN 

;ERROR IN TAG STORE 

Hy 
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TEST - 


18172 
18173 


112710 
112712 


023737 
001001 


114170 


001000 
000004 
114144 


112226 
00 


0004 

177572 
001160 
000020 
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003020 


114170 
177746 


003020 
114170 
172354 


177520 
003016 


177746 


000004 
172516 


7$: 


8$: 


30$: 


15$: 


18$: 


20$: 





F10 
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CURADD, GOODAD 
8$ 


+47 

#1000, CURADD 
#BITO2, CCR 
DCOUNT 


#2000, LOWADD 
OPIN 





IF CURRENT ADDRESS EQUAL GOOD ADDRESS 
3; THEN 


sERROR IN TAG STORE 
sUPDATE TO NEXT BLOCK 
;RUN WITH FORCE MISS 


sENDDO 


sUPDATE GOOD ADDRESS 
s INCREMENT IN 2 WORDS 


sIF ALL ADDRESSES CHECKED 


;ENDDO 


sENABLE HALT ON BREAK 
sPREPARE FOR THE 2ND PASS THRU 


sDONE TWICE? 
sIF SO, EXIT 


sUPDATE TO NEXT BLOCK TO BE ALLOCATED 
;IF ALL BLOCKS WERE TESTED 


3 
;ENDDO 


sCLEAR DIAGNOSTIC BIT 


sDISABLE MMU 


sRESTORE TIMEOUT VECTOR 
sENABLE 22-BIT MAPPING 


+3GO TO NEXT TEST 


sIF ADDRESS NOT CHECKED FOR EACH BLOCK 
! 








ee ha 


G10 
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TEST - STANDALONE MODE TEST 


SEQ 0330 


18203 -SBTTL TEST - STANDALONE MODE TEST 
taaee sTHIS TEST VERIFIES THAT NMX CAN BE CREATED IN STANDALONE MODE. 
3 
18206 sALLOCATE INSTRUCTIONS IN CACHE 
18207 sGUARANTEE MISS ON TEST LOCATION 
18208 sIN STANALONE MODE ACCESS TEST LOCATION 
18209 ;IF NO TIMEOUT THEN 
18210 ts ERROR 
18211 ; ENDIF 
18212 3 
18213 Poti bhe petite titi rier tri tii i tit ti iti tittttttit tt tt tt ttt tt tt ttt ttt 
112714 000004 TST25: SCOPE 
18214 112716 000240 NOP 
18215 112720 005737 003032 TST CCHPAS shave done enough inclusive passes? 
18216 112724 001002 BNE 99$ ; not yet 
18217 112726 000240 NOP ; oe aid 
18218 112730 000452 BR TST26 3:;GO TO NEXT TEST 
prey 112732 000240 99$: NOP 
18221 112734 012737 000400 177746 MOV #400,CCR sFLUSH CACHE 
18222 112742 012701 112742 MOV #.,R1 sSTART WITH CURRENT INSTRUCTION 
18223 112746 005721 1$: TST CR1i)+ sREAD A WORD 
18224 112750 022701 113046 CMP #10$,R1 ;DONE? 
18225 112754 001374 BNE 1$ ;IF NOT, CONTINUE 
18226 112756 005737 020000 TST #20000 ;TO GUARANTY MISS ON O 
18227 112762 013702 000004 MOV a#4 ,R2 sSTORE TIMEOUT VECTOR 
18228 112766 012737 113022 000004 MOV #5$ ,904 sPOINT NEW TO THE TEST 
18229 112774 012737 000340 000006 MOV #340 , 3#6 ;AT PRIORITY 7 
18230 113002 042737 001000 177520 BIC #BITO9,BCSR ;DISABLE HALT ON BREAK 
18231 113010 052737 000400 177520 BIS #BITO8,BCSR :GO TO STANDALONE MODE 
18232 113016 005737 000000 TST a#0 sMISS, SHOULD TIMEOUT 
18233 113022 042737 000400 177520 53: BIC #BITO8,BCSR ;CLEAR STANDALONE BIT 
18234 113030 052737 001000 177520 BIS #BITO9,BCSR sENABLE HALT ON BREAK 
18235 113036 022716 113022 CMP #5$,(CSP) 3; TIMEOUT? 
18236 113042 001401 BEQ 10$ ;IF YES, BRANCH 
18237 113044 104044 ERROR +44 
18238 113046 012706 001100 10$: MOV #1100,SP sRESTORE STACK 
18239 113052 010237 000004 MOV R2,a#4 ;AND TIMEOUT VECTOR 
} 








| “ H10 
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SEQ 0331 
TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
18241 -SBTTL_ TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
18242 sMOVING INVERSIONS TEST FOR DATA RAMS - THE TEST IS STARTED AFTER LOADING THE 
18243 sRAM STORE WITH 0'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL 0’S. THEN A 
18244 s1 IS SUBSTITUTED IN A BIT POSITION AND .THE NEW WORD IS WRITTEN. NEXT THE 
18245 sADDRESS IS READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF 
18246 sTHE WORD LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED 
18247 sPLUGGING IN 0’S TO THE 1'S AND REPEATED TWICE MORE ADDRESSING IN THE DOWNWARD 
18248 sDIRECTION. FINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE 
18249 sLSB. TO SAVE TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING 
18250 sONLY A SINGLE BIT AT A TIME EVERY FOURTH BIT WILL BE DONE CONCURRENTLY. 
18251 sTHIS TEST RUNS IN STANDALONE MODE. 
18252 : 
18253 sBGNTST 
18254 sSETUP AND ENABLE MMU 
18255 sSETUP CCR TO ABORT PARITY ERRORS 
18256 sCLEAR CACHE 
18257 ;D0_ IN STANDALONE MODE FOR EACH HALF SEPARATELY 
18258 sLET FWOSEQ = #1 
18259 sLET ADDLSB = #1 
18260 ;D0 UNTIL ADDLSB EQ #20000 
18261 He LET CURDAT = 0 
18262 i. LET RITEDA = #1 
18263 ; LET NEWDAT = #1 
18264 ; IF FWOSEQ = #1 THEN 
18265 ; . LET FSTADD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
18266 ; ° LET LASTAD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
18267 ; ELSE 
18268 ; . LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
18269 : . LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
18270 ; ENDIF 
18271 ; LET CURADD = FSTADD 
18272 ; LET DCOUNT = #0 
18273 ; SAVE CONTENTS OF VECTOR 114 
18274 ; LET VECTOR 114 POINT TO DATA STORE PARITY ABORT ROUTINE 
18275 ; DO UNTIL DCOUNT EQ #10 
18276 ; . LET RECDAT = @CURADD 
18277 3 IF RECDAT NE CURDAT THEN 
18278 ; : LET R1 EQUAL CURRENT DATA 
18279 i. . ° GOTO DATA STORE PARITY ERROR ROUTINE 
18280 i. ‘ ENDIF 
18281 i. ‘ IF DCOUNT GT #3 THEN 
18282 ; : LET @CURADD = @CURADD CLEARBY RITEDA 
18283 ; ELSE 
18284 ; : LET @CURADD = @CURADD SETBY RITEDA 
18285 ; ENDIF 
18286 ; LET RECDAT = @CURADD 
18287 ; IF RECDAT NE NEWDAT THEN 
18288 ; LET Rl EQUAL NEW DATA 
18289 ; ° GOTO DATA STORE PARITY ERROR ROUTINE 
18290 ; ENDIF 
18291 ; IF CURADD EQ LASTAD THEN 
18292 ; . IF RITEDA = #210 THEN 
18293 ; . IF DCOUNT NE #7 THEN 
18294 ; . LET CURDAT = #377 
18295 ; LET RITEDA = #1 
18296 ; LET NEWDAT = #376 
; 


ENDIF 
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18340 113076 


18342 113100 
18343 113106 
18344 113110 
16345 113114 
18346 113122 
18347 113126 
18348 113134 
18349 113140 
18350 113146 


013737 


003032 


114172 


000200 
114172 








110 
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066032 


177520 
172354 


177746 
001160 


SEQ 0332 


ELSE 
. LET CURDAT = NEWDAT 
ROTATE RITEDA 
IF DCOUNT GT #3 THEN 
LET NEWDAT = NEWDAT CLEAREDBY RITEDA 
° ENDIF 
ENDIF 


INCREMENT DCOUNT 
LET CURADD = FSTADD 


ELSE 
. IF FWOSEQ = #1 THEN 
. LET CURADD = CURADD + ADDLSB 
IF CARRY THEN 
° LET CURADD = CURADD + #1 
. ENDIF 
ELSE 
, LET CURADD = CURADD - ADDLSB 
IF CARRY THEN 
. LET CURADD = LASTAD - ADDLSB 
LET CURADD = CURADD - #1 
ENDIF 
NDIF 


ENDDO 
IF FWOSEQ EQ #1 THEN 
LET FWDSEQ = #0 


ELSE 

‘ ROTATE ADDLSB 

‘ LET FWDOSEQ = #1 
4 ENDIF 
;ENDDO 
sRESTORE VECTOR 114 


sENDTST 


i Sadpdhehthsesppdyththtedadhdadetedeh hhh b bn brt tert ttt ti tit titi itt iti titty 
TST26: SCOPE 


NOP 

TST CCHPAS shave done enough inclusive passes? 

BNE 99$ ; not yet 

NOP ; debug aid 

JMP ENDMOV ; yes skip this 
99$: NOP 

BIT #BITO7,ASWR sRUN THIS TEST? 

BNE 100$ sIF SET, GO DO IT 

JMP ENDMOV s;OTHERWISE, GO TO NEXT TEST 
100$: BIC #1000,BCSR ;DISABLE HALT ON BREAK 

JSR PC, INITMM ;SETUP MEMORY MANAGEMENT 

MOV #2000 , KIPAR6 sSTART ON 32K BOUNDARY 

INC SRO sTURN ON MMU 

BIS #2, CCR ;SET DIAG. BIT 

MOV ava, $TMPO ;SAVE 4 


i: 
sSTORE TEST IN THE FIRST 2K AND THEN IN THE SECOND 2K 


ELSE 
LET NEWDAT = NEWDAT SETBY RITEDA 
3 


ee eee 
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MOVING INVERSIONS TEST 


113322 


113326 


012703 
012704 


052737 
005002 
012767 


140000 
150000 
157777 


150000 
140000 


147777 
113326 


114172 


004000 


114150 
001122 
140000 


177572 


MACRO Y05.02 





FOR DATA RAMS 


001122 


177520 
000004 
177746 


177520 


000502 
000444 


1$: MOV 
2s: MOV 


3$: MOV 


4$: CLR 


5$: CMP 
6$: BIS 


-DSABL AMA 
STMOVI: BIS 


B 
TSTLUP: CLR 





J10 


9147777,R5 
#STMOVI,R2 
R3,RO 
CR2)+,CRO)+ 
en 


RO,RECDAT 
R2, $BDADR 
#140000, $BDADR 
+ 

6$ 

#150000,R3 

1$ 


#BITO9,BCSR 
$TMPO , 204 


#BITO8 , A#BCSR 
R2 


#1, FWOSEQ 
#1, ADOLSB 
#100000 , #KIPDRO 
#KDPARO , 804 
#340, a6 

06, @eKDPARO 
#100000 , A#KIPDRO 
CURDAT 

#21, RITEDA 
#21, NEWDAT 


R4,FSTADD 
RS,LSTADD 

es 

RS,FSTAOD 
R4,LSTADD 
FSTADD, CURADD 
DCOUNT 

#10, . DCOUNT 
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SEQ 0333 


sSTART FOR THE TEST 
sLOWER BOUNDARY TEST AREA 
sHIGH BOUNDARY TEST AREA 


sSTART OF THE TEST 

sLOWER BOUNDARY TEST AREA 
sHIGH BOUNDARY 

sSTART WITH CURRENT 

sMOVE TO UPPER 4K 

;WORD BY WORD 

sALL DONE 


; 
sCLEAR CACHE UNDER TEST 


sGO DO THE ROUTINE 
sANY ERRORS? 

sIF NOT, CONTINUE 
sDATA RECEIVED 
sADDRESS RECIEVED 
s;STRIP OF PAR BITS 


; 
sEXIT 

sDONE FOR BOTH HALVES? 
;IF NOT, DO AGAIN 
sENABLE HALT ON BREAK 
sRESTORE TIMEOUT VECTOR 
sINIT CCR FOR EXIT 
sTURN OFF MMU 

;GO TO NEXT TEST 


sSTANDALONE MODE 

sERROR INDICATOR 

sINIT UPWARD ADDRESSING INDICATOR 
sINIT LSB AND DO LOOP UNTIL SHIFTED OUT 
sNO BYPASS 

sALLOCATE TIMEOUT VECTOR 

sAT PRIORITY 7 

sPUT RETURN 

sBYPASS 

sINIT CURRENT DATA 

sINIT DATA TO BE WRITTEN 

sINIT EXPECTED DATA 

4 - alee UPWARD 


3 THE 

;LET FIRST ADDRESS EQUAL LOWEST VALUE 
ee ADDRESS EQUAL HIGHEST VALUE 

3 

;LET FIRST ADDRESS EQUAL HIGHEST VALUE 
;LET LAST ADDRESS EQUAL LOWEST VALUE 
sLET CURRENT ADDRESS EQUAL FIRST ADDRESS 
:INIT LOOP COUNTER 

300 LOOP 8 TIMES (4 TIMES TO WRITE 1'S 
;AND 4 TIMES TO WRITE BACK O'S) 


ee 





COKDADO KDJ11-B CLUSTER DIAG. 


MOVING INVERSIONS TEST 


113502 016700 000462 
113506 042700 170000 
000004 


113520 022700 000005 
113526 022700 000006 


114022 002015 
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SEQ 0334_—s! 
FOR DATA RAMS 
; DON'T REWRITE TIMEOUT VECTOR 
b 
MOV CURADD, RO ;STORE CURRENT ADDRESS 
BIC #170000,RO ;LEAVE ONLY LOW 4K BITS 
CMP 4, RO ;TIMOUT VECTOR? 
BEQ 8$ ;IF SO, DON’T REWRITE IT 
CMP #5, RO ; 
BEQ 83 : 
CMP #6, RO : 
BEQ 8$ ; 
CMP $7, RO ; 
BEQ 8$ : 
H 
;CHECK PATTERNS NOW 
Hy 
MOV CURDAT, Ri ;MOVE GOOD DATA TO Ri 
000374 MOVB § @CURADD,, RECDAT ;FIRST READ LOCATION 
000400 CMPB = RECDAT, CURDAT ;IF RECIEVED DATA NOT EQUAL TO EXPECTED 
BEQ 1$ ;DATA THEN 
JMP EXBAD ;EXIT TEST 
1s: MOV NEWDAT, R1 ;MOVE GOOD DATA TO Ri 
000342 CMP 03, DCOUNT ;IF LOOP COUNT GREATER THAN 3 
BGE 23 ; THEN 
000356 Bice RITEDA, @CURADD CLEAR TEST DATA BY WRITE DATA 
sEL 
000346 2$: BISB § RITEDA, @CURADD ;SET TEST DATA BY WRITE DATA 
000320 34: MOVB § @CURADD, RECDAT ;D0 READ AFTER WRITE 
000322 CMPB = RECDAT, NEWDAT ;IF RECIEVED DATA NOT EQUAL TO EXPECTED 
BEQ 4$ ;DATA THEN 
JMP EXBAD ;EXIT TEST 
000314 4¢: cH CURADD, LSTADD sf CURRENT ADDRESS EQUALS LAST ADDRESS 
H 
000274 CMP #210,  RITEDA ;AND IF WRITE PATTERN EQUALS LAST 
BNE 5$ ;PATTERN THEN 
000252 CMP 97, DCOUNT ;AND TEST IS NOT ON LAST LOOP 
BEQ 7$ ; THEN 
000260 MOV #377, CURDAT ;SET UP TO WRITE 0'S 
000246 MOV #21, RITEDA 
000242 MOV #356, | NEWDAT 
BR 7% ;ELSE 
000234 5$: HOV NEWDAT, CURDAT ;SET UP FOR NEXT DATA PATTERN 
ROLB = RITEDA 
ADC RITEDA ;GET A PATTERN 
000176 CMP #3, DCOUNT ;AND IF DOWNWARD ADDRESSING 
BGE 6$ ; THEN 
000202 BIC RITEDA, NEWDAT sLET NEWDAT BE CLEARED BY WRITE DATA 
sEL 
000172 6%: BIS RITEDA, NEWDAT ;LET NEWDAT BE SET BY WRITE DATA 
7$: INC DCOUNT ;UPDATE LOOP COUNTER 
000170 MOV FSTADD, CURADD ;REINIT FIRST ADDRESS FOR THIS PASS 
BR 10$ ;ELSE 
8s: TST FWDSEQ ;IF ADDRESSING UPWARD 
BEQ 9$ ; THEN 
000152 ADD ADDLSB, CURADD ;CALCULATE NEXT HIGHER ADDRESS 
CMP RS, CURADD ;IF CURRENT ADDRESS HAS BEEN INCREASED 
BGE 10$ ;ABOVE HIGHEST ADDRESS THEN 


a 








TT 








ue ARR Sine Fl Hy L1i0 bi i at asa | 
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Q 0335 
MOVING INVERSIONS TEST FOR DATA RAMS 


114024 162767 007777 000136 SUB #7777, CURADD sROLL ADDRESS BACK 
114032 000411 BR 10$ sELSE 
114034 16676 000114 000126 9%: SUB ADODLSB, CURADD ;CALCULATE NEXT LOWER ADDRESS 
114042 020467 000122 CMP R4,CURADD sIF CURRENT ADDRESS HAS BEEN DECREASED 
114046 003403 BLE 10$ sBELOW LOWEST ADDRESS THEN 
114050 062767 007777 000112 ADD 07777, CURADD sROLL ADDRESS BACK 
114056 000605 10$: BR BGNTLP sENDDO 
114060 005767 000066 ENDTLP: TST FWOSEQ sIF ADDRESSING UPWARD FINISHED 
114064 001404 BEQ 1$ s THEN 
114066 005067 000060 CLR FWOSEQ 300 ADDRESSING DOWNWARD 
114072 000167 177312 JMP TSTLUP 
114076 012767 000001 000046 1%: MOV #1, FWOSEQ sSET ADDRESSING UPWARD INDICATOR 
114104 006167 000044 ROL ADOLSB sUPDATE LSB TO NEXT POSITION 
114110 022767 020000 000036 ENDLUP: CMP #20000 , ADDLSB sALL DONE? 
114116 001406 BEQ EXITST sENDDO 
114120 000167 177264 JMP TSTLUP 
114124 016700 000020 EXBAD: MOV RECDAT,RO sSTORE RECEIVED DATA 
114130 016702 000034 MOV CURADD ,R2 sSTORE ADDRESS 
114134 042737 000400 177520 EXITST: BIC #BITOS8 , AeBCSR ;OUT OF STANDALONE 
114142 000207 RTS PC 

-ENABL AMA 
114144 000000 DCOUNT: .WORD 0O 
114146 000000 EXPDAT: .WORD - 0 sSTORES EXPECTED (GOOD) DATA FOR COMPARISONS 
114150 000000 RECDAT: .WORD 0O sSTORES RECIEVED DATA TO BE VERIFIED 
114152 000000 FWOSEQ: .WORD 0 sUSED TO INDICATE DIRECTION OF ADDRESSING 
114154 000000 ADDLSB: .WORD 0 sSTORES LEAST SIGNIFICANT BIT FOR RAM TESTS 
114156 000000 RITEDA: .WORD 0O sSTORES WRITE DATA FOR RAM TESTS 
114160 000000 NEWDAT: .WORD 0O sDATA STORE FOR RAM TESTS 
114162 000000 CURDAT: .WORD 0 sDATA STORE FOR RAM TESTS 
114164 000000 FSTADD: .WORD 0 sSTORES FIRST ADDRESS IN ADDRESSING SEQUENCE 
114166 000000 LSTADD: .WORD O sSTORES LAST ADDRESS IN ADDRESSING SEQUENCE 
114170 000000 CURADD: .WORD 0 sSTORES CURRENT ADDRESS FOR RAM TESTS 
114172 ENDMOV : 


TEST 


COKDADO KDJ11-B8 CLUSTER DIAG. 
- MOVING INVERSIONS TEST FOR TAG STORE 











M10 
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-SBTTL TEST - MOVING INVERSIONS TEST FOR TAG STORE 

sMOVING INVERSIONS TEST - THE TEST IS STARTED AFTER LOADING THE RAM STORE 
sWITH O'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL O'S. THEN A 1 IS 
sSUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE ADDRESS 
sIS READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF THE 
sWORD LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED PLUGGING 
sIN O'S TO THE 1'S AND REPEATED TWICE MORE ADDRESS IN THE DOWARD DIRECTION. 
sFINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE LSB. TO SAVE 
sTIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING ONLY A SINGLE 
sBIT AT A TIME EVERY THIRD BIT WILL BE DONE CONCURRENTLY. ALSO NOTE THAT 
sSINCE THE TAG STORE CANNOT BE DIRECTLY ACCESSED THE ENTIRE PATTERN MUST BE 
sDONE BY DOING MEMORY CYCLES TO THE CORRECT BUS ADDRESSES. TO DO THIS THE 
sTEST WILL BE DONE WITH THE DIAGNOSTIC BIT IN THE CCR (BIT 1) SET TOA 1. 
sTHIS TEST RUNS IN STANDALONE MODE. 

; 


’ 
sBGNTST 
sSETUP AND ENABLE MMU 
sSETUP CCR TO ABORT PARITY ERRORS 
300 IN STANDALONE MODE FOR EACH HALF SEPARATELY 
3;LET FWOSEQ = #1 
sLET ADDLSB = #1 
300 UNTIL ADDLSB EQ #20000 
tis LET NEWDAT = 22200 
r LET CURDAT = 0 
IF FWOSEQ = #1 THEN 
. LET FSTADD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 


LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 


ELSE 


ENDIF 
LET DCOUNT = #0 
“2 UNTIL DCOUNT EQ #10 
READ CURADD USING CURDAT AS PAR 
IF MISS THEN 
° ERROR 
ENDIF 


3 

é 

3 

’ 

3 

Hy 

H 

3 

3 

3 

3 

; 

e 

H] 

: WRITE CURADD USING NEWDAT AS PAR 
as > ENDIF 

be ‘ IF HIT THEN 

: ERROR 

3 
3 
3 
o 
3 
é 
3 
3 
D 
3 
3 
3 
; 
; 
Hy 


. . ENDIF 
: . READ CURADD USING NEWDAT AS PAR 
. . IF MISS THEN 


° ERROR 
ENDIF 


IF CURADD EQ LASTAD THEN 
: LET CURDAT = NEWDAT 
IF DCOUNT < #1 THEN 


: . . “eet LET NEWDAT = NEWDAT SETBY RITEDA ROTATED LEFT 
: y é IF DCOUNT > @1 THEN 
: : “tes LET NEWDAT = NEWDAT CLR BY RITEDA ROTATED LEFT 
L 


> . “ - LET NEWDAT = 155400 (NO ALL 1'S) 
F ‘ : ; LET RITEDA = 022200 





SEQ 0336 





—— 











TEST - MOVING INVERSIONS TEST FOR TAG STORE SEQ 0337 


18561 $- . . ENDIF 
. . ° INCREMENT DCOUNT 
° . ELSE 
. ° ” FWOSEQ = #1 THEN 
. . LET CURADD = CURADD + ADOLSB 
° . . IF CURADD GE HIGH ADDRESS THEN 
. . . — LET CURADD = CURADD + 07776 


. . ELSE 
. . ° . LET CURADD = CURADD - ADDLSB8 
° ° ‘ . IF CURADD LE LOW ADDRESS THEN 
. ° . . LET CURADD Ss CURADD = 07776 
° . . ENDIF 
. ENDIF 


’ 
; 
3 
F 
3 
$ 
F 
F 
’ 
F 
186572 F 
3 
: . 
3 ENDIF 
’ ENDDO 
F IF FWOSEQ EQ #1 THEN 
F “ LET FWOSEQ@ = 00 
3 
; ™ ROTATE ADDLSB 
3 LET FWOSEQ = @1 
’ 
sENODD0 
16584 sRESTORE PARITY ABORT VECTOR 
sooee sENDTST 


18587 METI iiITi iii iiiiiiiiiiitiiiititiTiiiiiiiiitiiititiiiiiitititiTity 
114172 000004 TST27: — 


18588 000240 
18589 114176 005737 003032 TST — CCHPAS shave dene enough inclusive pesece? 
18590 114202 001003 BNE —«- 998 5 net yet 

18591 114204 000240 NOP 5 debua ei@ 

18592 114206 000137 115314 JUMP ——s« ENDTAG 5 yee auie thie 


18595 114214 032777 000100 064716 BIT @BIT06, BSWR sRUN THIS TEST? 
18596 114222 001002 BNE 100% sIF SET, GO DO IT 

16597 114224 000137 115314 JMP ENDTAG sOTHERWISE, GO TO NEXT TEST 
16598 114230 042737 001000 177520 100%: BIC #1000,BCSR sDISABLE HALT ON BREAK 
186599 114236 004737 136574 JSR PC, INI TMM sSETUP MEMORY MANAGEMENT 
18600 114242 005237 177572 INC SRO sTURN ON MMU 

18601 114246 012737 000020 172516 MOV @6IT04 , MARS sENABLE 22-BIT MAPPING 
18602 114254 052737 000002 177746 61S e2, CCR sSET DIAG. BIT 

18603 114262 013737 000004 001160 mov 904, $TMPO sSTORE TIMEOUT VECTOR 


a 
pees sSTORE TEST IN THE FIRST 2K AND THEN IN THE SECOND 2k 

é 
18607 114270 012703 140000 MOV #140000 ,R3 sSTART FOR THE TEST 
18608 114274 012704 130000 MOV #130000 ,R4 sLOWER BOUNDARY TEST AREA 
18609 114300 012705 137776 MOV + aaah oRS sHIGH BOUNDARY TEST AREA 


000406 
18611 114306 012703 150000 i$: MOV #150000 ,R3 sSTART OF THE TEST 
18612 114312 012704 120000 MOV #120000 ,R4 sLOWER BOUNDARY TEST AREA 
18613 114316 012705 127776 MOV 127776 ,R5 sHIGH BOUNDARY 
18614 114322 012737 002000 172354 2%: MOV @2000 , KIPAR6 sABOVE 32K 
18615 114330 012702 114134 MOV @EXITST,R2 sSTART WITH CURRENT 


| N10 
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| 18616 114334 010300 MOV R3,RO sMOVE TO UPPER 4K 
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01.6767 


016700 
042700 
022700 
001526 





TEST - MOVING INVERSIONS TEST 
| 


115314 


114450 
114134 


001122 
160000 


177354 
177352 


177342 
177340 
177312 
177326 


177324 
170000 
000004 


001122 


000004 
177746 


177520 


177520 
172312 
172300 
000004 


000006 
172360 
172300 


177402 
177376 


177370 
177360 


177330 


4$: CMP 
S$: MOV 


-DSABL AMA 
STMOVT: BIS 


4$: CLR 


TSLOOP: 


Bil 
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FOR TAG STORE 
3$: MOV 


CR2)+,CRO)+ 
——s 
@STMOVT ,RO 
@EXITST,RO 


RO, $BDADR 
#160000, $BDADR 
«50 

S$ 

#150000 ,R3 

i$ 


$TMPO, a04 
#400, CCR 
SRO 


MMR 
#1000,BCSR 
ENDTAG 


#BITOS ,BeBCSR 
@BIT1S, BOKIPORS 
#100000 , 8@KIPDRO 
@KDPARO , 804 
#340, 896 

96, @eKDPARO 
#100000 , 8K IPDRO 
QeKIPARS 


#1, FWOSEQ 
#2, ADOLSB 
CURDAT 

#22200 ,NEWDAT 

#22200.RITEDA 


R4, FSTADD 
RS, LSTADD 


RS, FSTADD 
R4, LSTADD 


DCOUN 

FSTADD, CURADD 
TIMEOUT VECTOR 
CURADD, RO 
#170000 ,RO 


04, RO 
16$ 


A A 





SEQ 0338 


sWORD BY WORD 
sALL DONE? 


i 
sADDRESS OF ROUTINE 
sPROPER OFSET 


3 

3GO0 DO THE ROUTINE 
sANY ERRORS? 

3; CONTINUE 

sSTORE FAILED ADORESS 
;CLEAR PAR 


sEXIT TEST 

sD0NE FOR BOTH HALVES? 
sIF NOT, DO AGAIN 
sRESTORE TIMEOUT VECTOR 
sINIT CCR FOR EXIT 
sTURN OFF MMU 


‘ 
sENABLE HALT ON BREAK 
sEXIT TEST 


sSTANDALONE MODE 

sNO BYPASS 

;NO BYPASS 

- - ie TIMEOUT VECTOR 
3 

sPUT RETURN 

;BYPASS 


; 
sCLEAR CACHE UNDER TEST 
; 
; 


3 - 

;CLEAR ERROR FLAG 

;SET UPWARD ADDRESSING INDICATOR 
sINITIALIZE LEAST SIGNIFIGANT BIT 
;OLD DATA 

sSET ADDRESS BITS 

sSET ADDRESS BITS 

3IF ADDRESSING UPWARD 

3; THEN 

sFIRST ADDRESS WILL BE LOWEST ADDRESS 
oe ae ADDRESS WILL BE HIGHEST 

3 

sFIRST ADDRESS WILL BE HIGHEST ADDRESS 
;AND LAST ADDRESS WILL BE LOWEST 
sINITIALIZE LOOP COUNTER 


sSTORE CURRENT ADORESS 
sLEAVE ONLY LOW 4K BITS 
sTIMOUT VECTOR? 

sIF SO, DON'T REWRITE IT 





COKDADO KDJ11-8 CLUSTER DIAG. 
MOVING INVERSIONS TEST 


114656 
114662 
114664 
114672 
114676 
114704 
114712 
114714 
114720 
114726 


115230 


177272 
177272 
177752 
000004 


000346 
177234 
177236 
177752 
000004 
000010 
000302 
177200 
177752 
000004 


000254 
177150 


177132 
000001 


177112 
177106 


000001 


022200 
155400 


177050 
177044 


177022 
177036 


177014 


177010 
177016 


007776 


176764 
176772 


007776 
000005 


177416 
176724 


176716 








Cil 
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FOR TAG STORE 


172352 
177244 
177236 
172352 


177210 
177202 


177172 


177152 
177144 


177150 
177132 
177106 


177106 
177062 
177064 
177060 
177044 


177040 


177022 


177006 
176776 


176762 
176730 


S$: 


6$: 


8$: 
10$: 


9$: 
11$: 


12$: 


13$: 


14$: 


15$: 


16$: 


17$: 


06, RO 

16$ 

CURDAT, @#KIPARS 
@CURADD 

QOHITMIS ,RECDAT 
me RECDAT 


EXBAD2 

NEWDAT, @@KIPARS 
@CURADD 

SPHITMIS ,RECDAT 
~ rhea RECDAT 


9 
#BITO3, RECDAT 
9$ 


EXBAD2 

@CURADD 
QOHITMIS ,RECDAT 
#BITO2, RECDAT 
12$ 

EXBAD2 

LSTADD, CURADD 
16$ 
NEWDAT , CURDAT 
#1, OCOUNT 


RITEDA, NEWDAT 
#1, DCCUNT 


#22200, RITEDA 
#155400, NEWDAT 
15$ 

RITEDA 

RITEDA, NEWDAT 
15$ 

OCOUNT 

FSTADD, CURADD 


ADDLSB, CURADD 
RS, CURADD 


CURADD 


ADDLSB, CURADD 
R4, CURADD 


CURADD 
#S, DCOUNT 





SEQ 0339 


sOR PRIORITY 


3 
sGET OLD PATTERN 
sOLD DATA OK? 


:IF ACCESS WAS A MISS 
3 THEN 


sERROR, EXIT 
sGET NEW PATTERN 
sREGISTER AND WRITE LOCATION 


;IF ACCESS WAS A HIT 
3 THEN 


sMISS? 
sIF SO, CONTINUE 
sERROR 


;REGISTER AND READ LOCATION 
sIF ACCESS WAS A MISS 
THEN 


3 
sERROR, EXIT 
— ADDRESS IS LAST ADDRESS 
; 

sNEW KIPARS 
sIF LOOP COUNTER LESS THAN 1 
; THEN 

sUPDATE OF NEW DATA 
sBY SETTING BITS 
ENDIF 

sCHANGE PATTERN? 
sIF SO, BRANCH 
sSTART WITH THE SAME 
sDON'T DO ALL 1'S 


3 
sUPDATE OF NEW DATA 
;BY CLEARING BITS 
sELSE 

sINCREMENT THE LOOP COUNTER 
sFINISH FIRST CURRENT ADDRESS 


;ELSE 

3IF ADDRESSING UPWARD 
; THEN 

;ADD THE VALUE OF THE CURRENT LSB 

;IF CURRENT ADDRESS GREATER THAN HIGHEST 
;VIRTUAL ADDRESS THEN 

sROLL IT BACK 
sELSE 

;IF ADDRESSING DOWNWARD THEN SUBTRACT LSB 
3;IF CURRENT ADDRESS LESS THEN LOWEST 
;VIRTUAL ADDRESS THEN 

sROLL IT BACK 
;IF LOOP COUNTER LESS THAN 7 

;THEN LOOP BACK FOR NEXT BIT POSITION 


. A eas UPWARD 
sSTART ADDRESSING DOWNWARD 
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INVERSIONS TEST FOR TAG STORE 


TEST - 


MOVING 


115314 


177316 
000001 
176702 
020000 


177270 
172352 
176672 
001200 
000400 


MACRO YOS.02 


176704 
176674 


172352 
177520 





JMP 
19%; MOV 
ROL 
CMP 
BEQ 
JMP 
EXBAD2: MOV 
MOV 
TSEND: MOV 
BIC 
RTS 
ENDTAG: 
-ENABL AMA 


Dili 


BOKIPARS ,R1 
CURADD, RO 
#1200, @#KIPARS 
-_ aeBCSR 
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sELSE 





sSTART ADURESSING UPWARD 
sROTATE LSB TO NEXT POSITION 


;ALL DONE? 
s;EXIT 

sENDDO 
sSTORE PAR 
;AND ADDRESS 
sRESTORE PAR 


sOUT OF STANDALONE MODE 


sRETURN 








was Fil 
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SEQ 034 
TEST - PCR READ/WRITE BITS . 

18746 -SBTTL TEST - PCR READ/WRITE BITS 

18747 :PCR AND BCSR READ/WRITE BITS 

18748 sTHE FIRST TEST WILL CHECK THAT PCR REGISTER IS BOTH WORD AND 

18749 sBYTE ADDRESSABLE. BITS 14-09 AND 06-01 WILL BE WRITTEN AND READ 

18750 sAS ZEROES AND ONES. THE REST OF THE BITS HAVE TO BE ALL O'S. 

18751 sROUTINE TEST 

18752 Hs SAVE PCR 

18753 Bs LET PCR=0 

18754 3 “a FOR PATTERN=001111,110011,101010,010101 

18755 ; WRITE PCR<14- 09>=PATTERN 

18756 F WRITE PCR<06-01>=PATTERN 

18757 3 IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PREVIOUS 

18758 3 PATTERN 

18759 ; ‘ THEN ERROR 

18760 i. ENDIF 

18761 is WRITE PCR<06-01>=PATTERN 

18762 3 IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PATTERN 

18763 3 ‘ THEN ERROR 

18764 ; ENDIF 

18765 8 ENDDO 

18766 3 WRITE PCR=0101010101010101 

18767 8 IF PCR NE 0101010001010100 THEN 

18768 3 , ERROR 

18769 is ENDIF 

18770 s ENDROUTINE 

18771 

18772 Titbip pepe ttititii titi i titi iti titi ttt tt iti tt TTtTTTTTTTTTTTTTT Tet 

115314 000004 TST30: SCOPE 

18773 115316 005037 177522 CLR PCR sINITIALIZE PCR TO O 
. ah 115322 012702 115461 MOV #SIXBIT+1,R2 sR2->TABLE OF PATTERNS FOR 6 R/W BITS IN EAC 

Y 

18775 115326 012704 115460 MOV @SIXBIT,R4 3R3 POINTER TO PREVIOUS PATTERN 

pe 115332 012703 000004 MOV #4,R3 :D0 4 TIMES 

18 3 

18778 ; WRITE TO HIGH BYTE FIRST 

18779 3 

18780 115336 111237 177523 1$: MOVB CR2),PCRe1 ;sWRITE TO HIGH BYTE 

18781 115342 121237 177523 CMPB CR2),PCRe1 sBYTE WRITTEN OK? 

18782 115346 001003 BNE 2s ;IF NOT, BRANCH 

18783 115350 121437 177522 CMPB CR4),PCR ;LOW BYTE CHANGED? 

18784 115354 001405 BEQ 3$ 3IF NOT, BRANCH 

18785 115356 111237 001125 2s: MOVB (R2), $GDDAT+1 sEXPECTED PATTERN HIGH BYTE 

18786 115362 111437 001124 MOVB CR4), $GDDAT ;LOW BYTE 

18787 115366 104051 ERROR «51 sERROR PCR READ/WRITE BITS 

deed 115370 105724 3$: TSTB CR4)- sINCREMENT POINTER FOR OLD 

1 F 

dkny ; WRITE TO LOW BYTE 

1 1 3 

18792 115372 111237 177522 MOVB (R2),PCR sWRITE TO LOW BYTE 

18793 115376 121237 177522 CMPB | PCR sBYTE WRITTEN OK? 

18794 115402 001003 BNE 3;IF NOT,BRANCH 

18795 115404 121237 177522 CMPB (R2), PCR sHIGH BYTE CHANGED? 

18796 115410 001405 BEQ 5$ 3IF NOT, BRANCH 

18797 115412 111237 001124 4$: MOVB (R2), $GDDAT sEXPECTED PATTERN HIGH BYTE 

18798 115416 111237 001124 MOVB (R2). $GDDAT ;LOW BYTE 

18799 115422 104051 ERROR +51 sERROR PCR READ/WRITE BITS 
| 18800 115424 105722 5$: TSTB CR2)+ s INCREMENT POINTER FOR NEW PATTERN 

18801 115426 077335 SOB R3,1$ 3:00 FOR ALL 4 PATTERNS 




















__ 


SEQ 0342 

TEST - PCR READ/WRITE BITS 

18802 ; 

eek ; NOW TRY WORD ADDRESSING 

18805 115430 012737 052525 177522 MOV #52525 ,PCR sWRITE A PATERN 

18806 115436 022737 052124 177522 CMP #52124,PCR sALL BUT BITS <8,7,0> OK? 

18807 115444 001404 BEQ 6$ sIF SO, BRANCH 

18808 115446 112737 052124 001124 MOVB #52124, $GDDAT sEXPECTED PATTERN 

18809 115454 104051 ERROR +51 sERROR PCR READ/WRITE BITS 

18810 115456 6$: 

or 115456 000403 BR TST31 33GO TO NEXT TEST 

18812 115460 060 036 146 SIXBIT: .BYTE 0,36,146,124,52 3001111,110011,101010,010101 

pease even sBINARY DIVIDE FOR 6 BITS 


if 

| 
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| 

' 


‘. a SS A Te ~- 


— 
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TEST - BCSR READ/WRITE BITS 


115466 
115470 
115476 


115502 
115506 
115512 
115516 
115522 
115526 
115532 
115534 
115536 
115542 
115546 
115552 
115554 
115556 


115560 
115566 
115574 
115576 


000004 
013737 
005037 


012703 
005037 
012702 
111337 
111337 
122337 
001401 
104052 
111337 
111337 
122337 
001401 
104052 
077221 


012737 
032737 
001403 
005037 





bbe ag 002730 


177520 


115726 
001124 
00000 


3 
177520 
001124 
177520 


177520 
001124 
177520 


000010 
000010 


001124 


177520 
177520 
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SEQ 0343 


;THE SECOND TEST WILL CHECK THAT BCSR<7-5;2-0> CAN BE WRITTEN AND 
sREAD AS ZEROES AND ONES. BCSR<14,03> SHOULD BE 0'S. BCSR<04> 
sSHOULD BE CLEARED BY RESET INSTRUCTION. 
sROUTINE TEST 
i. Ange PATTERN=011,010,101 DO 
WRITE BCSR<7-5>=PATTERN 
IF BCSR<7-5> NE PATTERN THEN 
ERROR 


ENDIF 
WRITE BCSR<2-0>=PATTERN 
IF BCSR<2-0> NE PATTERN THEN 


-SBTTL_ TEST - BCSR READ/WRITE BITS | 


¥ ERROR 

° ENDIF 

ENDDO 

IF BCSR<14,03> NE <0,0> THEN 
ERROR 

ENDIF 


LET BCSR<04>=1 

IF BCSR<O04> NE #1 THEN 
° ERROR 

ENDIF 


EXECUTE “RESET” 
IF BCSR<04> NE O THEN 
° ERROR 


ENDIF 
LET BCSR<04>=0 (THIS BIT IS WRITE ENABLE FOR EAROM) 


ENDROUTINE 
HN Iadacpshshshbdadchthhehtbbhhhe pert eri ti iti ti tititittt itt iti tt ttt ttt 
TST31: SCOPE 
MOV BCSR, SAVBR sSAVE BCSR 
CLR BCSR ;CLEAR BCSR 
; 
; WRITE TO BITS <7-5> AND <2-0> 
5 
MOV #THRBIT,R3 sPOINTER FOR PATTERN TABLE 
CLR $GDDAT s;CLEAR A LOCATION 
MOV #3,R2 :D0 FOR ALL PATTERNS 
1$: MOVB (R3),BCSR sWRITE TO BITS <7-5> 
MOVB (R3),$GDDAT sEXPECTED PATTERN 
CMPB C(R3)+,BCSR sBITS WRITTEN OK? 
BEQ 2s IF SO, BRANCH 
ERROR +52 sERROR IN BCSR READ/WRITE BITS 
2s: MOVB (R3),BCSR sWRITE TO BITS <2-0> 
MOVB €R3),$GDDAT sEXPECTED PATTERN FOR ERRORS 
CMPB (R3)+,BCSR sBITS WRITTEN OK? 
BEQ 3$ :IF SO, BRANCH 
ERROR +52 sERROR IN BCSR READ/WRITE BITS 
3$: SOB R2,1$ sCONTINUE TILL ALL PATTERNS DONE 
3 — 
; CHECK UNUSED BITS <3> 
MOV #10,BCSR sWRITE TO BIT <3> 
BIT #BITO3,BCSR sALL ZEROES? 
BEQ 4s ;IF YES, BRANCH 
CLR $GDDAT sEXPECTED PATTERN 
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TEST - BCSR READ/WRITE BITS 


18873 115602 


18897 115724 
18899 115726 
900 


104052 


052737 
032737 


000020 
000020 


000020 
000020 
000020 
001124 
001206 
000020 
000020 


000020 
002730 


003 
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177520 
177520 


001124 


177520 
177520 


177520 
177520 


177520 
177520 


100 


’ 

; CHECK 
3 

4$: 


S$: 


6$: 
7$: 


8$: 


THRBIT: 








Hii 
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SEQ 0344 


ERROR +52 sERROR IN BCSR READ/WRITE BITS 
THAT BIT <4> CLEARS BY RESET 

BIS #BITO4,BCSR sSET BIT 4 

BIT #BIT04,BCSR sWRITTEN OK? 

BNE S$ :IF SO BRANCH 

MOV #BIT04, $GDDAT sEXPECTED PATTERN 

ERROR +52 sERROR IN BCSR READ/WRITE BITS 
BR 7$ sEXIT TEST 

BIC #BIT04,BCSR s;TRY TO CLEAR BIT 4 

BIT #BIT04 ,BCSR sCLEARED OK? 

BEQ 6$ sIF SO BRANCH 

CLR $GDDAT sEXPECTED PATTERN 

ERROR +52 sERROR IN BCSR READ/WRITE BITS 
TST $PASS sFIRST PASS? 

BNE 8$ sIF NOT FIRST PASS,EXIT 

BIS #BITO4,BCSR sSET BIT 4 AGAIN 

RESET sEXECUTE RESET 

BIT #BITO4 ,BCSR sBIT 4 CLEARED? 

BEQ 8$ sIF YES, BRANCH 

ERROR +53 sRESET DOESN'T CLEAR BCSR<4> 
Bic #BITO4 ,BCSR ;CLEAR BIT 4 

MOV SAVBR,BCSR sRESTORE BCSR 

BR TST32 3sGO TO NEXT TEST 

-BYTE 140,3,100,2,240,5 3011,010,101 FOR BITS <7-5,2-0> 
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TEST - 16 BIT ROM CHECKSUM TEST 


115734 
115736 
115744 
115752 


115760 
115762 
115766 
115772 
115776 
116000 
116004 
116010 
116014 
116020 
116022 


005722 
022702 


177520 
000340 
001000 


177522 
002724 
001160 


173000 
165000 
002724 
001160 


000776 
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-SBTTL TEST 
sROM'S CHECKSUMS 


i 
316 BIT ROM TEST 





- 16 BIT ROM CHECKSUM TEST 


tii 


sTHE FIRST TEST WILL CLEAR BCSR<07>, LOAD PCR<14-09> WITH 

sROM ADDRESS BITS <14-09>, AND CHECK CHECKSUMS OF 16-BIT ROM 

sBY ACCESSING IT THRU BUS ADDRESSES 173000-173776. THEN WITH 
sBCSR<06;05> BOTH CLEAR, PCR<06-01> USED AS ADDRESS BITS 14-09, 

;THE SAME THING WILL BE DONE BY ADDRESSING 16-BIT ROM THRU BUS ADDRESSES 
3165000-165776. THE RESULTS SHOULD BE THE SAME AND SHOULD COMPARE 

sWITH THAT STORED IN THE BOOT AND DIAGNOSTIC ROM. 


; 

:BCSR <07 
; <06 
; <05 


> 
> 
> 


; ROUTINE TEST 
LET BCSR<7,6,5>=0,0,0 


DISABLE 17 
DISABLE 17 


ROM SOCKET 3 AT 17765000 


773000 
765000 


ds 
3 DO FOR Ri FROM #0 TO #31. BY #1 DO 
; . LET PCR<14-09>=R1 
3 DO FOR R2 FROM #0 TO #776 BY 2 
3 ‘ ‘ CALCULATE CHECKSUM THRU 173000 
3 . ENDDO 
3 ENDDO 
; IF CHECKSUM NE #0 THEN 
: ‘ ERROR 
.. ENDIF 
ds DO FOR Ri FROM #0 TO #31. BY #1 
Bs “ LET PCR<06-01>=R1 
3 DO FOR R2 FROM #0 TO #776 BY 2 
; ‘ CALCULATE CHECKSUM THRU 165000 
H ENDDO 
F ENDDO 
H IF CHECKSUM NE #0 THEN 
3 : ERROR 
ts ENDIF 
; ENDROUTINE 
PEt iT it tt itititiiiiiiitiitiiiiiitiiititititititiiittttit titi itty 
TST32: SCOPE 
002730 MOV BCSR,SAVBR ;SAVE BCSR 
177520 BIC #BITO7!BITO6!BITOS,BCSR :READ 16 BIT ROM 
177520 BIS #1000,BCSR ; enable HOB, for APT 
F 
; CALCULATE LOW BYTE CHECKSUM’S THRU 173000 AND 165000 
3 
CLR R1 ;PAGE COUNT FOR ALL 8K 
CLR PCR ;CLEAR PAGE CONTROL REGISTER 
i$: CLR ACTCHS ;CLEAR CHECKSUM AT 173000 
CLR $TMPO 3AT 165000 
CLR R2 ;CLEAR COUNTER THRU A PAGE 
2$: MOV 173000(R2),R3 ;GET LOW BYTE THRU 173000 
MOV 165000(R2),R4 sTHRU 165000 
ADD R3,ACTCHS ;CALCULATE CHECKSUM THRU 173000 
ADD R4,$TMPO ;CALCULATE CHEKCSUM THRU 165000 
TST CR2)+ ;GET NEXT WORD 
CMP #776,R2 ;WORD BEFORE LAST? 











SEQ 0345 


KDJ11-B8 CLUSTER DIAG. 


16 BIT 





ROM CHECKSUM TEST 


001004 
020337 
001401 


042737 
013737 


177522 


001000 
002724 


001160 


000002 
177522 
177523 
000160 


002724 
001160 


173000 
165000 
002724 
001160 
001000 
000176 
173774 177522 


000002 
177522 
177523 
000200 


002724 
001160 


177522 
001000 177520 
177520 002730 


MACRO YOS.02 


3$: 


4$: 


5$: 


F 
; CHECK 
F 

LASTCH: 


1$: 
2s: 


3$: 


4$: 


5$: 


6$: 
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BNE 3$ 
CMP R3,PCR 
BEQ 3$ 
ERROR +54 
CMP #1000 ,R2 
BGT $ 
TST ACTCHS 
BEQ 4$ 
ERROR +54 
TST $TMPO 
BEQ S$ 
ERROR +54 
ADD #2,R1 
MOVB R1i,PCR 
MOVB R1,PCRe1i 
CMP #160,R1 
BGT i$ 
THE LAST 2K OF ASCII TEXT 
CLR ACTCHS 
CLR $TMPO 
CLR R2 
MOV 173000(R2),R3 
MOV 165000(R2),R4 
ADD R3,ACTCHS 
ADD R4,$TMPO 
TST CR2)+ 
CMP #1000,R2 
BGT 2s 
CMP #176,R1 
BNE 4$ 
CMP. 173774,PCR 
BEQ 4$ 
ERROR +54 
ADD #2,R1 
MOVB R1,PCR 
MOVB R1,PCRe1 
CMP #200,R1 
BGT i$ 
TST ACTCHS 
BEQ 5$ 
ERROR +54 
TST $TMPO 
BEQ 6$ 
ERROR +54 
CLR PCR 
BIC #1000, BCSR 
MOV BCSR,SAVBR 


;IF NOT, BRANCH 

sPAGE NUMBER STORED 0K? 
;IF YES, BRANCH 

sPAGE NUMBER STORED WRONG 
;LAST WORD IN A PAGE? 

;IF NOT, BRANCH 

sCHECKSUM 0? 

;IF YES, BRANCH 

:IN CHECKSUM AT 173000 
;CHECKSUM O AT 165000? 
:IF YES, BRANCH 

:IN CHECKSUM AT 165000 
;GET NEW PAGE 

sSTORE IN PCR<6-1> 

;STORE IN PCR<14-9> 

;ALL PAGES IN R2 FROM BIT1? 
:IF NOT BRANCH 


;CLEAR CHECKSUM AT 173000 
sAT 165000 

;CLEAR COUNTER THRU A PAGE 
;GET LOW BYTE THRU 173000 
sTHRU 165000 

sCALCULATE CHECKSUM THRU 173000 
;CALCULATE CHEKCSUM THRU 165000 
;GET NEXT WORD 

sLAST WORD IN A PAGE? 

;IF NOT, BRANCH 

;LAST PAGE? 

;IF NOT, BRANCH 

sPROPER PAGE NUMBER? 

;IF YES, BRANCH 

sERROR IN ROM 

;GET NEW PAGE 

sSTORE IN PCR<6-1> 

sSTORE IN PCR<14-9> 

;ALL PAGES IN R2 FROM BIT1? 
3;IF NOT BRANCH 

sCHECKSUM 0? 

;IF YES, BRANCH 

:IN CHECKSUM AT 173000 
;CHECKSUM O AT 165000? 

;IF YES, BRANCH 

;IN CHECKSUM AT 165000 
sCLEAR PCR 

; reset HOB for APT 

sRESTORE BCSR 





4 


SEQ 0346 
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ee ee 
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TEST - 8 BIT EEROM CHECKSUM (105dec bytes) TEST 


013737 


177520 002730 
000100 177520 
000040 177520 
001160 


177522 
002724 


165000 
001160 


000316 
000252 


000322 
165010 001162 
001160 


177522 
002730 177520 


-SBTTL TEST 


K11 
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- 8 BIT EEROM CHECKSUM (10Sdec bytes) TEST 


sTHIS TEST WILL CLEAR BCSR<6>, SET BCSR<5>, LOAD PCR<5-1> 


sWITH ADDRESS BITS 13-09, AND CHECK CRC PATTERNS OF 8-BIT EEROM BY 
sACCESSING IT THRU ADDRESSES 165000-165776. THIS TEST VERIFIES THE 
sRESPONSE ONLY OF THE BASE AREA. 


“;ROUTINE TEST 


i. LET BCSR<5>=1 


CALCULATE CHECKSUM FOR THE FIRST 320 LOCATIONS 


§ Ff EEKEEEERERESESEEEEEEEEREEEEREEEREEEEEEREEEEKREEEEEEEEEEESEEEEEESE 


Be LET OLDCRC=#0 
- LET PCR<05-01>=#0 
te 
oe IF RESULTING CHECKSUM NOT ZERO THEN 
Bs ERROR 
Se ENDIF 
s ENDROUITNE 
TST33: SCOPE 
MOV BCSR,SAVBR 
BIC #BITO6,BCSR 
BIS #BITOS,BCSR 
CLR $TMPO 
3 
; CALCULATE LOW 
3 
1$: CLR R1 
CLR PCR 
2s: CLR ACTCHS 
CLR R2 
3$: MOVB 165000(R2),R4 
ADD R4,$TMPO 
TST CR2)+ 
CMP #316,R2 
BNE 4$ 
CMPB #252 ,R4 
BEQ 3$ 
ERROR +55 
4$: CMP #322 ,R2 
BGT 3$ 
MOVB 165010, $TMP1 
TSTB $TMPO 
BEQ 5$ 
ERROR +55 
CLR PCR 
MOV SAVBR,BCSR 


BYTE CHECKSUM'S THRU 165000 


sSAVE BCSR 


sENABLE INTERNAL RESPONSE 
sSELECT 8-BIT ROM 


;CLEAR SUM 


;PAGE COUNT FOR ALL 8K 
sCLEAR PAGE CONTROL REGISTER 
sCLEAR CHECKSUM AT 165000 
;CLEAR COUNTER THRU A PAGE 
sGET A BYTE THRU 165000 
sCALCULATE CHEKCSUM THRU 165000 
sGET NEXT WORD 

sWORD BEFORE LAST? 

sIF NOT, BRANCH 

3314 SHOULD HAVE 252 

sIF YES, BRANCH 

sPAGE NUMBER STORED WRONG 
sLAST WORD IN A PAGE? 

sIF NOT, BRANCH 

sSTORE SIZE,<3>=1 2K 
sCHECKSUM O AT 165000? 

sIF YES, BRANCH 

sIN CHECKSUM AT 165000 


sRESTORE BCSR 





SEQ 0347 








SEQ 0348 
TEST - 8-BIT EAROM READ-WRITE - TEST 
pes -SBTTL TEST - 8-BIT EAROM READ-WRITE - TEST 
19058 This test writes a checkerboard pattern of alternating 1's and 0's in 


19111 116422 001006 BNE i$ ; on first pass ( 0) 
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; 
19059 3; 8-bit EAROM. a 
19060 ; All base area 316 octal locations ere saved. (105 dec plus 4 customer loc.) 
19061 s It will run only if bit 12 is set in software switch register. 
19062 ; This is the eerom test enable, setable at runtime by an operator. 
19063 ; on error is prohibited, as it would be possible to destroy the EEROM 
19064 ; in @ relativly short time with repeated write cycles. The option to 
19065 ; continue beyond a single error is selected by by asserting the halt on 
soesT ; error switch at which time the operator may truncate the test. 
3 
19068 s The switches which could affect the EEROM’s life are masked out and 
tos +4 ; restored in the test immediatly following this one. <<<<<eseseees 
$ 
19071 3; This test will be not be done if there is an APT system present, or if 
19072 ; bit #12 of the Software Switch register is not set. If Bit 12 is set and 
19073 ; there is no APT system present (or in load mode), the EEROM test will be 
pa des ; run 1 time, ell subsequent passes will not include the EEROM test. 
$ 
19076 ’ 
19077 3 -- SECTION 1 
19078 3+ SAVE BASE AREA 
19079 3¢ 
19080 s¢ 
19081 s¢ 
19082 3+ TEST -- SECTION 2 
19083 3+ 
19084 3+ 2K PROCEDURE 
19085 3+ do while NOT$DONE$2000 
19086 :¢ Write 10101010 (252 oct) 
19087 3¢ delay 
19088 i¢ read 10101010 (252 oct) 
19089 3¢ update error list if incorrect read 
19090 3* enddo 
19091 :* do while NOT$DONE$2000 
19092 3° write 01010101 (125 oct) 
19093 +¢ delay 
19094 3¢ read 01010101 (125 oct) 
19095 i* update error list 
19096 3¢ enddo 
19097 3¢ 
19098 
19099 ; CLEANUP -- SECTION 3 
19100 3 communicate failure mode and loc info 
19101 ; restore base erea (105) + 4 customer locations 
19102 3; restore registers 
19103 ; RESTORE BACK BASE AREA 
19104 F 
19105 ’ 
19106 Tittiiitiiiiiititiitiitiiitititiiitiiiitiiitititiiittitiitiititiiiitiiiiiiiiiiy | 
19107 
19108 PPETii iti i iii iiiitiiiititiiiititiiiiiititititiitiiiiititiiiiiiiii) 
116406 000004 TST34: SCOPE 
19109 116410 017737 062524 003050 MOV @SWR , SAVSWR sSAVE SOFTSWITCH SETTINGS 
19110 116416 005737 001206 TST $PASS :do only once, iff all cond. 0.K. 
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TEST - 8-BIT EAROM READ-WRITE - 


19112 116424 000240 
19113 


19115 116426 032777 
19116 116434 001016 
19117 116436 000240 
19118 116440 000137 
19119 116444 015 


19140 116562 005037 


010000 


116770 
012 


143762 
177522 


165000 
000334 


000252 
003022 


177522 


165000 
116754 
165000 


003022 
165000 
177522 
001122 


000776 


000002 
000020 


000125 
000125 
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TEST 


062504 


116 


003050 
062426 
002730 
177520 


001126 


177522 
177522 





NOP 
; CMPB @APTENV, $ENV 
3 BEQ i$ 
BIT #BIT12,aSWR 
BNE 2s 
NOP 
1$: JMP TSTEND 
33%: -ASCIZ 
-EVEN 
+ save base erea, switch registers 
2s: TYPE ,33$ 
MOV @SWR , SAVSWR 
BIC #41777, @SWR 
MOV BCSR,SAVBR 
BIS #1060,BCSR 
NOP 
MOV #$POQWER+10,R1 
CLR PCR 
CLR R2 
3% MOV 165000(R2),(R1)+ 
TST CR2)+ 
CMP #334 ,R2 
BGT 3$ 
3; test 2K section 
MOVB #252, R3 
CLR ERRCNT 
2018: NOP 
CLR PCR 
202%: NOP 
CLR R2 
203): NOP 
MOVB R3, 165000(R2) 
JSR PC, DELAY 
CMPB R3,165000(R2) 
BEQ 204% 
INC ERRCNT 
MOVB 20> aia $BDDAT 
MOV PCR 
MOV R2, SBDADR 
ERROR +134 
NOP 
2048: TST CR2)+ 
CMP 0776,R2 
BGT 203% 
ADD #2,PCR 
CMPB #20,PCR 
BNE 202% 
CMPB #125,R3 
BEQ 205% 
MOVB #125,R3 
BR 201% 








Mii 
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SEQ 0349 


no, do ine 
SIN APT ? 
3; <IF YES, EXIT TEST> 
; bit 12 Cdo EEROM test) set? 
F 


exit point for program 


<15><12>/NOW TESTING EEROM/<15><12> 





s INDICATE EEROM TEST UNDERWAY 
3 save softswitch settings 
; clear any interferring 
sSAVE REGISTER 

sENABLE INTERNAL ROM'S 
sENABLE 8-BIT ROM, HOB 
;LAST LOCATION IN PROGRAM 
sSTART WITH PAGE O 
sDISPLACEMENT 0 

sSTORE A WORD 

;GET NEXT WORD 

sALL 332 LOCATIONS DONE? 
sIF NOT, CONTINUE 


first pattern, 10 101 010 
; zero the cumulative error count 


; clears page register (start @ 165000) 
; first location each page of EEROM 


write the test pattern 

weit for write time 

read back the written word 

if 0. K. readback, skip handle error 


s update cumulative error count 
; put the read deta in displey erea 


: elso address location info 
: do EEROM read/write error report 
; continue testing 


; lest location checked in e page 

s continue till ell page loc. tested 

PF wr PCR every 512 dec. nyeee 

; Byte pgs in 2K) * 2 (holes)=20 
3: finish 

8 

F 

F 

: 


sh page ¥ 
test for both patterns written 
Exit point 
invert the test pettern 
do the test over with new pettern 





| 


lap 





Nii 
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TEST - 8-BIT EAROM READ-WRITE - TEST 


19171 116710 
19173 116712 


19195 116770 


000240 


012701 
005037 


143762 
177522 


165000 
116754 


000334 
002730 


023420 


177520 


11%: MOV 
J 


; the ane 
; the number o 
DELAY: MOV 

MOV 


1%: soB 


@$POWER+10,R1 
PCR 


R2 
(R1)+, 165000(R2) 
PC, DELAY 


SUBROUTINES AREA 


sLAST LOCATI 
START WITH 


test over 


sRESTORE A WORD 
s weit for write time 
sGET NEXT 

sALL 332 LOCATIONS DONE? 
sIF NOT, CONTINUE 


sRESTORE REGISTER 


ON IN PROGRAM 
PAGE 0 


s goto next test (ewr restored there) 


subroutine ceuses ea delay of e certain no of milliseconds 
me. delayed is besed on the type of EEROM es indicated by RS 


seve RO 
ALL ELSE = 10 MS DELAY 


ectuel delay 
restore RO 


everything done 
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116772 
19230 116774 
19231 117002 
19232 117010 
19233 117012 
19234 117020 


19238 117022 
19239 117030 
19240 117036 
19241 117044 
19242 117050 
19243 117052 
19244 117054 
19245 117056 
19246 117060 


19250 117066 
19251 117074 
19252 117100 
19253 117106 


Pitre aa 


TEST - LKS BIT 7 
19198 
19199 


000004 
013777 
032737 
001404 
032737 
001056 


013737 
012737 


005726 
013737 


042737 
005037 
012737 
012737 





062136 
000052 


177520 


001160 
000004 
000006 


000004 


177546 


000100 
000102 


ES SK —— ES LL 





Bie 
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SEQ 0351 
-SBTTL TEST - LKS BIT 7 
3; This test restores the software switch register used in the EEROM 
3; test ebove, and therefore must follow it directly !! <<<<<<<c<cesees 
sTHESE TESTS WILL CHECK FUNCTIONALITY OF LKS<7-6> 
; 
sACCESS LKS, CHECK THAT READY LKS<07> CAN BE O AND 1. 
H 
_ <07> LINE CLOCK MONITOR 
<06> LINE CLOCK INTERRUPT ENABLE 
; ROUTINE TEST 
;IF UFD AND LKS IS DISABLED THEN 
Ss - EXIT TEST 
: 
g- READ LKS TO SEE IF IT TIMEOUTS 
3. (CHECK LKS<07>) 
8. LET R1i=@77777CWORST CASE COUNTER FOR SLOW CLOCK) 
; LET 100=@ADDRESS OF LINE_CLOCK_INTERRUPT 
3 CLEAR INTERRUPT_FLAG 
; ” 3 TIMES 
3 REPEAT 
Be “ DECREMENT R1 
be ° UNTIL R1 NE #0 OR LOW BYTE OF LKS LT #0 
3. . IF LOW BYTE OF LKS GE #0 THEN CREADY DIDN'T COME UP) 
be . ERROR 
F ENDIF 
3 ENDDO 
H IF susger teste NE #0 THEN CINTERUPT W/O LKS<6>=1) 
$. 
8. ENDIF 
s ENDROUTINE 
wer ii titi titi it titiitiitiitiiitiiitititiitiiiiiiitiiitiiitii tit?) 
TST35: SCOPE 
MOV SAVSWR , ASWR ; restore here FROM EEROM test 
BIT #BITO6 , aeS52 sUFD MODE? 
BEQ 1$ ;IF NOT, GO DO TEST 
BIT #B1T12,BCSR ;LKS DISABLED? 
BNE TST36 33IF DISABLED, EXIT TEST 
F 
s TRY TO ACCESS LKS WITHOUT TIMEOUT 
—+ 
1$: MOV ERRVEC, $TMPO sSAVE TIMEOUT VECTOR 
MOV $2$ ,ERRVEC sPOINT NEW VECTOR TO PROGRAM 
MOV $340, ,ERRVEC+2 sAT PRIORITY 7 
TST LKS sACCESS LKS 
BR 3$ 3;IF NO TIMEOUT, CONTINUE 
2s: ERROR +56 s TIMEOUT READING LKS 
TST (SP )-« sADJUST STACK POINTER 
TST (SP )-+ 
3$: MOV $TMPO,ERRVEC sRESTORE TIMEOUT VECTOR 
H 
; CHECK THAT READY BIT LKS<7> CAN BE 1 
H 
BIC #BITO7,LKS ; START WITH CLEAN SLATE 
CLR LKSFL ;CLEAR INTERRUPT FLAG 
MOV #LKSINT,100 ;POINT VECTOR TO INERRUPT ROUTINE 
MOV #340,102 ;AT PRIORITY 7 








KDJ11-B CLUSTER DIAG. 


LKS BIT 


117114 
117120 
117124 
117130 
117132 
117134 
117140 
117142 
117144 
117146 
117152 
117154 


7 


000003 
077777 
177546 


177546 


002722 





MACRO YOS.02 


4$: 
5$: 


6$: 


7$: 
8$: 


Cle 
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MOV #3 ,R2 00 3 TIMES TO SYNCHRONISE 
MOV 077777 ,R1 sCOUNTER FOR SLOW CLOCKS 
TSTB LKS sREADY LKS<7>=1? 

BMI 6$ sIF SO, DO NEXT LOOP 

S08 R1,5$ sOTHERWISE, GO THRU COUNT 
TSTB LKS sWAS READY 1? 

BMI 7$ sIF YES, BRANCH 

ERROR +57 sLKS<07> DOES NOT BECOME 1 
S0B R2,4$ ;D0 ALL 3 TIMES 

TST LKSFL sANY INTERRUPTS W/O LKS<6>=1? 
BEQ TST36 3sIF NONE, EXIT TEST 

ERROR +61 sILLEGAL CLOCK INTERRUPTS 





sess sess <nsssssssssssnsssse 


ee 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - LKS INTERRUPT PRIORITY 


19268 
19269 
19270 
19271 
19272 
19273 
19274 
19275 


117156 
19315 117160 
19316 117166 
19317 117170 
19318 117176 
19319 
19320 
19321 
19322 117200 
19323 117206 


000004 
032737 
001404 
032737 
001132 


042737 
005037 


000100 
010000 


000100 
002722 








Die 
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000052 
177520 


177546 


SEQ 0353 


-SBTTL TEST - LKS INTERRUPT PRIORITY 
; CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY S CLEARING LKS<07> 
sAND DON’T HAPPEN AT PRIORITY 6. 
sROUTINE TEST 
wg UFD AND LKS IS DISABLED THEN 
EXIT TEST 
SENDIF 


SET PRIORITY TO 5 

CLEAR INTERRUPT_FLAG 

LET LKS<06>=#1 CENABLE INTERRUPTS) 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 


é- 
; 
3 
; 
; REPEAT 

; DECREMENT COUNTER 

; UNTIL INTERRUPT -FLAG EQ #3 OR COUNTER EQ #0 

; CLEAR LKS<06> 

8. IF LKS<07> EQ #1 THEN 

i. a ERROR (WAS NOT CLEARED ON INTERRUPT) 

8. 

; IF COUNTER LT TIME_REQUIRED_FOR_3_INTERRUPTS_FOR_800HZ 
; ° ERROR CINTERRUPTS NEVER GO LOW) 

i 

; 

; 

; 

j 

; 

; 


ENDIF 
IF INTERRUPT_FLAG LT #3 THEN 
— ERROR (INTERRUPTS DON’T HAPPEN) 


CLEAR INTERUPT_FLAG 

WAIT FOR LKS<7>=1 

LET LKS<7>=0 

IF LKS<7> NE #0 THEN 

‘ ERROR (LKS<7> NOT CLEARED 
ENDIF 


: 
3 
a 
3 SET PRIORITY TO 6 

3 SET COUNTER TO 1 SLOW CLOCK INTERRUPT 

bs SET LKS<06> 

he REPEAT 

be DECREMENT COUNTER 

3 UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0 
3 

. 

. 

1 


IF INTERRUPT_FLAG NE #0 THEN 
hang ERROR CINTERRUPT WAS AT WRONG PRIORITY) 


‘ RESTORE ORIGINAL PRIORITY 
ENDROUTINE 


; 
Sanam LINE_CLOCK_INTERUPT 
INCREMENT INTERRUPT_FLAG 


; ENDROUTINE 
HE Iedhdadaecadededethteteb bbb bpp pe rtrtitiiiitititiiititititit itt tit ttt 
TST36: SCOPE 
BIT #BITO6 , a#S2 sUFD MODE? 
BEQ 1$ sIF NOT, GO DO TEST 
BIT #B1T12,BCSR sLKS DISABLED? 
BNE TST37 s3;IF DISABLED, EXIT TEST 
; 
3; WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE O AFTER INTERRUPT 
; 
1$: BIC #BITO6,LKS ; FROM END OF TEST 427? PROBLEM 
CLR LKSFL sCLEAR INTERRUPT FLAG 








Eile 


| 
| 
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SEQ 0354 
TEST - LKS INTERRUPT PRIORITY 

19324 117212 012737 137062 000100 MOV #LKSINT ,100 sPOINT VECTOR TO ROUTINE 
19325 117220 012701 077777 MOV 77777,R1 sCOUNTER FOR SLOW CLOCK 
19326 117224 052737 000100 177546 BIS #BITO6,LKS ;SET INTERRUPT ENABLE BIT 
19327 117232 032737 000100 177546 BIT #BITO6,LKS sBIT SET OK? 
19328 117240 001001 BNE 2$ ;IF YES, BRANCH 
19329 117242 104131 ERROR #131 sERROR WRITING 1 TO LKS<6> 
19330 117244 106427 000240 2s: MTPS #240 ;SET PRIORITY TO 5 
19331 117250 022737 000003 002722 33: CMP #3,LKSFL 33 INTERRUPTS HAPPENED? 
19332 117256 001401 BEQ 4$ ;IF YES, BRANCH 
ioses 117260 077105 SOB R1,3$ sSTAY IN A LOOP 

3 
pote ; DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET 

3 
19337 117262 042737 001000 177520 4$: BIC #1000,BCSR ;DISABLE HALT ON BREAK 
19338 117270 106427 000340 MTPS #340 sRAISE PRIORITY 
19339 117274 042737 000100 177546 BIC #BITO6,LKS sDISABLE INTERRUPTS 
19340 117302 032737 000200 177546 BIT #BITO7,LKS 3LKS<7> CLEARED AFTER INTERRUPTS? 
19341 117310 001401 BEQ S$ ;IF 0, BRANCH 
19342 117312 104062 ERROR +62 s INTERRUPTS DON’T CLEAR LKS<7> 
19343 117314 105737 177546 S$: TSTB LKS ;LKS<7>2=1? 
19344 117320 100375 BPL 5$ 3IF NOT, WAIT 
19345 117322 005037 177546 CLR LKS ;CLEAR LKS<7> 
19346 117326 032737 000200 177546 BIT #BITO7,LKS 3LKS<7> CLEARED? 
19347 117334 001401 BEQ 6$ ;IF YES, BRANCH 
19348 117336 104060 ERROR +60 3LKS<7> NOT CLEARED ON WRITE 
19349 117340 032737 000100 177546 6$: BIT #BITO6,LKS 3;LKS<6>=0? 
19350 117346 001401 BEQ 7$ ;IF YES, BRANCH 
19351 117350 104131 ERROR 4131 sERROR WRITING O TO LKS<6> 
19352 117352 052737 001000 177520 7$: BIS #1000,BCSR sENABLE HALT ON BREAK 
19353 117360 022701 077737 CMP #77737,R1 sCOUNTER AT LESS THAN 800HZ? 
19354 117364 002001 BGE 8$ ;IF NOT, BRANCH 
19355 117366 104063 ERROR +63 sREADY LINE DOES NOT GO LOW 
19356 117370 022737 000003 002722 8$: CMP #3,LKSFL ;DID 3 INTERRUPTS HAPPEN? 
19357 117376 001404 BEQ 9$ ;IF YES, BRANCH 
19358 117400 012737 000003 001124 MOV #3, $GDDAT :3 INTERRUPTS EXPECTED 
icase 117406 104064 ERROR +64 s INTERRUPTS DON'T HAPPEN 
1 ; 
19361 ; CHECK WHETHER INTERRUPTS HAPPEN AT PRIORITY 6 
19362 ; 
19363 117410 005037 002722 9$: CLR LKSFL ;CLEAR INTERRUPT FLAG 
19364 117414 106427 000300 MTPS #300 sRAISE PRIORITY TO 6 
19365 117420 012701 077777 MOV #77777,R1 ;COUNTER FOR SLOW CLOCK 
19366 117424 052737 000100 177546 BIS #BITO6,LKS ;SET INTERRUPT ENABLE BIT 
19367 117432 005737 002722 10$: TST LKSFL ;ANY INTERRUPTS? 
19368 117436 001001 BNE 11$ ;IF YES, EXIT LOOP 
19369 117440 077104 SOB R1,10$ sCONTINUE WITH COUNT 
19370 117442 005737 002722 11$: TST LKSFL sANY INTERRUPTS? 
19371 117446 001404 BEQ 12$ ;IF NO, BRANCH 
19372 117450 012737 000005 001124 MOV #5, $GDDAT ;STORE PRIORITY FOR TYPE OUT 
19373 117456 104065 ERROR 65 sINTERUPTS HAPPEN AT WRONG PRIORITY 
pede 117460 106427 000340 12$: MTPS #340 ;RESTORE PRIORITY 

| 
\ 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - LINE CLOCK DISABLE 


19377 
19378 


--- 


117464 
117466 
117474 
117476 
117504 


117506 
117514 
117522 
117530 
117532 
117536 
117540 
117546 
117554 
117556 
117564 


000004 
032737 
001404 
032737 
001052 


013737 
042737 


000100 
010000 


177520 
010000 
010000 
001124 


010000 
010000 


010000 





Fie 
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000052 
177520 


002730 
177520 
177520 


177520 
177520 


001124 


-SBTTL TEST - LINE CLOCK DISABLE 


sLINE CLOCK DISABLE(*) 
sTHIS TEST WILL CHECK THAT BCSR<12> DISABLES RESPONSE 
;OF LKS REGISTER. 


; 
sBCSR =< 12> LINE CLOCK STATUS REGISTER DISABLE 
3 


; 
sROUTINE TEST 


F 
3;IF UFO AND LKS IS NOT DISABLED THEN 
re EXIT TEST 

; ENDIF 


; 
WRITE BCSR<12>=1 

LET 4=ADDRESS OF LKS_TRAP 
LET TRAP_LKS=0 

READ LKS 

IF TRAP_LKS NE 1 THEN 

° ERROR 

ENDIF 


ENDROUTINE 


ROUTINE LKS_TRAP 


. LET TRAP_LKS=1 
. LET BCSR<12>=0 


; 
3 
: 
H 
: 
H 
; 
: 
i 
H 
H 
é 
Hy 
3 
: 
;RTI 
3 


5 ERE ERE EE EEE EERE EEE EEEREREEEEEEAEEEEEEEEESEEEEEEEEEEEEE 





SEQ 0355 


TST37: SCOPE 
BIT #BITO6 ,a#S2 sUFD MODE? 
BEQ 1$ ;IF NOT, BRANCH 
BIT #BIT12,BCSR sLKS DISABLED? 
BNE TST40 33;IF DISABLED, EXIT TEST 
: 
; CHECK BCSR<12> TO BE O AND 1 
; 
1$: MOV BCSR, SAVBR ;SAVE BCSR REGISTER 
BIC #BIT12,BCSR ;CLEAR BCSR 
BIT #BIT12,BCSR 3<12>=0? 
BEQ es sIF OK, BRANCH 
CLR $GDDAT s;CLEAR EXPECTED PATTERN 
ERROR +52 sERROR BCSR READ/WRITE BITS 
2s: BIS #B81T12,BCSR sSET BIT 12 
BIT #BIT12,BCSR sGOT SET OK? 
BNE 3$ sIF OK, BRANCH 
MOV #BIT12, $GDDAT sEXPECTED PATTERN 
ERROR +52 sERROR BCSR READ/WRITE BITS 


; 
s TRY TO ACCESS LKS TO GET A TIMEOUT WITH BCSR<12>=1 


COKDADO KDJ11-B CLUSTER DIAG. 
LINE CLOCK DISABLE 


TEST - 


117566 
117572 
117600 
117606 
117612 
117614 
117616 
117620 
117624 


013701 
012737 


010137 
013737 


000004 
002730 





G12 
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3$: MOV ERRVEC,R1 sSAVE TIMEOUT VECTOR 
000004 MOV #4$ ,ERRVEC sPOINT TO PROGRAM AREA 
000006 MOV #340, ERRVEC+2 sAT PRIORITY 7 
TST LKS sACCESS LKS REGISTER 
ERROR +66 sBCSR<12> DOES NOT DISABLE LKS 
4$: TST (SP )+ sRESTORE STACK POINTER 
TST (SP )+ 
MOV R1,ERRVEC sRESTORE TIMEOUT VECTOR 
177520 MOV SAVBR,BCSR sRESTORE BCSR 





SEQ 0356 | 


a 


COKDADO KDJ11-B CLUSTER DIAG. 


TEST 


117632 
117634 
117642 
117644 
117652 


117654 
117662 
117670 
117676 
117704 
117706 
117712 
117714 
117722 
117730 
117732 


000004 
032737 
001404 
032737 
001530 


013737 


012737 


000100 
020000 


177520 
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- UNCONDITIONAL CLOCK LINE INTERRUPTS 


-SBTTL TEST 


;UNCONDITIONAL CLOCK LINE INTERRUPTS( +) 


Hie 


- UNCONDITIONAL CLOCK LINE INTERRUPTS 


sTHIS TEST WILL CHECK THAT SETTING BCSR<13> TO 1 WILL 
sREQUEST INTERRUPTS WHENEVER A CLOCK LINE IS ASSERTED. 


sSHOULD HAPPEN WITHOUT ACCESSING LKS, THEREFORE, EVEN WITH BCSR<12>=1 


—" SHOULD HAPPEN. 
FORCE LINE CLOCK INTERRUPT ENABLE 


;BCSR <13> 
; 


sROUTINE TEST 


— UFD AND FORCE LKS NOT DISABLED THEN 


EXIT TEST 


:ENDIF 


“tn cseerrreeere este 
Tec Pe Peer ese eee et ee 6 


ENDD 
ENDROUTINE 


; ROUTINE UNCONDITIONAL _INTERRUPT_ROUTINE 
INCREMENT UNCONDITIONAL _INTERRUPT 


6 fEEEEREEEEERERESEEEEEEEEREEREEEEEREEEEREREKEEEEEREEEEEEESEEEEE EEE 


SET COUNTER TO WAIT FOR 3 INTERRUPTS 
LET BCSR<13>=1 


REPEAT 


DECREMENT COUNTER 
UNTIL UNCONDITIONAL ~INTERUPT EQ #3 OR COUNTER EQ #0 
IF COUNTER GT TIME_REQUIRED_FOR_3_INTERRUPTS_FOR_800HZ 


ERROR (INTERRUPTS NEVER GO LOW) 


IF UNCONDITIONAL_INTERRUPT LT #3 THEN 
ERROR CINTERRUPTS DON’T HAPPEN) 


ENDIF 


° ENDIF 
LET  eteetine 





THIS 


LET 100=ADDRESS OF UNCONDITIONAL _INTERRUPT_ROUTINE 
DO FOR BCSR<12> FROM #0 TO #1(LKS DISABLED AND ENABLED) 
al UFD DO ONLY FOR SELECTED LINE CLOCK) 

CLEAR UNCONDITIONAL _INTERRUPT 


sUFD MODE? 


sIF NOT, BRANCH 
sFORCE INTERRUPT SET? 


s3IF SET, EXIT TEST 


i. 
sRETURN 
TST40: SCOPE 
000052 BIT #BITO6 ,a#S2 
BEQ 1$ 
177520 BIT #B81T13,B8CSR 
BEQ TST41 
’ 
; CHECK BSCR<13> TO BE O AND 1 
; 
002730 1%: MOV BCSR, SAVBR 
177520 BIC #1000,BCSR 
177520 BIC #81T13,BCSR 
177520 BIT #B1T13,BCSR 
BEQ 2$ 
CLR $GDDAT 
ERROR +52 
177520 2$: BIS #BIT13,BCSR 
177520 BIT #B1IT13,BCSR 
BNE 3$ 
001124 MOV #BIT13,$GDDAT 








sSAVE BCSR REGISTER 
sDISABLE HALT ON BREAK 


;CLEAR B 
3<13>=0? 
3;IF OK, 


s;CLEAR EXPECTED PATTERN 
sERROR BCSR READ/WRITE BITS 


;SET BIT 
:GOT SET 
;1IF OK, 


sEXPECTED PATTERN 


CSR 
BRANCH 
13 


OK? 
BRANCH 





SEQ 0357 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST 


19501 117740 104052 ERROR 
19502 ; 

19503 ; SET UP TO DO 
19504 ; 

19505 117742 012737 137062 000100 3%: MOV 
19506 117750 012737 000340 000102 MOV 
19507 117756 052737 010000 177520 BIS 
19508 117764 000403 BR 
19509 117766 042737 010000 177520 4%: BIC 
19510 117774 005037 002722 S$: CLR 
19511 120000 012702 077777 MOV 
19512 120004 106427 000240 MTPS 
19513 120010 022737 000003 002722 6%: CMP 
19514 120016 001401 BEQ 
19515 120020 077205 SOB 
19516 120022 106427 000340 7$: MTPS 
19517 120026 022702 077700 CMP 
19518 120032 002001 BGE 
19519 120034 104063 ERROR 
19520 120036 022737 000003 002722 8$: CMP 
19521 120044 002004 BGE 
19522 120046 012737 000003 00112: MOV 
19523 120054 104064 ERROR 
19524 120056 032737 010000 177520 9%: BIT 
19525 120064 001340 BNE 
19526 120066 032737 000100 000052 BIT 
19527 120074 001404 BEQ 
19528 120076 032737 010000 177520 BIT 
19529 120104 001010 BNE 
19530 120106 032737 000100 177546 10%: BIT 
19531 120114 001001 BNE 
19532 120116 104067 ERROR 
19533 120120 042737 000100 177546 11%: BIC 
19534 120126 013737 002730 177520 12$: MOV 





- UNCONDITIONAL CLOCK LINE INTERRUPTS 





vi 





tie 
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+52 


UNCONDITIONAL INTERRUPTS 
#LKSINT , 8#100 


#340 , 8102 
#BIT12,BCSR 


S$ 
#BIT12,BCSR 
LKSFL 
#77777 ,R2 


#240 
—— 


+63 
#3,LKSFL 
9$ 


_— 

¢ 

> leas 
#BITO6 , @#52 
10$ 
#BIT12,BCSR 
12$ 


+67 
#BITO6,LKS 
SAVBR,BCSR 


SEQ 0358 


sERROR BCSR READ/WRITE BITS 


;SET UP INTERRUPT VECTOR 

sAT PRIORITY 7 

sFOR 1ST TIME DISABLE LKS 

:GO DO IT 

sFOR THE 2ND TIME, ENABLE LKS 
sCLEAR INTERRUPTS FLAG 
;COUNTER TO WAIT FOR INTERRUPTS 
;LOWER PRIORITY TO 5 

33 INTERRUPTS HAPPENED? 

sEXIT LOOP, IF SO 

sOTHERWISE, KEEP WAITING 
sRAISE PRIORITY TO 7 

s INTERRUPTS HAPPEN TOO OFTEN? 
;IF NOT, BRANCH 

sREADY LINE DOESN'T GO LOW 

sAT LEAST 3 INTERRUPTS HAPPENED? 
;IF SO, BRANCH 

sEXPECTED DATA 

s INTERRUPTS DON'T HAPPEN 
sSECOND TIME THRU THE LOOP? 
;IF NOT, DO IT AGAIN 

sUFD MODE? 

s;IF NOT, BRANCH 

;IF UFD AND LKS DISABLED? 
sDON‘'T CHECK LKS 

sINTERRUPT ENABLE LINE HOLD 1? 
;IF SO, BRANCH 

sBCSR<13> DOESN'T SET LKS<6> 
sDISABLE LKS INTERRUPTS 
sRESTORE BCSR 


ear FP] 


| conpane KDJ11-B8 CLUSTER DIAG. 


013737 
042737 
19575 120200 012737 
012737 
052737 
005037 
012702 


TEST - RESETTING LKS 
19538 
19539 
19540 
19541 
19542 
106427 


001206 
000100 
010000 


177520 
010000 
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000052 
177520 


002730 
177520 
000100 
000102 
177546 


002722 


177546 


177546 


J1l2 
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-SBTTL TEST - RESETTING LKS 
sRESETTING LKS(#) 
sTHIS TEST WILL PROVE THAT RESET INSTRUCTION SETS LKS<07> AND 
;sCLEARS LKS<06>. 
sROUTINE TEST 
of UFD AND LKS IS DISABLED THEN 
EXIT TEST 


FENDIF 

$. POINT LKS VECTOR 100 TO ERROR_LKS_ILLEGAL_INTERRUPT 
Sie SYNCHRONIZE LKS BY WAITING FOR 3 PULSES 
Be LET LKS<06>=#1 

ae CLEAR LKS (CLEARS LKS<07> 

3. EXECUTE "RESET" 

bs IF LKS<7> NE #1 OR LKS<6> NE #0 THEN 

he . ERROR 

ts ENDIF 

i. IF ILLEGAL_LINE_CLOCK_INTERRUPT NE O THEN 
Bn ERROR 

os ENDIF 

ae 


; ROUTINE ERROR_LKS_ILLEGAL_INTERRUPT 
i. FLAG ILLEGAL_LINE_CLOCK_INTERRUPT 
RETURN 


TB Madehdadhthdpcetdnthebh hhh ppp etter et tii iti tt iti ttt ttt tt ttt itt tit tt 
TST41: SCOPE 
TST $PASS sFIRST PASS? 
BNE TST42 ;3;IF NOT FIRST PASS, EXIT TEST 
BIT #BITO6 , a#S2 sUFD MODE? 
BEQ 1$ 94 NOT, BRANCH 
BIT #BIT12,BCSR LKS DISABLED? 
BEQ TST42 3;IF DISABLED, EXIT TEST 


3 
s SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 


3 

1$: MOV BCSR,SAVBR sSAVE BCSR 
BIC #B81T12,BCSR sENABLE LKS RESPONSE 
MOV @LKSINT ,8#100 sSET UP INTERRUPT VECTOR 


sAT PROIRITY 7 
sSET INTERRUPT ENABLE BIT 
;CLEAR INTERRUPTS FLAG 


MOV #340 ,80102 
BIS #BITO6,LKS 
CLR LKSFL 


MOV #77777 ,R2 sCOUNTER TO WAIT FOR INTERRUPTS 
MTPS #240 sLOWER PRIORITY TO S 
2s: CMP #3,LKSFL 33 INTERRUPTS HAPPENED? 
BEQ 3$ sEXIT LOOP, IF SO 
SOB R2,2¢ sOTHERWISE, KEEP WAITING 
3$: MTPS #340 sRAISE PRIORITY TO 7 
RESET sEXECUTE RESET 
BIT #BITO7,LKS sREADY BIT SET? 
BNE 4s :IF SO, BRANCH 
ERROR +70 sRESET DOESN'T SET LKS<07. 
4$: BIT #BITO6,LKS s INTERRUPT ENABLE BIT CLEARED? 
BEQ TST42 3sIF SO, EXIT TEST 
ERROR +71 sRESET DOESN'T CLEAR LKS 


SEQ 0359 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - LINE CLOCK INTERRUPTS 


120302 
120304 


: 
120306 
120312 


013737 
012737 
012737 
012705 


003032 


120564 
000100 
010000 


177520 
171777 


177520 
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000052 
177520 


002730 
000100 
000102 


K1ie2 
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SEQ 0360 


-SBTTL TEST - LINE CLOCK INTERRUPTS 

sLINE CLOCK INTERRUPTS( #) 

sBY SETTING TO 1 LKS<06>, THIS TEST WILL CHECK FOR INTERRUPTS 

sFROM BEVENT LINE AND FROM KDJ11-B SOHZ, 60HZ, 800HZ ON BOARD SIGNALS 
(THE LATTER SIGNALS WILL BE ACCESSED BY SETTING BCSR<11-10>). 


3 
;BCSR <11> <10> CLOCK SELECT BITS 1 AND O 
3 

3 t+) 0 EXTERNAL BEVENT LINE 

F i?) 1 ON-BOARD 50 HZ 

3 1 i?) ON-BOARD 60 HZ 

3 i 1 ON-BOARD 800 HZ 

F 

sROUTINE TEST 

3;IF UFD THEN 

3. IF LKS DISABLED THEN 

fs EXIT TEST 

fs ENDIF 

tase SET FLAGS TO RUN ONLY WHAT SPECIFIED IN EAPROM 

3 

Rs LET 100=ADDRESS OF LKS_INTERRUPT 

is rs FOR BCSR<11;10> FROM #0 TO #3 

- LET LKS<06>=#1 

in WAIT FOR 10 INTERRUPTS FOR EACH CLOCK 

is STORE ACTUAL NUMBER OF INTERRUPTS FOR EACH CLOCK 
“= . LET INTERRUPT_FLAG=0 

bs ENDDO 

3. COMPARE NUMBER OF INTERRUPTS FOR EACH CLOCK 
-ahameasieates 


S ROUTINE LKS_INTERRUPT 
+ 
;RETURN 


INCREMENT INTERRUPT_FLAG 


Pt i iTit it iiitititiitiitititiiiitiitiitiiiiiitiiiiiitti tit ttt ttt tt 
TST42: SCOPE 
NOP ; THIS CODE ADDED FOR APT DEFAULT BREAK 
; PURPOSES-- TEST TIME LONGER THAN SOME APT BREAK IN 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug aid 
JMP 10$ ; yes skip this 
99%: NOP 
BIT #BITO6 ,a#s2 sUFD MODE? 
BEQ i$ :IF NOT, GO DO THE TEST 
BIT #BIT12,BCSR 3LKS IS DISABLED? 
BNE TST43 ;;IF DISABLED, EXIT TESTS 
CLR R2 ;CLEAR R2 TO SET FLAGS 
BIS BCSR,R2 ;SET R2 ACCORDING TO BCSR 
BIC #171777, Re ;LEAVE ONLY BITS <11-10> 
: 
; SETUP DELAY VALUES FOR INTERRUPTS, IN UFD MODE ONLY FROM THE CLOCK SPECIFIED IN BCSR<11-10 
; 
1$: MOV BCSR,SAVBR ;STORE BCSR . 
MOV #LKSINT,100 ;SET UP LKS VECTOR 








sAT PRIORITY 7 
sPOINTER TO DEL 


MOV #340,102 
MOV @TIMDEL ,RS 





——— + 








19669 120510 


19673 120512 


001026 


000004 
177520 


002000 
000100 


177520 
002722 


000002 


000002 


002730 
000100 


177520 
000052 


177546 


000052 


177546 


177520 
177546 


3$: 


3 
3; CHECK 


8$: 
9$; 
10$: 


TIMDEL: 


3sEXIT TEST 


MOV #4 ,R4 

CLR BCSR 

BR 3$ 

ADD #2000,BCSR 
BIT #BITO6 ,a#S2 
BEG 4$ 

MOV R2,BCSR 
CLR LKSFL 

BIS #BITO6,LKS 
MOV #10,R3 

MOV #177777,R1 
MTPS #240 

CMP LKSFL ,R3 
BEQ 7$ 

S08 R1,6$ 

MOV R1,CRS)+ 
BIT #BITO6 ,a#S2 
BNE 10$ 

SoB R4,2$ 

THE DELAY VALUES FOR ALL CLOCKS 
MTPS #340 

BIC #BITO6,LKS 
MOV #TIMDEL ,RS 
CMP CRS),6CR5) 
BLO 8$ 

ERROR +64 

TST CRS)-+ 

CMP CRS),2CR5) 
BLO 9$ 

ERROR +64 

TST CRS)+ 

CMP CRS),2CR5) 
BLO 10$ 

ERROR +64 

MOV SAVBR,BCSR 
BIC #BITO6,LKS 
BR TST43 
-BLKW 4 
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TEST - LINE CLOCK INTERRUPTS 


SEQ 0361 =! 


3#R4 IS THE COUNTER FOR ALL CLOCKS 
;00 FOR BEVENT LINE INTERRUPTS 

3GO0 DO THE LOOP 

sSET UP FOR THE NEXT CLOCK LINE 
sUFD MODE? 

sIF NOT, BRANCH 

sIN UFD, DO ONLY FOR SPECIFIED 
sCLEAR INTERRUPT FLAG 

sSET INTERRUPT ENABLE BIT 

sSTART COUNTER FOR 10 INTERURRUPTS 
sSTART COUNTER TO WAIT FOR INTERRUPT 
sLOWER PRIORITY TO 5 

sNEW INTERRUPT HAPPENED? 

;IF SO, EXIT WAIT LOOP 

sOTHERWISE, KEEP WAITING 

sSTORE DELAY FOR EACH CLOCK 

sUFD MODE? 

sIF UFO, DON'T DO FOR ANY OTHER 
sALL LINE CLOCKS DONE? 


sRAISE PRIORITY 

sDISABLE INTERRUPTS 
sPOINTER TO DELAY TABLE 
sDELAY FOR BEVENT AND 800HZ? 
sBEVENT IS NOT 800HZ 
sWRONG @ OF INTERRUPTS 
sINCREMENT POINTER 

sDELAY FOR SOHZ AND 60HZ? 
sIF FIRST BIGGER, BRANCH 
sWRONG @ OF INTERRUPTS 

s INCREMENT POINTER 

sDELAY FOR SOHZ AND 800HZ 
sIF FIRST BIGGER, BRANCH 
sWRONG @ OF INTERRUPTS 
sRESTORE BCSR 

sDISABLE INTERRUPTS 
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TEST - MAINTENANCE REGISTER TEST 


174000 177750 








M12 
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-SBTTL TEST - MAINTENANCE REGISTER TEST 

; MAINTENANCE REGISTER TEST 

sTHIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
37-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00 
sFOR FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
sMULTIPROCESSOR SLAVE, UNIBUS SYSTEM, FPA AVAILABLE, HALT/TRAP 
sOPTION, AND AC POWER OKAY. 

sROUTINE TEST 

$e IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN 
ee ERROR 

es ENDIF 

READ MAINT.REG. BITS <10-08,03,00> 
JENDROUT INE 


§ PROSSER EEEEEERESEEESEESSEEEEEESERESESESERESERESESESERSEETEES 
TST43: SCOPE 
BIT #174000 , MAIREG 


BEQ i$ sIF OK, BRANCH 

ERROR +132 ; MAINTENANCE REGISTER ERROR 
000044 177750 1%: BIT 044 ,MAIREG 3<5,2> SET ? 

BNE es ;IF SO, BRANCH 

ERROR +132 sMAINTENANCE REGISTER ERROR 
000322 177750 2%: BIT #322 ,MAIREG 3<7,6,4,1> CLEAR? 

BEQ TST44 33;IF YES, BRANCH 

ERROR +132 


sUNUSED BITS ALL ZEROS? 


SEQ 0362 





TEST - SERIAL LINE UNIT REGISTERS 


Pei 


000004 
19750 120654 poof of 000100 000052 
19752 120664 032737 000200 177524 


19768 120744 010137 000004 





Nie 


-SBTTL TEST - SERIAL LINE UNIT REGISTERS 
sSERIAL LINE UNIT TEST(#) 
sBCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG- 
sRAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
sRCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
sTO 1 XCSR<O02>. THE LINE CLOCK INTERRUPT SUBROUTINE WILL BE 
= TO RETURN TO THE é: ‘ECUTION OF THE DIAGNOSTICS, IF THE 

AM HANGS IN THE LOOP BACK MODE. 
;ROUTINE TEST 


a UFO AND CONSOLE NOT PRESENT 

GO TO TEST_22 
SENDIF 
i. IF BCR<O7> EQ #0 THEN 
3 hase READ BCR<2-0> TO GET BAUD RATE 
3 
i. LET 4=ADDRESS_OF_TIMEOUT _ROUTINE 
ke te FOR RCSR,XCSR,RBUF , XBUF 
Re READ XRCSR, XCSR,RBUF , XBUF 
3 IF TIMEOUT_FLAG NE 00 THEN 
’ OR 
F 
3. 


' : ENDIF 
sENDROUTINE 

: 

sROUTINE TIMEOUT 

i. LET TIMEOUT_FLAG=01 

s ENDROUTINE 

Pitoeteieeeeere teeter ririiririi titty, 
TST44; sere 


SEQ 0363 


IT OBI TOG , 8052 sUFD MODE? 

BEQ is sIF NOT, GO DO THE TEST 

BIT @61T07,B8CR sIF UFD AND CONSOLE NOT PRESENT 
i$ sNOT TRUE, DO THE TEST 


SLEND 

; 

s TRY TO ACCESS SLU REGISTERS 

é 

i$: MOV ERRVEC ,R1 
MOV 0340, ERRVEC-+2 
MOV @RCSR,R2 

2¢: TST see ) 

34: MOV Re, $BDDAT 

4s: CMP OxBUF .(R2)s 

2s 


MOV R1, ERRVEC 


t 

! 

| 
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T 
sIF TRUE, SKIP ALL SLU TESTS 


sSAVE TIMEOUT VECTOR 
sPOINT NEW og TO PROGRAM AREA 


Y 
sSTART ACCESSING WITH RCSR 
sACCESS SLU REGISTER 
sIF NO TIMEOUT, CONTINUE 
sSTORE ADDRESS THAT TIMED OUT 
i TIMEOUT ACCESSING SLU Guersran 
sLAST REGISTER ACCESSED? 
3IF NOT, ANCH 
;RESTORE TIMEOUT VECTOR 


120750 
19790 120752 
19791 120756 
19792 120764 
19793 120766 
19794 120772 
19795 120774 
19796 121000 
19797 121002 
19798 121004 
19799 121010 
19800 121012 
19801 121014 
19802 121022 
19803 121026 
19804 121030 





001000 
000001 


001206 
177564 


177564 


000000 
177564 


B13 
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TEST - XCSR BIT 7 


SEQ 0364 


-SBTTL TEST - XCSR BIT 7 
sCHECK THAT XCSR<O7> CAN BE O AND 1. 


6 

sXCSR = <O7> TRANSMITTER READY 

3 

sROUTINE TEST 

3. WAIT FOR XCSR<07>=@1 NO MORE THAN 200MSEC 
IF XCSR<O7> NE #1 THEN 

. . ERROR 

ENDIF 


@NULL 
WAIT FOR XCSR<07>=01 
LET XBUF=@NULL 
IF XCSR<O7> NE O THEN 
ERROR CREADY DIDN'T GO LOW) 


° ENDIF 
s ENDROUTINE 
fs PRRSSSESEEAE ESSE SE EESEEEEEESESSSEESERERESESSESEESSEEEEEEEEESS 
TST4S: SCOPE 
MOV #1000,R1 sCOUNTER FOR ABOUT 200MICROSEC. 
001220 CMPB @APTENV, $ENV sRUNNING IN APT MODE? 
BNE i$ sNO, GO DO TEST 
TST $PASS sFIRST PASS? 
BNE TST46 3;IF APT AND NOT FIRST PASS, EXIT TEST 
1$: TSTB XCSR sXCSR<7> READY 1? 
BMI 2$ sIF SO, EXIT WAIT LOOP 
SOB R1,1$ sIF NOT 1, CONTINUE WAITING 
2s: TSTB xCSR sXCSR<7>=1? 
BMI 3$ :IF YES, BRANCH 
ERROR +73 sXCSR<7> DOES NOT BECOME 1 
177566 3%: MOV @NULL , XBUF sTRY TO TRANSMIT NULL CHARACTER 
TSTB xCSR sXCSR<7>=0 
BPL TST46 33sIF YES, EXIT TEST 
ERROR +73 ;XMIT READY DIDN'T GO LOW 


—_—- 
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TEST - RCSR BIT 7 AND XCSR BIT 2 


121032 
121034 
121040 
121046 
121050 
121054 
121056 
121062 
121064 
121072 
121100 
121102 
121106 
121110 


121112 
121116 
121122 
121124 
121126 
121130 


121134 
121142 
121146 
121152 
121154 


105737 


060000 
177560 
177562 


000021 
060000 
177560 


MACRO YOS.02 


177564 
177564 


177566 





-SBTTL TEST 





— 


C13 
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- RCSR BIT 7 AND XCSR BIT 2 





sCHECK THAT RCSR<0O7> CAN BE 0 AND 1 AND THAT XCSR<02> WORKS PROPERLY. 


3 
sRCSR <07> 
:XCSR <02> 


; 
sROUTINE TEST 


RECEIVER DONE 


MAINTENANCE 


3. (CHECK RCSR<07> AND XCSR<07>) 
Se WAIT FOR XCSR<07>=@1 
. LET XCSR<02>=#1 (LOOP BACK MODE) 


SEQ 0365 


3 
3 LET XBUF=#125 
; WAIT FOR RCSR<07>=@1 NO MORE THAN 200MSEC 
3 IF RCSR<O7> NE #1 THEN 
3 ERROR CRCSR<O7> DOES NOT BECOME 1 OR XCSR<O2>D0ES NOT 
3 . WORK ) 
Sin ENDIF 
bs IF RBUF NE #125 THEN 
$e . ERROR 
E ENDIF 
be IF RCSR<O7> NE #0 THEN 
Ris ERROR CRCSR<0O7>D0ES NOT GO LOW) 
3 ENDIF 
is LET XCSR<02>=90 
s ENDROUITNE 
Tibhppipre petri titi itt titi tit tii ttittittitittiT TTT TT TTT TTT Te TT Tet 
TST46: SCOPE 
MOV #13,R1 sCOUNTER FOR ABOUT 200MICROSEC. 
CMPB #@APTENV, $ENV sRUNNING IN APT MODE? 
BNE 1$ sNO, GO DO TEST 
TST $PASS sFIRST PASS? 
BNE TST47 3;IF APT AND NOT FIRST PASS, EXIT TEST 
1$: TSTB XCSR ;XCSR<7> READY 1? 
BPL 1$ :IF NOT 1, CONTINUE WAITING 
2$: BIS #BITO2,XCSR ;SET LOOP BACK MODE 
BIT #BITO2,XCSR ;GOT SET OK? 
BNE 3$ :IF YES, BRANCH 
CLR xCSR sRESET TO PRINT ERROR 
ERROR #114 ;XCSR<2> DOES NOT BECOME 1 
BR TST47 33EXIT TEST 
3 
; STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 
3$ MOV #60000 ,R1 sSTALL IN CASE XCSR<2> SETS READY 
4$ TSTB RCSR ;IF RECEIVER READY SET? 
BMI 5$ ;IF SET, BRANCH 
SOB R1,4$ sOTHERWISE, STAY FOR A WHILE 
BR €" :IF NOT READY, BRANCH 
5$: TST RBUF sREAD RBUF 
3 
; TRANSMIT XON AND CHECK RCSR<7> 
3 . 
6$: MOV #21, XBUF ; TRANSMIT A CHARACTER 
MOV #60000 ,R1 sCOUNTER TO WAIT 
7$: TSTB RCSR ;RCSR<7> READY 1? 
BMI 8$ ;IF YES, EXIT WAIT LOOP 
SOB R1,7$ sOTHERWISE, CONTINUE WAITING 





RE heen 


eee ee ee 
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RCSR BIT 7 AND XCSR BIT 2 


121156 
121162 
121164 
121170 
121172 
121200 
121206 
121210 
121216 
121222 
121224 
121230 
121232 
121236 
121240 


105737 


177560 
177564 


177562 
000021 


000021 
177564 


177560 
177564 
000004 
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001126 
001126 


001124 


177564 


8$: 


9$: 


10$: 


11$: 
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RBUF , $BDDAT 
—— 


+76 
#BITO2,XCSR 


sRCSR<7>=1? 


sIF YES, BRANCH 

sRESET XCSR<2> 

sRECEIVER READY DIDN'T COME UP 
sSTORE RECEIVED DATA 

sDATA RECEIVED OK? 

sIF YES, BRANCH 


sRESET TO ENABLE SLU 
sWRONG CHARACTER RECEIVED 


sRCSR<7>=0? 


sIF ZERO, BRANCH 

sRESET TO ENABLE SLU 
sRCSR<O7><>0 AFTER READING RBUF 
sDISABLE LOOP BACK MODE 





SEQ 0366 


- ee 
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TEST - RESET AND XCSR<2!0> 
19882 
19883 
19884 
19885 
19886 
19887 
19888 
19889 
19890 
19891 
19892 
19893 
19894 
121246 000004 
19895 121250 005737 001206 
| 
' 


19896 121254 
19897 121256 


19901 121264 
19902 121266 
19903 121274 
19904 121276 


001011 
052737 


000005 
032737 
001401 
104102 


000005 177564 


000005 177564 


ae 


MACRO YOS.02 Wednesday 27-Feb-85 17:55 Page 50 


.SBTTL TEST - RESET AND XCSR<2!0> 

;CHECK THAT RESET CLEARS XCSR<O!2>. 
sROUTINE TEST 

3;.CCHECK RCSR<0O7> AND XCSR<07> AND RESET) 
es LET XCSR<02,00>=#1 CLOOP BACK MODE) 
. EXECUTE “RESET” 

IF XCSR<02!00> NE #0 THEN 

‘ ERROR 


3 
3 
Sie 
3 ENDIF 

8s LET XCSR<02>=#0 

; ENDROUTINE 
Wittiiittttiiitittittiiitttitittiititttttitti titi ttt tt ttt tt ttt tt tt 7 
TST47: SCOPE 


TST $PASS sFIRST PASS? 
BNE TSTSO 3:IF NOT FIRST PASS, EXIT TEST 
1$: BIS #BITO2!BITOO, XCSR ;LOOP BACK MODE 
; 
; EXECUTE RESET AND VALIDATE THAT XCSR<7,2> BECOMES <1,0> 
RESET sEXECUTE RESET 
BIT #BITO2!BITOO, XCSR #XCSR<2,0> CLEAR? 
BEQ TSTSO 33IF YES, BRANCH 
ERROR +102 ;XCSR<2,0> NOT CLEARED ON RESET 


SEQ 0367 


—_ 


- 
| 
| 
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TEST - RESET AND INTERRUPT ENABLE BITS 


121300 
19937 121302 
19938 121306 


19943 121310 
19944 121316 


19956 121372 
19957 121374 


19961 121376 

19962 121404 
| 19963 121412 
' 


000004 
005737 
001033 


052737 
032737 


012737 
012737 
052737 


001206 


000100 
000100 


000100 
000100 


000100 


000100 


121444 
000340 
000100 





F13 
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177564 
177564 


177560 
177560 


177564 


177560 


000064 
000066 
177564 


-SBTTL TEST - RESET AND INTERRUPT ENABLE BITS 
sCHECK THAT INTERRUPTS DON’T HAPPEN AT PRIORITY 4 AND THAT RESET 
sCLEARS XCSR<06> AND RCSR<06>. 


; 
sRCSR = <06> RECEIVER INTERRUPT ENABLE 
sXCSR = <06> TRANSMITTER INTERRUPT ENABLE 


; 
sROUTINE TEST 

LET 60=#ADDRESS_OF _ILLEGAL_INTERRUPT_XRCSR 

LET 64=#ADDRESS_OF _ILLEGAL_INTERRUPT_XRCSR 

SET PRIORITY TO 4 

LET XCSR<02>=@1 (LOOPBACK MODE) 

LET XCSR<06>=#1 (ENABLE TRANSMIT INTERRUPTS) 
LET RCSR<06>=@1 (ENABLE RECEIVE INTERRUPTS) 
WAIT FOR XCSR<07>=#1 (READY TO TRANSMIT) 

LET XBUF=@NULL (SEND A CHARACTER) 

WAIT FOR ILLEGAL INTERRUPTS (ABOUT 200MSEC) 
EXECUTE “RESET” 

IF XCSR<06> NE #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN 


oe ee Ge ee es es @s Ge os Ss Se Ge Se os oF 
Spee ee Reese cea se 


. ERROR 
ENDIF 
° RESTORE PRIORITY TO NORMAL 
; ENDROUTINE 


; 
sROUTINE ILLEGAL_INTERRUPT_XRCSR 
i. INCREMENT XRCSR 

s ENDROUTINE 


5 REESE EEEEREREEEEEEREEEEEEEEEEEEEEEEREEEEEEEEESEEESRE 


TSTSO: SCOPE 
TST $PASS sFIRST PASS? 


BNE S$ sSKIP RESET PART OF THE TEST 
; 
; CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 


; ARE CLEARED BY RESET 








SEQ 0368 


3 
1$: BIS #BITO6,XCSR sSET INTERRUPT ENABLE BIT IN XCSR 
BIT #BITO6,XCSR sGOT SET OK? 
BNE 2s sIF YES, BRANCH 
ERROR +110 s;IN BIT 6 OF XCSR 
2s: BIS #BITO6,RCSR sSET INTERRUPT ENABLE BIT IN RCSR 
BIT #BITO6,RCSR sGOT SET OK? 
BNE 3$ sIF YES, BRANCH 
ERROR +110 ;IN BIT 6 OF RSCR 
3$: RESET sINLINE BUS RESET 
BIT #BITO6,XCSR sXMIT INTERRUPT ENABLE BIT CLEARED? 
BEQ 4$ sIF CLEARED, BRANCH 
ERROR +102 s INTERRUPT ENABLE NOT CLEARED ON RESET 
4$: BIT #BITO6,RCSR sRECEIVE INTERRUPT ENBLE CLEARED? 
BEQ S$ ;IF CLEARED, BRANCH 
ERROR +102 s INTERRUPT ENABLE NOT CLEARED ON RESET 


3 
; CHECK THAT TRANSMIT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 


S$: MOV 09$ , 8064 
MOV #340 , 066 
BIS #BITO6,XCSR 





sPOINT XMIT VECTOR TO PROGRAM AREA 
sAT PRIORITY 7 
sSET INTERRUPT ENABLE BIT IN XCSR 








f - ee a 


| G13 
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TEST - RESET AND INTERRUPT ENABLE BITS 


SEQ 0369 


19964 121420 012702 000340 MOV #340 ,R2 sSET PRIORITY TO 7 
19965 121424 000402 BR 7$ :sGO WAIT IN CASE OF INTERRUPTS 
19966 121426 162702 000040 6$: SUB #40 ,R2 sLOWER PRIORITY LEVEL 
19967 121432 106402 7$: MTPS R2 sSET PRIORITY 
19968 121434 012703 000026 MOV #26 ,R3 s TIME DELAY 
19969 121440 077301 8$: S0B R3,8$ sWAIT FOR INTERRUPTS 
19970 121442 000403 BR 10$ sIF INTERRUPTS DIDN'T HAPPENED, BRANCH 
19971 121444 104101 9$: ERROR +101 s INTERRUPTS HAPPEN AT WRONG PRIORITY 
19972 121446 005726 TST (SP )-+ sCLEAN UP THE STACK 
19973 121450 005726 TST (SP )+ 
19974 121452 022702 000200 10$: CMP #200 ,R2 sAT PRIORITY 4? 
19975 121456 001363 BNE $ sIF NOT LAST ONE, CONTINUE 
19976 121460 106427 000340 MTPS #340 sRESTORE PRIORITY 7 
seers 121464 042737 000100 177564 BIC #BITO6,XCSR sCLEAR INTERRUPT ENABLE BIT 
cosas ; CHECK THAT RECEIVE INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN 3 
9980 3 
19981 121472 012737 121562 000060 MOV #15$ ,8#60 sPOINT RECEIVE VECTOR TO PROGRAM AREA 
19982 121500 012737 000340 000062 MOV #340 ,8%62 sAT PRIORITY 7 
19983 121506 105737 177564 11$: TSTB XxCSR s TRANSMITTER READY 
19984 121512 100375 BPL 11$ sIF NOT, WAIT 
19985 121514 012737 000000 177566 MOV #NULL , XBUF sTRY TO TRANSMIT NULL 
19986 121522 052737 000100 177560 BIS #BITO6 ,RCSR s;SET INTERRUPT ENABLE BIT IN RCSR 
19987 121530 012702 000340 MOV #340 ,R2 sSET PRIORITY TO 7 
19988 121534 000402 BR 13$ sGO WAIT IN CASE OF INTERRUPTS 
19989 121536 162702 000040 12$: SUB #40 ,R2 sLOWER PRIORITY LEVEL 
19990 121542 052737 000004 177564 13%: BIS #BITO2,XCSR sSET LOOP BACK MODE 
19991 121550 106402 MTPS R2 ;SET PRIORITY 
19992 121552 012703 000100 MOV #100 ,R3 TIME DELAY 
19993 121556 077301 14: SOB R3,14$ sWAIT FOR INTERRUPTS 
19994 121560 BR 16$ sIF INTERRUPTS DIDN'T HAPPENED, BRANCH 
19995 121562 042737 000004 177564 15%: BIC #BITO2,XCSR ;CLEAR LOOP BACK MODE 
19996 121570 104101 ERROR +101 s INTERRUPTS HAPPEN AT WRONG PRIORITY 
19997 121572 005726 TST CSP )+ sCLEAN UP THE STACK 
19998 121574 005726 TST (SP )+ 
19999 121576 022702 000200 16$: CMP #200 ,R2 sAT PRIORITY 4? 
20000 121602 001355 BNE 12$ ;IF NOT LAST ONE, CONTINUE 
20001 
20002 ; CLEAN UP BEFORE NEXT TEST 
20003 3 
20004 121604 106427 000340 MTPS #340 sRESTORE PRIORITY 7 
20005 121610 042737 000100 177560 BIC #BITO6 ,RCSR sCLEAR INTERRUPT ENABLE BIT 
20006 121616 012702 000300 MOV #300 ,R2 sSTALL DELAY 
20007 121622 105737 177560 17$: TSTB RCSR sRECEIVE READY? 
20008 121626 100401 BMI 18$ s;STOP WAITING, IF SO 
20009 121630 077204 SOB R2,17$ sOTHERWISE, STAY IN THE LOOP 
20010 121632 005737 177562 18$: TST RBUF sREAD CHARACTER TRANSMITTED 
20011 121636 042737 000004 177564 BIC #BITO2,XCSR ;CLEAR LOOP BACK MODE 


et 
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TEST 


121644 
121646 
121654 
121656 
121662 


121664 
121672 
121700 
121706 
121714 
121722 
121726 
121732 
121734 
121736 


121742 
121746 
121750 
121754 


000004 
122737 
001003 
005737 
001113 


012737 
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- INTERRUPT PRIORITY FOR SLU 





— —- 


SEQ 0370 


;CHECK THAT INTERRUPTS HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR 


weetes AND XCSR<06>. 
;ROUTINE TEST 


LET XCSR<02>=#1 

SET PRIORITY TO #3 
WAIT FOR XINTERRUPT=#3 
IF XCSR<0O7> EQ #1 THEN 
2 ERROR 

ENDIF 


WAIT FOR RINTERRUPT=#3 
IF RCSR<07> EQ #0 THEN 
ERROR 


ENDIF 
LET XCSR<02>=80 


SET PRIORITY TO NORMAL 
s ENDROUTINE 


; ROUTINE LEGAL _XINTERRUPT 


LET 60=#ADDRESS_OF __LEGAL_RINTERRUPT 
LET 64=@ADDRESS_OF _LEGAL_XINTERRUPT 


55 EERE EEEEEEREREREREREEEEEREEREREREREKEEEREEEREEESEEEESEERERES 


i. LET XBUF=@CHARACTER 
INCREMENT XINTERRUPT 
:ENDROUTINE 
; ROUTINE LEGAL _RINTERRUPT 
* READ RCSR 
INCREMENT RINTERRUPT 
; ENDROUTINE 
TSTS1: SCOPE 
CMPB #APTENV, $ENV 
BNE 100$ 
TST $PASS 
BNE TSTS2 


i 

; GET READY FOR INTERRUPTS 
; 

100$: MOV #8$ , 860 


MOV #100,Ri 


1$: TSTB RCSR 
BMI 2s 
SOB R1,1$ 

2s: TST RBUF 


3 
3; SET PRIORITIES AND XMIT INTERRUPTS 
; 

MOV #140,R2 


BR 4s 
3$: SUB #40,R2 
4$: MTPS Re 





sRUNNING IN APT MODE? 
sNO, GO DO TES1 
sFIRST PASS? 


+;IF APT AND NOT FIRST PASS, EXIT TEST 


sSTORE RECEIVER VECTOR 

sSTORE TRANSMITTER VECTOR 

sAT PRIORITY 7 

sFOR RECEIVER AND TRANSMITTER 
sSET LOOP BACK MODE 

sDELAY FOR UNEXPECTED CHARACTERS 
sRECEIVER READY? 

;IF YES, BRANCH 

sOTHERWISE, WAIT JUST IN CASE 
sREAD RECEIVER 


sSTART WITH PRIORITY 3 

sTRY TO DO IT 

sLOWER PRIORITY 

sTRY TO DO AT LOWER PRIORITY 


— 





KDJ11-B CLUSTER DIAG. 
INTERRUPT PRIORITY FOR 


121756 052737 
121764 012703 
121770 077301 
121772 042737 
122000 104107 
122002 000443 


000100 
001000 


000004 


000340 


177562 


000340 
000100 
177564 
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SLU 
177564 BIS #BITO6 ,XCSR 
MOV #1000 ,R3 
S$: SOB R3,5$ 
177564 BIC #BITO2,XCSR 
ERROR +107 
BR TSTS2 
; 
s TRANSMITTER INTERRUPT HERE 
; 
6$: TST (SP )+ 
TST (SP )+ 
177564 BIC #BITO6 ,XCSR 
177566 MOV #NULL , XBUF 
177560 BIS #BITO6,RCSR 
MTPS R2 
MOV #100000 ,R3 
7$: SOB R3,7¢ 
177564 BIC #BITO2,XCSR 
ERROR +107 
BR 9$ 
MTPS #340 
; 
; RECEIVER INTERRUPT HERE 
é 
8$: TST (SP )+ 
TST (SP )-+ 
TST RBUF 
9$: TST R2 
BNE 3$ 
MTPS #340 
177560 BIC #BITO6,RCSR 
CLR XxCSR 





sLOOP BACK & INTERRUPT ENABLE 
sWAIT DELAY FOR INTERRUPTS 
sWAIT FOR XMIT INTERRUPTS 
sCLEAR LOOP BACK BIT 

sNO XMIT INTERRUPTS 

33;IF ERROR, EXIT TEST 


;CLEAN UP STACK 


s;CLEAR INTERRUPT ENABLE 

s; TRANSMIT NULL 

sSET RECEIVE INTERRUPT 

sSET NEXT PRIORITY 

s;WAIT DELAY FOR INTERRUPTS 
sWAIT FOR RECEIVE INTERUPTS 
s;CLEAR LOOP BACK MODE BIT 
sNO RECEIVE INTERRUPTS 
sDON'T TOUCH STACK 

sRAISE PRIORITY 


;CLEAN UP STACK 


sREAD RECEIVER BUFFER 
sPRIORITY O 

sIF NOT YET, CONTINUE 

sRAISE PRIORITY TO 7 

s;CLEAR RECEIVE INTER. ENABLE 


sCLEAR XCSR 


SEQ 0371 


122112 


122114 
122122 
122124 
122130 


122132 
122140 
122146 
122154 
122162 
122170 
122172 
122174 
122200 
122204 
122206 





032737 
001127 
005737 
001124 


052737 
013737 


| 
COKDADO KDJ11-B CLUSTER DIAG. 
TEST - BREAK CONDITION 


000200 
001206 
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000052 


177564 
002730 
177520 
177564 
177564 
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SEQ 0372_~=CS! 
-SBTTL TEST - BREAK CONDITION 
;CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 
F 
sRCSR <15> ERROR 
’ <13> FRAMING ERROR 
F <11> RECEIVED BREAK | 
3 
:XCSR <00> TRANSMIT BREAK 
3 
sROUTINE TEST 
ax LET XCSR<02>=#1 
$. LET XCSR<00>=#1 
ies WAIT FOR RCSR<07>=#1 
3 IF RBUF<15!13!11> NE #1 THEN 
; hase ERROR CERROR, FRAMING ERROR, RECEIVE BREAK NE 1) 
H 
3 LET XCSR<00>=#0 
3 IF XCSR<00> NE #0 THEN 
H ERROR CXCSR<00> DOES NOT GO LOW) 
F ENDIF 
8 WAIT FOR XCSR<07>=#1 
3 LET XBUF=@NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED) 
Sx WAIT FOR RCSR<07>=#1 
= IF RBUF<15!13!11> NE #0 THEN 
3 . ERROR 
3 ENDIF 
3 LET XCSR<00>=#1 
3 EXECUTE “RESET” 
; IF XCSR<00> NE #0 THEN 
3 ‘ ERROR 
is ENDIF 
is LET XCSR<02>=#0 
; ENDROUTINE 
iddbdbbbidbhhb ihr pirtittiii titi ttt tt tit tTTtitTTTTTTrrrTrTTTTTrTTT tT 
TSTS2: SCOPE 
3 
; DECIDE WHETHER TO RUN THIS TEST 
3 
BIT #BITO7,a#52 ;UFD MODE? 
BNE TSTS3 33IN UFD MODE, EXIT TEST 
TST $PASS sFIRST PASS? 
BNE TSTS3 3:IF APT AND NOT FIRST PASS, EXIT TEST 
8 
; SEND BREAK AND CHECK ERROR BITS IN RBUF 
3 
1$: BIS #BITO2,XCSR ; TRANSMIT IN LOOP BACK 
MOV BCSR,SAVBR ;SAVE BCSR 
BIC #BITO9,BCSR ;sDISABLE HALT ON BREAK 
BIS #BITOO,XCSR ;SET SEND BREAK BIT 
BIT #BITOO,XCSR ;GOT SET OK? 
BNE es ;IF YES, BRANCH 
ERROR #110 sWRITING 1 TO XCSR<0O> 
2s: MOV #100,R1 sSTALL DELAY 
4$: TSTB RCSR sRECEIVER READY? 
BMI 5$ ;IF YES, BRANCH 
soB R1,4$ ;sWAIT JUST IN CASE OF A CHARACTER 














SEQ 0373 


TEST - BREAK CONDITION 
20160 122210 005737 177562 S$: TST RBUF sREAD A CHARACTER 
20161 122214 052737 000001 177564 BIS #BITOO, XCSR s TRANSMIT BREAK 
20162 122222 012701 001000 MOV #1000,R1 sANOTHER DELAY TO GET BREAK 
20163 122226 077101 6$: $08 R1,6$ sWAIT A WHILE 
20164 122230 105737 177560 7$: TSTB RCSR sRECEIVER READY? 
20165 122234 100375 BPL 7$ sIF NOT, WAIT 
20166 122236 013737 177562 001126 MOV RBUF , $BDDAT sSTORE WHATEVER RECEIVED 
20167 122244 022737 124000 001126 CMP #B1T15!B1IT13!B61T11, $BDDAT sALL ERROR BITS SET? 
20168 122252 001405 BEQ 8$ sIF YES, BRANCH 
20169 122254 042737 000004 177564 BIC #BITO2,XCSR sRESET TO ENABLE SLU 
20170 122262 104105 ERROR +105 sBREAK DOES NOT CAUSE ERRORS 
20171 122264 000446 BR TSTS3 3sEXIT 
20172 122266 042737 000001 177564 8$: BIC #BITOO,XCSR s;CLEAR TRANSMIT BREAK 
20173 122274 032737 000001 177564 BIT #BITOO, XCSR ;GOT CLEARED OK? 
20174 122302 001405 BEQ 9$ ;IF YES, BRANCH 
20175 122304 042737 000004 177564 BIC #BITO2,XCSR sRESET TO ENABLE SLU 
20176 122312 104110 ERROR +110 sERROR WRITING O TO XCSR<O> 
ot ae 122314 000432 BR TSTS3 3sEXIT 
ope 3; CHECK THAT BREAK CONDITION IS CLEARED 
; 
20181 122316 013737 002730 177520 9%: MOV SAVBR,BCSR sRESTORE BCSR 
20182 122324 105737 177564 10$: TSTB xXCSR sXMIT READY? 
20183 122330 100375 BPL 10$ sIF NOT, WAIT 
20184 122332 012737 000177 177566 MOV #177, XBUF sTRY TO TRANSMIT DELETE 
20185 122340 105737 177560 11$: TSTB RCS sRECEIVER READY 
20186 122344 100375 BPL 11$ IF NOT, WAIT 
20187 122346 013737 177562 001126 MOV RBUF , $BDDAT sSTORE RECEIVE BUFFER 
20188 122354 032737 124000 001126 BIT #BIT15!BIT13!BIT11, $BDDAT sERRORS CLEARED? 
20189 122362 001404 BEQ 12$ :IF YES, BRANCH 
20190 122364 042737 000004 177564 BIC #BITO2,XCSR sRESET TO ENABLE SLU 
20191 122372 104106 ERROR +1 sBREAK NOT CLEARED ON NEXT CHARACTER 
oon 122374 042737 000004 177564 12$: BIC #BITO2,XCSR ;CLEAR LOOP BACK MODE 
2019 


K13 
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TEST 


| 


| 
COKDADO KDJ11-B CLUSTER DIAG. 


20196 
20197 


- OVERRUN CONDITION 


000001 
001206 


000004 
177564 


000021 
177560 


177564 


000177 
150000 


177562 
140177 
000177 








Lis 
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-SBTTL TEST ~- OVERRUN CONDITION 
sCHECK OVERRUN CONDITION 


5 
sRCSR = << 14> OVERRUN ERROR 


8 
sROUTINE TEST 
Be LET XCSR<02>=#1 (LOOPBACK MODE) 

3 WAIT FOR XCSR<07>=#1 

3 LET XBUF=#252 

’ WAIT FOR XCSR<07>=#1 

F LET XBUF=#125 (SEND THE 2ND W/O READING THE 1ST CHARACTER) 
3 WAIT FOR RCSR<07>=#1 

3 STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 

3 IF LOW BYTE OF RBUF NE #125 THEN 

3 herr ERROR (1ST CHARACTER WASN'T OVERRUN) 

is 

is IF RBUF<15!14> NE #1 THEN 

ve ‘ ERROR (NO OVERRUN BIT SET) 

3 ENDIF 

3 WAIT FOR XCSR<07>=#1 

F LET XBUF =@NULL 

3 WAIT FOR RCSR<07>=#1 

3 IF RBUF<15!14> NE #0 THEN 

3 ‘ ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 
F 

3 

F 


. ENDIF 
‘ LET XCSR<02>=#0 
ENDROUTINE 
Ti dbibphhhhh ppp tettiitit iti ti tt Titi titi titTTTTTrTiTrrrrerTTTTTT TT 
TSTS3: SCOPE 
001220 CMPB @APTENV, $ENV sRUNNING IN APT MODE? 
BNE 100$ sNO, GO DO TEST 
TST $PASS sFIRST PASS? 
BNE TSTS4 :3IF APT AND NOT FIRST PASS, EXIT TEST 
177564 100$: BIS #BITO2,XCSR sSET LOOP BACK MODE 
i$: TSTB xXCSR sREADY TO TRANSMIT? 
BPL i$ sIF NOT, WAIT 
177566 MOV #21, XBUF ; TRANSMIT A CHARACTER 
2s: TSTB RCSR sRECEIVE READY? 
BPL 2s sIF NOT, WAIT 
3$: TSTB xXCSR sREADY TO TRANSMIT? 
BPL ~3$ ;IF NOT, WAIT 
177566 MOV #177, XBUF s TRANSMIT THE 2ND CHARACTER 
MOV #150000 ,,R3 sSTALL FOR THE 2ND CHARACTER 
4$: S08 R3,4$ sWAIT A WHILE 
001126 MOV RBUF , $BDDAT sSTORE RECEIVED DATA 
001124 MOV #140177, $GDDAT sEXPETED PATTERN 
001126 CMPB 0177, $BDDAT 32ND CHARACTER RECEIVED? 
BEQ S$ ;IF YES, BRANCH 
177564 BIC #BITO2,XCSR ;RESET TO ENABLE SLU 
ERROR 111 s2ND CHARACTER DION'T OVERRUN 1ST 
001127 S$: CMPB #BIT7!BIT6, $BDDAT+1 sOVERRUN ERROR BITS SET? 
BEQ 6$ ;IF YES, BRANCH 
CLR XCSR sRESET TO ENABLE SLU 
ERROR e112 sOVERRUN DOES NOT SET ERRORS BITS 
BR TSTS4 33EXIT 








COKDADO KDJ11-8 CLUSTER DIAG. 
TEST - OVERRUN CONDITION 


20254 122550 105737 
20255 122554 100375 
20256 122556 012737 
20257 122564 105737 
20258 122570 100375 
20259 122572 032737 
20260 122600 001404 
20261 122602 042737 
20262 122610 104113 
20263 122612 042737 


177564 


000000 
177560 
140000 
000004 
000004 
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177566 


177562 
177564 
177564 
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SEQ 0375 


s SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS 


3 
6$: 


7$: 


8$: 


SLEND: 


TSTB 


xXCSR 

6$ 

@NULL , XBUF 

RCSR 

7$ 

* ea maicenscnimed 
#BITO2,XCSR 


+113 
@BITO2,xXCSR 


s TRANSMITTER READY? 

sIF NOT, BRANCH AND WAIT 

s TRANSMIT NULL CHARACTER 

sRECEIVER READY? 

sIF NOT, BRANCH AND WAIT 

sANY ERRORS SET? 

:IF NOT, BRANCH 

sRESET TO ENABLE SLU 

sOVERRUN NOT CLEARED ON NEXT CHAR. 
sCLEAR LOOP BACK MODE BIT 


sLAST SLU TEST 


Lf 

| 
| 
' 





COKDADO KDJ11-B CLUSTER DIAG. 
TEST - LED'S ON 


20315 123016 
20316 123063 


177777 


001170 
177562 
000004 
000377 
001000 


015 
131 
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177520 
000052 


177524 
177520 


124 
120 


-SBTTL TEST 


sLED’S ON 
sTHIS TEST WILL INITIALIZE BDR TO CONTAIN A ROTATING PATTERN 
sDISPLAYED IN LED'S. 


; 

sROUTINE TEST 

— A KEY NOT RECEIVED FROM KEYBOARD DO 
STALL ALLOWING TIME TO SEE PATTERN 

ROTATE LEFT TO LIGHT UP NEXT LED'S 


het 


‘. 
s ENDROUTINE 


$F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSESSSSSSSSSSSESSESSS 
OPE 


TSTS4: 


LEDS: 
EVEN 


- LED'S ON 


+ aa -BCSR 
nae 8052 
$PASS 

i$ 

agi » SENV 


TSTSS ssEXIT TEST 





SEQ 0376 


sENABLE HOB FOR APT 

3sFLAG IN NO INTERRRUPT MODE 
3sIF RUNNING IN CHAIN MODE 
sSKIP PRINTOUTS 

31ST PASS? 

sIF NOT, SKIP PRINTOUTS 

3 APT MODE ? 

sYES, SKIP PRINTOUT’S 

sCLEAR FLAG IN INTERRUPT MODE 


sIOENTIFY THE TEST 
sRECEIVE SLU VECTOR 
sAT PRIORITY 7 
sENABLE INTERRUPTS 
sLOWER PRIORITY 


MES 
sRUNNING IN INTERACTIVE MODE? 
uF NOT, EXIT 


;REPEAT PATTERN 
sREAD BUFFER 
sADJUST STACK 


sNO MORE 
sDISABLE HOB FOR APT 


<12><15>/THIS IS A TEST FOR ON-BOARD LED’S/<12><15> 


/TYPE ANY CHARACTER ON A & 


BOARD TO CONTINUE /<12><15> 





COKDADO KDJ11-8 CLUSTER DIAG. 


TEST - MEMORY MAPPING 


123142 
123144 
123152 
123154 
123160 
123162 
123170 


123172 
123200 
123204 
123212 
123220 
123224 


000004 
032737 
001561 
005737 
001156 
122737 
001552 


012737 
013704 
912737 
012737 
004737 
005037 


001206 


000004 
123354 


136574 
172354 
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000052 


001220 


.SBTTL 
sMEMORY 


TEST 


MAPPING 


MEMORY MAPPING 


sTHIS TEST WILL AUTOSIZE MEMORY IN 2K BYTES. EVERY PAGE WILL BE 
sCHECKED FOR WHAT TYPE IT IS: Q-BUS, UNIBUS OR PMI BUS MEMORY BY 
sSEEING HOW IT CAN BE CACHED. 

sROUTINE TEST 


3. LET 4=ADDRESS OF NON-EXISTENT_MEMORY 
. IF KMCR<05-00> NE #1 THEN (NOT ALL UNIBUS MEMORY) 


TURN ON MMU AND REMAP THE PROGRAM AREA 


REPEAT 


DO FOR KDPARO FROM #0 TO #177600 


ENDROUTINE 
ROUTINE NON-EXISTENT_MEMORY 


DO FOR Ri FROM #0 TO #20000 BY #4000 
° READ (R1) 
IF ABORT_NON-EXISTENT_MEMORY NE 1 
. MEMORY EXISTS 
READ (R1)-+ 
. . READ (R1) 
. ° IF HIT/MISS EQ 2_HITS THEN 
. . ° PMI MEMORY 
ELSE 
. IF HIT/MISS EQ HIT THEN 
° US MEMORY 


° ENDIF 
ENDIF 
. LET ABORT_NON-EXISTENT_MEMORY=90 
ENDDO 


: €NDDO 
UNTILL ABORT_NON-EXISTANT_MEMORY EQ #1 


LET ABORT_NON-EXISTENT_MEMORY=01 


RETURN 
s ENDROUTINE 
BE bedudcadehptdedhhh hhh pe tre ttt ttt tt ttt ttt ttt itt ttt tit tte Ty 
TSTSS: SCOPE 
BIT @BIT00,aeS2 ;CHAIN MODE? 
BEQ TSTS6 s3IF SO, EXIT TEST 
TST $PASS sFIRST PASS? 
BNE TSTS6 33IF APT AND NOT FIRST PASS, EXIT TEST 
CMPB @APTENV, $ENV APT MODE? 
BEQ TSTS6 3sYES, SKIP PRINTOUT’S 
; 
; SETUP ALL REGISTERS FOR MAPPING 
; 
MOV #400,CCR sFLUSH THE CACHE 
MOV ERRVEC ,R4 sSTORE TIMEOUT VECTOR 
MOV #7$ , AMERRVEC sPOINT TO PROGRAM AREA 
MOV #340 ,ERRVEC+2 sAT PRIORITY 4 
JSR PC, INITMM sREMAP PROGRAM AREA 
CLR KIPAR6 sUSED FOR MAPPING MEMORY 








SEQ 0377 





.- 


2 


COKDADO KDJ11-B8 CLUSTER DIAG. 


TEST - 


MEMORY 


123230 
123232 
123234 
123240 
123246 


MAPPING 


177572 
000020 


000200 
140000 


003776 
001000 
177752 


001000 
000004 


177600 


000004 
177572 
000020 


123434 


123464 


040 
040 
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cm 
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sCLEAR PAGE COUNT FOR PMI 
sCLEAR PAGE COUNT FOR QBUS 
sENABLE MEMORY MANGEMENT 
sENABLE 22 BITS 

:GO ACCESS 


s INCREMENT BY 4K WORDS 
sACCESS THRU KIPAR6 

sSTART DOING IT 

s INCREMENT BY 1K WORDS 
sACCESS 1ST LOCATION 
sDISABLE HALT ON BREAK 
sACCESS 2ND LOCATION 

sSTORE REGISTER 

sENABLE HALT ON BREAK 

sLAST (R1) HIT? 

sIF NOT, QBUS MEMORY 
sINCREMENT 1K COUNT FOR PMI 
:GO CONITNUE 

s INCREMENT COUNT FOR QSUS MEM. 
sLAST IN 4K PAGE? 

;IF NOT, BRANCH 

32M BOUNDARY? 

sIF NOT, BRANCH 

:IF 2M, DON'T TOUCH STACK 


3 
; MAPPING IS DONE, FIND OUT HOW MANY PAGES WERE THERE 


CLR R2 
CLR R3 
INC MMRO 
172516 BIS #BITO4 ,MMR3 
BR 2s 
3; TRY TO MAP ALL PAGES 
3 
172354 1$: ADD #200 ,KIPAR6 
2$: MOV #140000,R1 
BR 4$ 
3$: ADD #3776,R1 
4$: TST CR1)+ 
177520 BIC #1000,BCSR 
TST (R1) 
114150 MOV HITMIS ,RECDAT 
177520 BIS #1000,BCSR 
114150 BIT #BITO2,RECDAT 
BEQ S$ 
INC R2 
BR 6$ 
5$: INC R3 
6$: CMP #154000,R1 
BHI 
172354 CMP #177600 , KIPAR6 
BNE i$ 
BR 8$ 
3 
7$: TST (SP )+ 
TST (SP )+ 
8$: MOV R4,ERRVEC 
CLR MMRO 
172516 BIC #BITO4,MMR3 
TST R2 
BEQ 9$ 
ASL R2 
MOV R2,-CSP) 
TYPDS 
TYPE »MEMK 
9$: TST R3 
BEQ 10$ 
ASL R3 
MOV R3,-CSP) 
TYPDS 
TYPE »MEMQ 
10$: 
BR TSTS56 
102 MEMK: 
102 MEMQ: 
-EVEN 


-SBTTL WRONG PARITY ABORT TEST 


-ASCIZ /K BYTES OF PMI MEMORY/<12><15> 


sADJUST STACK 


sRESTORE ERROR VECTOR 
sDISABLE MEMORY MANGEMENT 
sDISABLE 22 BITS 

sANY PMI MEMORY? 

sIF NOT, GO CHECK QBUS MEMORY 
s TRANSLATE TO BYTES 
sSTORE 1K @ ON STACK 
sTYPE @ OF PAGES 

sTYPE ASCII 

sANY Q-BUS MEMORY? 

:;IF NOT, BRANCH 

; TRANSLATE TO BYTES 
sSTORE 1K @ ON STACK 
sTYPE @ OF PAGES 

sTYPE ASCII 


-ASCIZ /K BYTES OF Q-BUS MEMORY/<12><15> 


sWRONG PARITY ABORT 
sTHIS TEST VERIFIES ABORT TO 114 USING PARITY OR ECC MEMORY CSR. 











SEQ 0378 








i - - eee ee 
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SEQ 0379 
WRONG PARITY ABORT TEST 

20432 sIF MORE THEN 1 CSR PRESENT, ALL OF THEM WILL BE WRITTEN AT THE 
20433 ;SAME TIME. 
20434 3 
20435 sROUTINE TEST 
20436 3. SIZE FOR ALL POSSIBLE MEMORY CSR’S 
20437 F STORE UP TO 16 CSR STARTING FROM TEMP 
20438 8 WRITE ALL WITH WRONG PARITY 
20439 3 WRITE TO 0 
20440 ; READ IT BACK 
20441 ; IF NO ABORT TO 114 THEN 
20442 ; a ERROR IN PARITY ABORT LOGIC 
20443 S. ENDIF 
20444 ? RESTORE CSR'S 
20445 s ENDROUTINE 
20446 
20447 With htiptititiitit iit itt ii ttt ttt itt ti tTiTTTiTTTTTTTTTTTTTTrTrTTrTT TT 
yeses 123516 000004 TSTS6: SCOPE 
eed ; FIND OUT ALL POSSIBLE MEMORY CSR LOCATIONS UP TO 16 

3 
20451 123520 013701 000004 MOV ERRVEC,R1 sSTORE TIMEOUT VECTOR 
20452 123524 012737 123562 000004 MOV #2$ ,ERRVEC sPOINT NEW TO PROGRAM 
20453 123532 012737 000340 000006 MOV #340, ERRVEC+2 ;AT PRIORITY 7 
20454 123540 005004 CLR R4 sCOUNT FOR CSR’S 
20455 123542 012702 172100 MOV #172100,R2 sFIRST POSSIBLE CSR 
20456 123546 012703 002740 MOV #@TEMP ,R3 sSTORAGE LOCATION 
20457 123552 005712 1$: TST CR2) :IS CSR THERE? 
20458 123554 010223 MOV R2,(R3)+ ;IF THERE, STORE 
20459 123556 005204 INC R4 s INCREMENT COUNT FOR CSR’'S 
20460 123560 000402 BR 3$ sBRANCH AROUND 
20461 123562 005726 2s: TST (SP )-« sRESTORE STACK 
20462 123564 005726 TST (SP )-« 
20463 123566 062702 000002 3$: ADD #2,R2 sPOINT TO NEW CSR 
20464 123572 022702 172136 CMP #172136,R2 :ALL DONE? 
20465 123576 101365 BHI 1$ ;IF NOT, BRANCH 
20466 123600 010137 000004 MOV R1,ERRVEC sRESTORE ERROR VECTOR 
20467 123604 052737 001000 177746 BIS #BITO9,CCR ;SET CACHE BYPASS 
20468 8 
20469 ; WRITE ALL CSR‘S WITH WRONG ECC CODE 
20470 ; NOTE: IN PARITY MEMORY THOSE BITS ARE READ ONLY AND 
20471 F DIAGNOSTIC MODE BIT FOR ECC IS THE SAME AS WRONG PARITY 
20472 3 
20473 123612 013701 000114 MOV 0#114,R1 ;STORE PARITY ABORT VECTOR 
20474 123616 012737 123704 000114 MOV 96$ ,8%114 sPOINT NEW TO PROGRAM 
20475 123624 012737 000340 000116 MOV #340 ,8#116 :AT PRIORITY 7 
20476 123632 010402 MOV ‘ sSTORE CSR COUNT 
20477 123634 012703 002740 MOV #TEMP ,R3 ;START WITH 1ST CSR 
20478 123640 052773 000005 000000 43: BIS #BITO2!BITOO, 80(R3) sDIAGNOSTIC OR WRONG PARITY 
20479 123646 042733 003740 BIC #3740,a(R3)+ ;CLEAR <10-5> CHECK BITS 
20480 123652 077406 SOB R4,4$ 300 FOR ALL CSR'S 
20481 123654 005037 000000 CLR aeo ;CLEAR TEST LOCATION WITH WRONG PR 
20482 123660 010204 MOV R2,R4 sRESTORE COUNTER 
20483 123662 012703 002740 MOV #TEMP ,R3 ;START WITH 1ST CSR 
20484 123666 042733 000004 5$: BIC #BITO2,AaCR3)+ ;CLEAR ALL WRONG PARITY 
20485 123672 077203 SoB R2,5$ ;IN ALL CSR'S 
20486 123674 005737 000000 TST ato ;READ BACK WRONG PARITY 


| 20487 123700 104034 ERROR +34 sNO WRONG PARITY ABORT 
| 





20488 123702 
20489 123704 
20490 123706 
20491 123710 
20492 123714 
20493 123720 
20494 123722 
20495 123730 
20496 123732 
20497 123740 
20498 123742 
20499 123750 
20500 123754 
20501 123760 


000402 
005726 


010137 
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WRONG PARITY ABORT TEST 


002740 
000001 


100000 
100000 
001000 


000000 
177744 
000114 
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6$: 


7$: 
8$: 


177744 
001124 
177746 9%: 
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BR 7$ 


TST (SP )+ 

TST (SP )+ 

MOV @TEMP ,R3 

BIC #BITOO, ACR3)+ 
SOB R4,8$ 

BIT #BIT15,MSER 
BNE 9$ 

MOV #100000, $GDDAT 
ERROR +35 

BIC IT09,CCR 
CLR a#0 

CLR MSER 

MOV R1,8#114 


SEQ 0380 


sADJUST STACK 


sSTART WITH 1ST CSR 
sCLEAR ALL WRONG PARITY 
IN ALL CSR'S 

sABORT REFLECTED IN MSER? 
;IF YES, BRANCH 


; 

;MSER<15> NOT SET ON PARITY ABORT 
;CLEAR CACHE BYPASS 

;CLEAR WRONG PARITY 

;CLEAR MSER 

sRESTORE PARITY ABORT 


‘ ne 
ae a a TT a 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - DMA TAG PARITY IN STANDALONE MODE 


123764 
20520 123766 
20521 123770 
20522 123774 
20523 123776 
20524 124000 
20525 124002 


20529 124004 
20530 124010 
20531 124016 
20532 124020 
20533 124024 
20534 124026 
20535 124032 


20544 124072 


20548 124100 
20549 124100 
20550 124104 
20551 124106 
20552 124110 
20553 124114 
20554 124122 
20555 124130 


012702 
042737 
005722 
022702 
001374 
005737 
013737 


052737 
052737 
005037 
013705 
042737 
042737 


022705 
001401 
104117 
005037 
012737 
013737 
052737 


003032 


124040 
001000 


124100 


002740 
177520 


000400 
002001 
002740 
177744 
002000 
000400 


060020 


177744 


177520 


002730 


177520 
177746 


177746 
177520 


177746 
177520 
177520 


- 


F1i4 
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-SBTTL TEST - DMA TAG PARITY IN STANDALONE MODE 
sCHECK DMA TAG STORE PARITY BIT. 
sROUTINE TEST 


i. CACHE DMA_PARITY 
" LET BCSR<08>=#1 

REPORT ALL ERRORS 
:ENDROUTINE 


: ROUTINE DMA_PARITY 
GENERATE PARITY ERRORS 


; CHECK MSER<13> 
LET BCSR<08>=#0 
J ENDROUTINE 
PET titi titi titi itititiiritiiiitititiitititiiriiriririrrrri rire ys 
TSTS7: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ not yet 
NOP de aid 
BR TST60 3;G0 TO NEXT TEST 
99$: NOP 
; 
; ALLOCATE CODE IN CACHE 
F 
MOV SNMAPAR,R2 sPOINT TO STANDALONE CODE 
BIC #1000,BCSR ;DISABLE HALT ON BREAK 
1$: TST (R2)+ sALLOCATE IN CACHE 
CMP #DPAREN,R2 ;LAST ADDRESS? 
BNE 1$ :IF NOT, BRANCH 
TST TEMP sALLOCATE TEST LOCATION 
MOV BCSR, SAVBR ;SAVE BCSR 
; 
; IN STANDALONE MODE TRY TO VERIFY RESPONSE TO PARITY ERRORS 
; 
DMAPAR: BIS #BITO8,BCSR ;SET STANDALONE MODE BIT 
BIS .#BIT10!:BITOO,CCR sWRITE WRONG TAG PARITY 
CLR TEMP ;WRITE HIT WITH WRONG PARITY 
MOV MSER,RS ;STORE MSER 
BIC #BIT10,CCR ;CLEAR WRONG PARITY BIT 
2s: BIC #BITO08,BCSR ;CLEAR STANDALONE BIT 
; ‘ 
; RETURN FROM STANDALONE MODE 
; 
DPAREN: 
CMP #60020,R5 ;WRONG DMA PARITY? 
BEQ 4$ ;IF OK, BRANCH 
ERROR #117 ;MSER NOT SET IN STANDALONE MODE 
4$: CLR MSER 
MOV #400,CCR ;FLUSH THE CACHE 
MOV SAVBR,BCSR sRESTORE BCSR 
BIS #1000,BCSR ;ENABLE HALT ON BREAK 





SEQ 0381 


SEQ 03 
TEST - DMA TAG PARITY W/O STANDALONE MODE — 
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20558 -SBTTL TEST - DMA TAG PARITY W/O STANDALONE MODE 
sed sCHECK DMA TAG PARITY BIT WITHOUT GOING INTO STANDALONE MODE. 
; 
20561 ;CCR <10> WRITE WRONG TAG PARITY 
20562 ; 
20563 sROUTINE TEST 
20564 . LET CCR<10>=#1 
20565 F ALLOCATE LOCATION IN CACHE 
20566 3. INITIATE OMA WRITE TRANSFERS 
20567 oe IF MSER<04> NE #1 THEN 
20568 Se ERROR 
20569 3. ENDIF 
20570 ; ENDROUTINE 
20571 
20572 PETIT iti i tir iti iiiii iii iitiiiiiiiiiii rit ir iit iiitiiiirir iri rrr. 
124136 000004 TST60: SCOPE 
20573 124140 000240 NOP 
20574 124142 005737 003032 TST CCHPAS shave done enough inclusive passes? 
20575 124146 001002 BNE 99$ ; not yet 
20576 124150 000240 NOP ; debug aid 
20577 124152 000471 BR TST61 ;;GO TO NEXT TEST 
eed 124154 000240 99$: NOP 
20580 124156 032737 000200 000052 BIT #BITO7,a#S2 ;UFD MODE? 
20581 124164 001402 BEQ 110$ ;IF NOT, BRANCH 
20582 124166 000137 140340 JMP $EOP ; OTHERWISE, NEXT PASS 
20583 124172 005737 002664 110$: TST CSR1 ;AT LEAST ONE Q22BE FOUND? 
eene: 124176 001457 BEQ TST61 3;IF NOT, EXIT TEST 
2058 ; 
20586 ; ALLOCATE TEST IN CACHE 
20587 ; 
20588 124200 012703 124200 11$: MOV #. ,R3 sSTART WITH CURRENT INSTRUCTION 
20589 124204 005723 10$: TST CR3)+ ;READ A WORD 
20590 124206 022703 124316 CMP #4$,R3 ;ALL DONE? 
eek 124212 001374 BNE 10$ 3IF NOT, CONTINUE 
20592 ; 
20593 ; WRITE A WORD WITH WRONG PARITY 
20594 ; 
20595 124214 013737 000114 001160 1%: MOV 84114, $TMPO ;STORE PARITY VECTOR 
20596 124222 012737 124270 000114 MOV #2$,80114 sPOINT TO TEST AREA 
20597 124230 052737 002000 177746 BIS #BIT10,CCR ;WRITE WRONG TAG PARITY 
20598 124236 005037 002740 CLR TEMP ;WRITE MISS WITH WRONG TAG PARITY 
20599 124242 042737 002000 177746 BIC #B1IT10,CCR ;CLEAR WRONG TAG PARITY 
20600 124250 052737 000200 177746 BIS #BITO7,CCR ;PARITY ABORT 
20601 124256 005000 CLR RO ;FLAG TO DO 1 TRANSFER 
20602 124260 004737 137370 JSR PC ,DMATRN :D0 DMA WRITE TO TEMP THRU Q22BE 
20603 124264 104116 ERROR +116 sNO PARITY ABORT 
20604 124266 000413 BR 4$ ;BRANCH TO TEST MSER 
20605 124270 013704 177744 2s: MOV MSER ,R4 ;STORE REGISTER 
20606 124274 005037 177744 CLR MSER ;CLEAR MSER 
20607 124300 005726 TST (SP )+ F 
20608 124302 005726 TST (SP )+ sRESTORE STACK 
20609 124304 005726 TST (SP )+ 
20610 124306 032704 000020 3$: BIT #BITO4,R4 ;MSER OK? 
20611 124312 001001 BNE 4$ :IF SET, BRANCH 
20612 124314 104116 ERROR +116 sMSER<4> NOT SET 
| 20613 124316 005037 177744 4$: CLR MSER ;CLEAR MSER 





ES AS SS LL 





f 

| H1i4 
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TEST - DMA TAG PARITY W/O STANDALONE MODE 


20614 124322 012737 000400 177746 MOV #400,CCR ;FLUSH CACHE 
20615 124330 013737 001160 000114 MOV $TMPO, 80114 sRESTORE VECTOR 


SEQ 0383 


ee | 
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TEST 


124336 
124340 
124342 
124346 
124350 
124352 
124356 


124360 
124366 
124370 
124374 
124400 
124402 


000004 
000240 
005737 
001003 
000240 
000137 
000240 


032737 
001402 
000137 
005737 
001002 
000137 


012702 


- DMA WRITE HIT CYCLES 


003032 


125304 


000200 


140340 
002664 


140340 


000340 


000040 
002740 


137370 
001000 
002740 
177752 
001000 
000004 


012525 





114 
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000052 


177520 
114150 


177520 
114150 


002740 


-SBTTL TEST 


- DMA WRITE HIT CYCLES 


sCHECK THAT DMA WRITE HITS INVALIDATE CACHE. 
sROUTINE TEST 


ALLOCATE A LOCATION IN CACHE 
INITIATE DMA WRITE TO THIS LOCATION 
READ THIS LOCATION BACK 

IF IT IS CHANGED OR HIT/MISS EQ HIT 


. ERROR 

ENDIF 

WRITE TO THE FIRST 16 LOCATION THEIR ADDRESS 
DO BLOCK MODE TRANSFER TO THOSE LOCATIONS 
START READ WITH THE LAST LOCATION 

IF wee HITS THEN 


- ENDIF 


INITIATE READ DMA TO THE SAME TEST LOCATIONS 
READ THEM BACK 

IF HIT/MISS NE HIT THEN 

. ERROR 








tl 


SEQ 0384 


. ENDIF 
ENDROUTINE 
Hidddhdbih hhh poppe tittiiiitt iii tit tii ttt ttt tt tiTtt ttt TTT TTT Tet 
TST61: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug aid 
JMP ALLEND ; yes skip this 
99$: NOP 
BIT #BITO7 ,a#52 sUFD MODE? 
BEQ i$ ;IF NOT, BRANCH 
JMP $EOP sOTHERWISE, NEXT PASS 
1$: TST CSR1 sAT LEAST 1 Q22BE? 
BNE 2s sIF YES, BRANCH 
JMP $E0P sOTHERWISE, NEXT PASS 
; 
; TRY TO DO DMA WRITE AT ALL DIFFERENT PRIORITIES 
; 
2$: MOV #340,R2 sSTART WITH 7 
BR 4$ :GO DO IT 
3$: SUB #40,R2 sLOWER PRIORITY 
4$: CLR TEMP sCLEAR TEST LOCATION 
CLR RO :D0 JUST 1 WORD 
MTPS R2 sLOWER PRIORITY 
JSR PC ,DMATRN :D0 DATO 
BIC #1000,BCSR sDISABLE HALT ON BREAK 
TST TEMP sSTILL CACHED? 
MOV HITMIS ,RECDAT sSTORE HIT/MISS 
BIS #1000,BCSR ;ENABLE HALT ON BREAK 
BIT #BITO2,RECDAT sLAST ACCESS HIT? 
BEQ 5$ sIF MISS, BRANCH 
ERROR +120 
5$: CMP #12525, TEMP :DATO OK? 
BEQ 6$ 3IF SO, BRANCH 
ERROR +123 ;DATO 
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DMA WRITE HIT CYCLES 


124506 005702 
124510 001341 


124512 106427 000340 


012737 
004737 
005037 
042737 
005737 
013737 
052737 
032737 
001401 
104123 


124516 


124572 


000010 
002740 


124574 
124600 
124604 
124606 
124610 
124612 
124620 
124626 
124634 
124640 
124646 
124650 
124652 
124656 
124662 
124670 
124672 
124700 
124706 
124714 
124716 
124720 
124724 
124726 
124730 
124734 


012701 
012702 
005022 
077102 
005200 
012777 
012777 
012777 
004737 
032777 
001401 
104123 
012701 
012702 
042737 
005712 
013737 
052737 
032737 
001401 
104121 
022722 
001401 
104123 
062702 
077126 


002740 
177770 
001701 
137370 
010000 


000004 
002740 
001000 


177752 
001000 
000004 


012525 


000002 


136574 
100000 
000001 


124736 
124742 
124750 
124756 
124764 
124772 
124776 


004737 
012737 
042737 
052737 
012737 
012702 
005712 
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177746 


177520 


114150 
177520 
114150 


056050 
056044 
056030 


056020 


177520 


114150 
177520 
114150 


172354 
172314 
177572 
000004 


6$: 


; 
; DO DATBO 


3 
DATBO: 
1$: 


2s: 
3$: 


4$: 


8 
; DO 4K 
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R2 
3$ 
$340 


VERIFY THAT BYPASS WITH DMA DATI INVALIDATES CACHE 


#BITO9,CCR 
PC ,DMATRN 
CCR 
#1000,BCSR 
TEMP 


HITMIS ,RECDAT 
#1000,BCSR 
#BITO2,RECDAT 
DATBO 

+123 


#10,R1 
@TEMP ,R2 
(R2)+ 
R1,1$ 

RO 


@TEMP , BA 
#177770, WC 
#1701, 8CSR1 
PC ,DMATRN 
alae anna 


¢ 

HITMIS ,RECDAT 
#1000,BCSR 

> rman 


+121 

#12525, (R2)+ 
S$ 

+123 


#2 ,R2 
R1,3$ 


AND CHECK FOR MISS 


PC, INITMM 
#2000 , KIPAR6 
#BIT15,KIPDR6 
#BITOO,MMRO 
#DATI ,ae4 
#140000 ,R2 
(R2) 


SS 


cite eR 


SEQ 0385 ~—Cs! 


sLAST PRIORITY 0? 
;IF NOT, BRANCH 
sRESTORE PRIORITY 


;SET BYPASS 

:D0 DMA DATI 

;CLEAR BYPASS 

sDISABLE HALT ON BREAK 
sIN CACHE? 

sSTORE REGISTER 
sENABLE HALT ON BREAK 
sTEMP WAS A HIT? 

:;IF NOT, BRANCH 


;COUNTER FOR 8 

;START WITH TEMP 
sCLEAR ALL 16 

;D0 ALL 16 

sFLAG BLOCK MODE 

;LOAD DMA ADDRESS 

3:00 8 WORDS 

316 WORDS FROM 32K 

3:00 DATBO 

sNO BLOCK MODE SLAVE? 
;IF NOT, BRANCH 

sNO BLOCK MODE SLAVE 
sCOUNTER FOR 4 LOCATIONS 
sSTART WITH TEMP 
sDISABLE HALT ON BREAK 
sACCESS A LOCATION 
sSTORE REGISTER 
sENABLE HALT ON BREAK 
sHIT? 

;IF NOT, BRANCH 

sDMA DOES NOT INVALIDATE 
:DATO OK? 

;IF SO,BRANCH 

3IN DMA 

3:00 IN 2 WORDS 

;D0 ALL 16 


;SET UP MMU 
;START AT 32K 
3NO BYPASS 
sENABLE MMU 

3IF 32K NXW 
sSTART WITH 32K 
;EXIT 





— 
' 
‘ 
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012701 010000 
005022 
077102 
005200 
012777 
012777 
012777 
004737 
012701 
012702 
042737 
005712 
013737 
052737 
032737 
001401 
104121 
022722 
001401 
104123 
062702 
077126 


177752 
001000 
000004 


012525 


000002 
125122 


177572 
001100 
137542 
052525 


137452 
052525 


125124 


000010 
002740 
002740 


137452 
010000 


002756 


001000 
002740 
177752 
001000 
000004 
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6$: 


055650 
055644 
055630 

7$: 
177520 8$: 
114150 


177520 
114150 


9$: 
10$: 


F 

; CHECK 
3 

DATI: 


000004 
002740 


055510 





; 
; DO DATBI 


; 
11$: 


12$: 


055440 
055434 13%: 
177520 14%: 
114150 


177520 
114150 








K14 
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#10000,R1 
C(R2)+ 
R1,6$ 

RO 


#0,9BA 
#-10000, AWC 
#3701,aCSR1 
PC,OMATRN 
#4000,R1 
#140000 ,R2 
#1000,BCSR 
(R2) 


HITMIS ,RECDAT 
#1000,BCS 
> ahleaae rimeemeaas 


#121 

#12525, (R2)+ 
10$ 

+123 

R1,8$ 


#TOUT , 204 
ESeaee., a 


0 

PC ,OMARD 
#52525, aDATA 
11$ 

+123 


#10,R1 
@TEMP ,R2 
@TEMP ,R3 
R3,(R2)+ 
(R3)+ 
R1,12$ 
RO 


PC ,DMARD 
#BIT12,aCSR2 
13% 

+123 
@TEMP+16,@DATA 
14$ 

+123 
#1000,BCSR 
TEMP 

HITMIS ,RECDAT 
#1000,BCSR 
 * eeictanaa 





SEQ 0386 


sCOUNTER FOR 4K 
sCLEAR ALL 16 

D0 ALL 16 

sFLAG BLOCK MODE 
sLOAD DMA ADDRESS 


300 4K 

316 WORDS FROM 32K 

3:00 DATBO 

sCOUNTER FOR 4K LOCATIONS 
sSTART WITH O 

sDISABLE HALT ON BREAK 
sACCESS A LOCATION 
sSTORE REGISTER 

sENABLE HALT ON BREAK 
sHIT? 

;IF NOT, BRANCH 

;0MA DOES NOT INVALIDATE 
sDATO OK? 

;IF SO,BRANCH 

3IN DMA 

:D0 IN 2 WORDS 

:D0 ALL OF THEM 


sDISABLE MMU 
sRESTORE STACK 
sAND TIMEOUT 


sIF YES, BRANCH 
sDATI 


sCOUNTER FOR 16 LOCATIONS 
sSTART WITH TEMP 

sSTART WITH TEMP 

sPUT ADDRESSES 

s INCREMENT ADDRESS 

300 ALL 16 

sFLAG BLOCK MODE 

3:00 DATBI 

sNO BLOCK MODE SLAVE? 

;IF NO, BRANCH 


sDATI OK? 

;IF SO, BRANCH 

:IN DATIB 

;sDISABLE HALT ON BREAK 
;ACCESS 

sSTORE REGISTER 
sENABLE HALT ON BREAK 
sHIT? 

;IF YES, BRANCH 











°-- oo 


L14 
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SE 7 
TEST - OMA WRITE HIT CYCLES Q@ 038 


20787 125302 104123 ERROR +123 
20788 125304 15$: 
20789 125304 ALLEND: 





COKDADO KDJ11-B8 CLUSTER DIAG. 


= 


we -- 


000004 
032737 
001122 
005737 
001517 


013703 


Ps 
TEST - DIFFERENT LEVELS OF INTERRUPTS 


MACRO YOS.02 


000052 


055340 
055334 


001160 
001160 


-SBTTL TEST 
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- DIFFERENT LEVELS OF INTERRUPTS 


sDIFFERENT LEVELS OF INTERRUPTS 
sTHIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 

teapadi WILL BE TESTED. 


; CHECK wa LEVELS OF INTERRUPTS. 


sLEVELS. 


sROUTINE T 


SET VECTOR TO INTERRUPT_DMA 

_ INTERRUPTS FROM 4 TO 7 DO 

ENABLE INTERRUPTS 

SET PRIORITY=*INTERUPT 

IF INTERRUPT_FLAG SET THEN 
ERROR 


S ENDDO 
sENDROUTINE 


ENDIF 


ENABLE INTERRUPTS 
SET PRIORITY*INTERRUPT-1 
IF ane tae NOTSET THEN 


ENDIF 
LET INTERRUPT_DMA=0 


sROUTINE INTERUPT_DOMA 
LET INTERRUPT_FLAG=1 


SEQ 0388 


}RETURN 

s ENDROUTINE 

PETIT iiiiiiiiiiiiiiiitiiiiiiiiitiiiiiiiititiitiiiiiiiiitiit tity 

TST62: SCOPE 
BIT #B1ITO7,aeS52 3;UFD 
BNE TST63 3:IF SO, EXIT TEST 
TST CSR1 ;AT LEAST ONE Q22BE FOUND? 
BEQ TST63 3:IF NOT, EXIT TEST 

e 

3; SETUP INITIAL PRIORITY TO 7 

Hy 
MOV CSR1,R3 300 FOR FIRST FOUND Q22BE 
MOV @5$,8VQBE1 sPOINT INTERRUPT VECTOR TO PROGRAM 
MOV 340, 8VQPR1 sAT PRIORITY 7 
MOV @Q22EN,RO sSTART WITH 7 FOR INTERRUPTS 
MOV $340,R1 :LOW BOUNDARY FOR NO INTERRUPTS 
BR 2s sTRY TO DO IT FOR FIRST 

1$: SuB @40,R1 sLOWER LOW BOUNDARY 

a 

3; CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR 

a 

23: MOV 0340, $TMPO sTOP PRIORITY FOR NO INTERRUPTS 
BR 4s 300 FIRST ONE 

3%: UB 040, $TMPO ;00 AT NEXT LEVEL 

4$; MTPS $TMPO sSET PRIORITY NOT TO INTERRUPT 
JSR PC ,Q22INT sENABLE INTERRUPTS 
MOV (RO)+, @CSR2 sCLEAR GO BIT 
NOP 
NOP 
NOP 
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SEQ 0389 
TEST - DIFFERENT LEVELS OF INTERRUPTS 
20847 125422 000403 BR 6$ sIF NO INTERUPT, BRANCH 
20848 125424 104126 S$: ERROR +126 s INTERRUPTS HAPPEN 
20849 125426 005726 TST (SP )- sRESTORE STACK 
20850 125430 005726 TST (SP )- 
20851 125432 020137 001160 6%: CMP R1, $TMPO sLAST ONE? 
20852 125436 001355 BNE 3% sIF NOT BRANCH 
20853 125440 022710 000002 CMP #2,(RO) sAT BR4? 
eeees 125444 0013544 BNE 1$ sIF NOT LAST ONE, BRANCH 
3 
totes s INTERRUPT AT ALL LEVELS 
é 
20858 125446 012777 125542 055222 INQ@22: MOV S$, @VQBE1 sPOINT INTERRUPT VECTOR TO PROGRAM 
20859 125454 012777 000340 055216 MOV #340, 8VQPR1 sAT PRIORITY 7 
20860 125462 012700 003002 MOV @Q22EN,RO sSTART WITH 7 FOR INTERRUPTS 
20861 125466 012701 000300 MOV #300,R1 sTOP BOUNDARY FOR INTERRUPTS 
20862 125472 000402 BR 2s sTRY TO DO IT FOR FIRST 
eoeea 125474 162701 000040 1$: SUB 040,R1 sLOWER TOP BOUNDARY 
3 
Zeeea s CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOWER THAN BR 
—_ 3 
20867 125500 010137 001160 2: MOV R1, $TMPO sPRIORITY FOR INTERRUPTS 
20868 125504 000403 BR as 3:00 FIRST ONE 
20869 125506 162737 000040 001160 3%: SUB 040, $TMPO 300 AT NEXT LEVEL 
20870 125514 106437 001160 4$: MTPS $TMPO sSET PRIORITY NOT TO INTERRUPT 
20871 125520 004737 137350 JSR PC,Q22INT sENABLE INTERRUPTS 
20872 125524 011077 055136 MOV CRO), @CSR2 sCLEAR GO BIT 
20873 125530 000240 NOP sWAIT A WHILE 
20874 125532 000240 NOP 
20875 125534 000240 NOP 
20876 125536 104126 ERROR +126 sINTERRUPTS DON'T HAPPEN 
20877 125540 000402 BR 63 sDON'T RESTORE STACK 
20878 125542 005726 S$: « TST (SP )- sRESTORE STACK 
20879 125544 005726 TST (SP )- 
20880 125546 005737 001160 6$: TST $TMPO sLAST ONE 0? 
20881 125552 001355 BNE 3% sIF NOT BRANCH 
20882 125554 022720 000002 CMP 02, (RO) sAT BR4? 
20883 125560 001345 BNE 1$ sIF NOT LAST ONE, BRANCH 
20884 
20885 
pies | 
rr De en 


eel eel 


COKDADO KDJ11-B CLUSTER DIAG. 
TEST - ARBITRATION BETWEEN PIRQ'S AND INTERRUPTS 


20887 


20933 125732 
20935 125736 


000140 
177772 
040000 








B15 
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000052 


055066 
055062 
000240 
000242 


020000 


-SBTTL 


TEST 


sROUTINE TEST 


ENDROUT INE 


IF UFO T 


ENDIF 


- ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 
sCHECK PRIORITY ORDER BETWEEN PIRQ’S AND INTERRUPTS. 


HEN 
EXIT TEST 


DO FOR I FROM #6 DOWN TO #3 


ENDDO 


SET PRIORITY TO I 


ENABLE INTERRUPT(I+1) AND PIRQ(I+1) 
IF INTERRUPT(I+1) WAS BEFORE PIRQ(I+1) THEN 


: ERROR 
ENDIF 


Et Beeadathtatadetetedeceththtttt ih bbbbbhbbbpppttrrrertitititititiitiiitititiit ts | 


TST63: 


1$: 
2s: 


3$: 


4$: 
S$: 


PIRQT: 


SCOPE 


. WORD 


@BIT07 ,aeS2 sUFD MODE? 

TST64 33IF SO, EXIT TEST 

CSR1 3AT LEAST ONE Q22BE FOUND? 
TST64 33IF NOT, EXIT TEST 

#3$,@VQBE1 sSETUP Q22BE VECTOR 

#340, 9VQPR1 sAT PRIORITY 7 

#4$ ,PIRQVEC sSETUP PIRQ VECTOR 

#340 ,PIRQVEC+2 sAT PRIORITY 7 

#Q22EN,RO sPOINT THRU PRIORITIES FOR Q22BE 
@PIRQT ,R4 sPOINTER THRU PIRQ'S 

CSR1,R3 :D0 FOR FIRST Q22BE 

#300 ,R2 sSTART WITH CPU PRIORITY AT 7 
2$ :D0 FIRST ONE 

#40 ,R2 sLOWER CPU PRIORITY 

0340 sRAISE PRIORITY TO 7 
(R4)+,PIRQ sSET PRIORITY FOR PIRQ’S 

PC, Q22INT sINITIALISE Q22BE TO INTERRUPT 
C(RO)+, @CSR2 sSET DONE BIT 

R2 sLOWER PRIORITY 

+124 sPIRQ'S DON'T TAKE OVER BIRQ'S 
(SP )+ ;CLEAN UP STACK 

(SP )-+ 

S$ sBRANCH AROUND PIRQ INTERRUPT 
CSP )-+ ;CLEAN UP STACK 

(SP )+ 

#140,R2 sPRIORITY 3 LAST ONE? 

1$ ;IF NOT BRANCH 

PIRQ ;CLEAR ANY REQUESTS 

100000 , 40000 , 20000 , 10000 sPIRQ‘' S<7-4> 


S| <heSSSSSSssSsSSssSsSssssssss 





SEQ 0390 





feelin 


C15 
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SEQ 0391 
TEST - POWER DOWN TEST 

20938 -SBTTL TEST - POWER DOWN TEST 
20939 sUSING Q22BE THIS TEST WILL CHECK THAT ON POWER DOWN CONDITION IF 
20940 sPOWER UP CODE 00 IS SELECTED THE CPU TRAPS THRU 24 
20941 sROUTINE TEST 
20942 a IF UFD OR POWER UP CODE 00 NOT SELECTED THEN 
20943 i. : EXIT TEST 
20944 H ENDIF 
20945 ; SET 24 TO POINT TO TEST AREA 
20946 ; LET CSR2<5> = #1 TO NEGATE BPOK 
20947 3. IF NO TRAP TO 24 THEN 
20948 3. ° ERROR IN POWER DOWN CYCLE — 
20949 3. ENDIF 
20950 ; IF TRAP TO 24 THEN 
20951 3. : LET CSR2<5> = #0 
20952 3. END 
20953 s ENDROUTINE 
20954 
20955 HE iddadaacachhddedethh bh hhh rept teeter iti titi titi ii ititiiii¢ttt ttt + ttt ty 

125746 000004 TST64: SCOPE 
20956 125750 032737 000200 000052 BIT #BITO7,aeS2 sUFD MODE? 
20957 125756 001033 BNE TST65 3sEXIT TEST IN UFD MODE 
20958 125760 005737 002664 TST CSR1 sAT LEAST ONE Q22BE FOUND? 
20959 125764 001430 BEQ TST65 ssIF NOT, EXIT TEST 
20960 125766 013737 000024 001160 MOV PWRVEC , $TMPO sSAVE POWER UP VECTOR 
20961 125774 012737 126030 000024 MOV #1$ ,PWRVEC sPOINT NEW TO PROGRAM 
20962 126002 012737 000340 000026 MOV #340, PWRVEC+2 sAT PRIORITY 7 
20963 126010 012777 000040 054650 MOV #BITOS,aCSR2 :D0 POWER DOWN 
20964 126016 000240 NOP 
20965 126020 005077 054642 CLR acsRe2 ;CLEAR POWER DOWN BIT 
20966 126024 104125 ERROR +125 sNO POWER DOWN TRAP 
20967 126026 000404 BR 2s sSKIP RESTORING STACK 
20968 126030 005077 054632 1$: CLR acsR2 s;CLEAR POWER DOWN BIT 
20969 126034 005726 TST (SP )+ sRESTORE STACK POINTER 
20970 126036 005726 TST (SP )+ 
20971 126040 013737 001160 000024 23: MOV $TMPO , PWRVEC sRESTORE POWER VECTOR 
20972 
20973 
20974 


— 





COKDADO KDJ11-B CLUSTER DIAG. 


TEST 


126046 
126050 
126056 
126060 
126064 
126066 


126072 
126100 
126106 
126114 
126122 
126126 
126132 


126134 
126140 
126144 
126150 
126154 
126160 
126164 


126222 


012777 
012777 
012777 
012777 
012700 
012702 
000402 


162702 
106427 
013703 
004737 
011077 
013703 
005740 
004737 
012077 


022702 


000040 
000340 
002704 
137350 
054506 
002664 


137350 
054510 


000140 





D1i5 
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- ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 


000052 


054576 
054572 
054602 
054576 


-SBTTL TEST 





SEQ 0392 


- ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 


;IF TWO Q22BE ARE AVAILABLE, THIS TEST WILL CHECK THAT HIGHER LEVEL 
sINTERRUPT REQUESTS TAKE PRIORITY OVER LOWER LEVEL ONES 


sROUTINE TEST 


ENDIF 


ENDDO 


TEST 


3. IF UFD OR mats Q22BE NOT AVAILABLE THEN 


_ FOR PRIORITY_LEVELS FROM 4 TO 6 


SET UP 1ST Q22BE TO INTERRUPT AT PRIORITY -LEVEL 

SET UP 2ND Q22BE TO INTERRUPT AT PRIORITY_LEVEL+1 

SET UP CPU PRIORITY TO PRIORITY_LEVEL-1 

IF we FORM 1ST Q22BE HAPPENED BEFORE 1ST THEN 


ENDIF 


bf FESS EEEEE EEE EE EEEEEEEEEEESESESEEEEEEEEEEEEEEEEEEEE 


ENDROUTINE 

TST6S: SCOPE 
BIT #BITO7,a#52 
BNE TST66 
TST CSRi2 
BNE i$ 
JMP $E0P 

; INITIALISE VECTORS FOR Q22BE'S 

; 

1$: MOV #4$ ,AVQBE1 
MOV #340, QVQPR1 
MOV #5$ ,aVQBE2 
MOV #340, @VQPR2 
MOV #Q22EN+2,RO 
MOV #240 ,R2 
BR 3$ 

; 

; DO FOR CPU PRIORITIES 5-3 

; 

2s: SUB #40 ,R2 

3$: MTPS #340 
MOV CSR12,R3 
JSR PC, Q22INT 
MOV (RO), @CSR2 
MOV CSR1,R3 
TST -CRO) 
JSR PC, Q22INT 
MOV CRO)+, @CSR22 
MTPS R2 
NOP 
NOP 
NOP 

4$: ERROR +126 
TST (SP )+ 
TST (SP )-+ 
BR 6$ 

S$: TST (SP )+ 
TST (SP )+ 

6$ CMP #140 ,R2 


; UF 
+3;IF SO, EXIT TEST 


D MODE? 


sSECOND Q22BE AVAILABLE? 
sIF YES, GO DO TEST 
sOTHERWISE, GOTO EOP 


;VECTOR FOR 1ST ONE 

sAT PRIORITY 7 

sVECTOR FOR 2ND ONE 

sAT PRIORITY 7 

sPOINTER FOR Q22BE BR’S 
;CPU AT S 

sSTART DOING ARBITRATION 


a's CPU PRIORITY 

; 

sQ22BE 2 "at HIGHER BR 
sINITIALISE TO INTERRUPTS 
sSTART 1ST ONE 

;Q22BE 1 AT LOWER BR 
sHIGHER PRIORITY 

; INITIALISE 

sSTART 2ND ONE 

sLOWER CPU PRIORITY 
sWAIT A WHILE 


s INTERRUPTS IN WRONG ORDER 
sRESTORE STACK 


sRESTORE STACK 
sPRIORITY 3 LAST? 








poo 


| ak 
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TEST - ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 
ete] 126226 001342 BNE 2$ :IF NOT, BRANCH TO CONTINUE 


SEQ 0393 


COKDADO KDJ11-B CLUSTER DIAG. 
- PMG COUNTER 


TEST 


21035 
21036 
21037 
21038 
21039 
21040 
21041 
21042 
21043 
21044 
21045 
21046 
21047 


126230 
126232 
126234 
126240 
126242 
126244 
126250 


126252 
126260 
126262 
126266 
126272 
126274 


126300 
126304 
126310 
126316 
126324 
126332 
126340 
126346 


000004 
000240 
005737 
001003 
000240 
000137 
000240 


032737 
001402 
000137 
005737 
001002 
000137 


005077 
005077 
012777 
012777 
012777 
012777 
012777 
012777 


03032 


126750 


000200 


140340 
002704 


140340 


054362 
054376 
002740 
002740 
177777 
177777 
012525 
052525 





F1i5 
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000052 


054352 
054364 
054340 
054352 
054326 
054340 


-SBTTL -TEST - PMG COUNTER 


sUSING 2 Q22BE THIS TEST WILL VALIDATE THAT PMG COUNTER IS REALLY 
sCAPABLE OF GRANTING CPU BUS MASTERSHIP WHEN DMA REQUESTS ARE STILL 


sPENDING. ° 
sROUTINE TEST 


$e 
3. 
4 


. ERROR 
. ENDIF 
ENDROUTINE 
5 RRR RR EERE REAR EE EERE REET EE EERE EEEEEEEEEEEEEREREEEEEREREEEEREE 
TST66: SCOPE 
NOP 
TST CCHPAS 
BNE 99$ ; not yet 
NOP 3; debug aid 
JMP 11$ ; yes skip this 
99$: NOP 
BIT #BITO” ,a#S2 ;UFD MODE? 
BEQ 100$ ;IF NOT, CONTINUE 
JMP $EOP sEXIT 
100$: TST CSRi2 
BNE 110$ 
JMP $EOP 


IF UFD OR NO 2ND Q22BE THEN 
‘ EXIT TEST 
ENDIF 


SET PMG COUNT TO SOME VALUE 

PROGRAM BOTH Q22BE TO INTERRUPT AT THE SAME LEVEL 
DETERMINE WHICH HAS HIGHER PRIORITY ON THE BUS 
PROGRAM Q22BE WITH HIGHER PRIORITY TO DO HOG MODE 
PROGRAM 2ND ONE TO DO A CYCLE 

CACHE INSTRUCTION THAT WILL STOP 2ND DMA 

INITIATE BOTH DMA CYCLES 

STOP 2ND DMA (RESET IS “STOLEN” CPU BUS CYCLE) 

IF 2ND — THEN 


ENDIF 

CLEAR PMG COUNT 

PROGRAM Q22BE WITH HIGHER PRIORITY TO DO HOG MODE 
PROGRAM 2ND ONE TO DO A CYCLE 

CACHE INSTRUCTION THAT WILL STOP 2ND DMA 

INITIATE BOTH DMA CYCLES 


STOP 2ND DMA (CLEARING OF CSR2<0> IS “STOLEN” CPU BUS CYCLE) 


IF 2ND DMA DIDN'T HAPPENED THEN 


; 
; DETERMINE WHICH Q22BE IS CLOSER TO CPU BY DOING DATO 


; THE CSR1 OF THE ONE WITH HIGHER PRIORITY IS IN R4, THE SECOND IN R2 
;CLEAR JUST IN CASE 


sADDRESS TO BE USED 
;FOR BOTH OF THEM 
;D0 FOR 1 WORD 

:IN BOTH Q22BW'S 
sDATA FOR 1ST 

;DATA FOR 2ND 


; 
110$: 





CLR acsRe 

CLR acsrR22 

MOV @TEMP , BA 
MOV #TEMP , ABA] 
MOV #177777, AWC 
MOV #177777, awCc2 
MOV #12525, @DATA 
MOV #52525, @DATA2 











shave done enough inclusive passes? 


sSECOND Q22BE AVAILABLE? 
sIF YES, GO DO TEST 
sOTHERWISE, GOTO EOP 


SEQ 0394 


TEST 





126354 
126362 


126700 


012777 
012777 
012777 
105777 


013704 
013702 


013737 


012762 


anane KDJ11-8 CLUSTER DIAG. 
- PMG COUNTER 


G15 
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054302 
054314 
054304 


002740 


002730 


177520 


000004 
000006 


000004 


MOV #1601, 8CSR1 
MOV #1601, 8CSR12 
MOV #1, @SIMGOA 
1$: TSTB acsRi 
BPL 1$ 
2s: TSTB acsRi2 
BPL 2s 
CMP #52525, TEMP 
BEQ 3$ 
MOV CSR12,R4 
MOV CSR1,R2 
BR 4$ 
3$: MOV CSR1,R4 
MOV CSR1i2,R2 
; 
; INITIATE DMA CYCLES TO WORK WITH PMG COUNTER 
, 
4$: MOV BCSR,SAVBR 
MOV #BITOO,RO 
S$: BIS RO,BCSR 
TST 6$ 
TST 6$+2 
TST 6$+4 
TST 6$+6 
MOV #1407, (R4) 
CLR 2(R4) 
MOV @TEMP ,4(R4) 
MOV #0,6(R4) 
MOV #1407, (R2) 
CLR 2(R2) 
MOV #TEMP ,4(R2) 
MOV #177777 ,6CR2) 
CLR 10(R2) 
MOV #1,16(R2) 
6$: RESET 
CMP TEMP , 10(R2) 
BNE 7$ 
ERROR +127 
7$: ADD #3,RO 
BIC RO,BCSR 
CMP #7,RO 
BGE S$ 
; 
3; TRY WITHOUT PMG COUNTER OPERATING 
; 
BIC #7,BCSR 
TST 8$ 
TST 8$+2 
TST 8$+4 
TST 8$+6 
MOV #1407, (R4) 
CLR 2(R4) 
MOV #TEMP ,4(R4) 
MOV #0,6(R4) 
MOV #1407, (R2) 
CLR 2(R2) 
MOV @TEMP ,4(R2) 








SEQ 0395 


31 DATO FOR 1ST 
;AND 2ND 

;BOTH GO 

sFIRST DONE? 
;IF NOT, WAIT 


2ND 
sSECOND FINISHED LAST? 
;IF SO, BRANCH 
sSECOND ONE AT HIGHER LEVEL 
sFIRST AT LOWER 
;D0 PMG PART 
sFIRST ONE AT HIGHER LEVEL 
;SECOND AT LOWER 


;STORE BCSR REGISTER 

sFIRST VALUE FOR PMG 0.4msec 
sCHANGE PMG CONUTER 

;CACHE RESET INTRUCTION 

;AND THE FOLLOWING FEW 

i 


sDATI IN HOG MODE FOR HIGHER ONE 
;CLEAR CSR2 

sADDRESS TO START DATI 

;00 128 DATI'S IN HOG MODE 
;DATO FOR LOWER LEVEL ONE 
;CLEAR JUST IN CASE 

;USE THE SAME ADDRESS 

;D0 JUST ONE DATO 

;CLEAR DATA OF 2ND Q22BE 
;BOTH GO 

;STOP Q22BE AT R4 

;SECOND DMA DONE? 

;IF SET, BRANCH 

sNO CYCLE STEALING 

;D0 FOR 1,3,7 IN PMG 

;CLEAR PREVOIUS BITS IN BCSR 
;LAST ONE? 

;IF NOT, BRANCH 


;TURN OF PMG COUNTER 
sCACHE RESET FETCH 
;AND THE FOLLOWING FEW 
i 


: 

s;DATI IN HOG MODE FOR HIGHER ONE 
;CLEAR CSR2 

sADDRESS TO START DATI 

:D0 128 DATI'S IN HOG MODE 

;DATO FOR LOWER LEVEL ONE 

;CLEAR CRS2 OF 2ND 

;USE THE SAME ADDRESS 





TEST 


21148 126706 
21149 126714 
21150 126720 
21151 126726 
21152 126730 
21153 126736 
21154 126740 
21155 126742 
21156 126750 
21157 126752 


21159 126756 
21160 126764 
21161 126766 
21162 126772 
21163 126774 


21166 127000 





012762 
005062 


123727 
001005 
005737 
001402 
005337 


000205 


COKDADO KDJ11-B CLUSTER DIAG. 
- PMG COUNTER 


177777 
000010 
000001 


002740 


002730 
140340 
001220 
003032 
003032 


MACRO YOS.02 


000006 
053754 
000010 


177520 


000001 


8$: 


9$: 


11$: 


VIREOP: 


1$: 


H1i5 
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#177777 ,6(R2) 
10(R2) 
#1,@SIMGOA 


TEP , 10(R2) 
9$ 

+127 
SAVBR,BCSR 
$eop 
SENV, #1 

i$ 

CCHPAS 


1$ 
CCHPAS 


SEQ 0396 


:D0 JUST ONE DATO 

sCLEAR DATA OF 2ND Q22BE 
;BOTH GO 

;IF NOT WORKING, STOPS 2ND 
32ND DMA HAPPENED? 

;IF YES, BRANCH 

IN PMG COUNTER 

sRESTORE BCSR 


; if not APT, don't worry about 


: maintain cache routin pascnt 


; This VIREOP ROUTINE to provide common End of Pass exit point 


r5 


a nS ST - ora em 


COKDADO KDJ11-B8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


21169 
21170 
21171 
21172 
21173 
21174 
21175 
21176 
21177 
21178 
21179 
21180 
21181 
21182 
21183 
21184 
21185 


127002 
127036 
127050 
127062 


132235 





115 
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-SBTTL GLOBAL ERROR MESSAGES 


123. EM1: 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 





/BASIC INSTRUCTION SET ERROR/ 

/MMU ERROR/ 

/FPP ERROR/ 

ERROR IN READ-WRITE BITS OF CCR/ 

/FORCE MISS WRITES TO CACHE/ 

/FORCE MISS WRITE INVALIDATES CACHE/ 
/UNEXPECTED PARITY INTERRUPT/ 

/TAG PARITY ERROR/ 

/DATA PARITY ERROR/ 

/LOW BYTE PARITY ERROR/ 

/HIGH BYTE PARITY ERROR/ 

ZERROR IN DATA PATH/ 

/FORCE MISS READS FROM CACHE/ 

/FORCE MISS READS FROM CACHE AND MISS/ 
\NERROR IN RECORDING HITS IN HIT/MISS\ 
/WRITE BYTE ALLOCATES CACHE/ 

/WRITE BYTE HIT DOES NOT RECORD HIT/ 

/BYTES REVERSED ON WRITE CYCLES/ 
/CONDITIONAL BYPASS DOESN'T INVALIDATE CACHE/ 
“HITS RECORDED AFTER FLUSHING CACHE/ 
/BYPASS DOESN'T INVALIDATE CACHE/ 

/MSER DOES NOT CLEAR ON WRITE REFERENCE/ 
/PARITY ERROR DON'T CAUSE A MISS/ 

/PARITY ERROR DON'T SET MSER WITH CCR<7>=0/ 
/PARITY ERROR IGNORED/ 

/PARITY ERROR IGNORED ON LOW BYTE/ 

/PARITY ERROR IGNORED ON HIGH BYTE/ 

/PARITY ABORT LOGIC DOESN'T WORK/ 

/MSER NOT SET PROPERLY/ 

/PARITY INTERRUPT LOGIC DOESN'T WORK/ 

/NXM AND PARITY ABORT DIN'T HAPPEN/ 

/PARITY ABORT NOT BLOCKED BY NXM TRAP/ 
/MULTI-PROCESSOR HOOK INSTRUCTION DOESN'T CAUSE MISS/ 
ZERROR IN PARITY LOGIC/ 

ERROR IN CACHE DATA RAMS/ 

ERROR IN NXM IN STANDALONE MODE/ 

\NERROR IN RECORDING HITS THROUGH HIT/MISS REGISTER\ 
“HIT RECORDED FOR A LOCATION THAT SHOULD NOT BE IN CACHE/ 
/MISS RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE/ 
ZERROR IN TAG STORE/ 

ZERROR PCR READ-WRITE BITS/ 

7ERROR IN BCSR READ-WRITE BITS/ 

/RESET DOESN'T CLEAR BCSR<4>/ 

/CHECKSUM ERROR IN 16-BIT ROM / 

/CHECKSUM ERROR IN 8-BIT ROM/ 

/TIMEOUT READING LKS/ 

/LKS<07> DOES NOT BECOME 1/ 

/WRITE REFERENCE DOESN'T CLEAR LKS<07>/ 
/ILLEGAL LKS INTERRUPTS/ 

/PROCESSOR INTERRUPTS DON’T CLEAR LKS<07>/ 
/LKS READY DOESN'T GO LOW/ 

/WRONG NUMBER OF LKS INTERRUPTS/ 

/LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/ 
/BCSR<12> DOES NOT DISABLES LKS/ 

/BCSR<13> DOESN'T SET LKS<06>/ 

/RESET DOESN'T SET LKS<7>/ 





—_ A 


' 
| 


eee Re eS 


COKDADO KDJ11-B CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


21226 132266 122 105 
21227 132322 124 111 
21228 132360 105 122 
21229 132404 122 103 
21230 132435 127 122 
21231 132466 122 103 
21232 132536 130 103 
21233 132570 122 103 
21234 132626 123 114 
21235 132661 122 105 
21236 132743 124 122 
21237 133016 122 105 
21238 133066 102 122 
21239 133141 122 102 
21240 133217 123 114 
21241 133253 105 122 
21242 133315 106 111 
21243 133373 117 126 
21244 133456 117 126 
21245 133542 105 122 
21246 133563 105 122 
21247 133633 104 115 
21248 133714 115 123 
21249 133757 104 115 
21250 134025 111 116 
21251 134123 122 105 
21252 134151 105 122 
21253 134203 120 111 
21254 134275 116 117 
21255 134334 105 122 
21256 134371 105 122 
21257 134433 125 116 
21258 134460 105 122 
21259 134510 105 122 
21260 134546 105 105 
21261 134567 122 105 
21262 

21263 134621 040 124 
21264 134636 040 040 
21265 134646 040 124 
21266 134704 040 040 
21267 134733 040 124 
21268 134777 040 040 
21269 135032 040 124 
21270 135064 040 040 
21271 135105 040 124 
21272 135131 040 040 
21273 135151 105 122 
21274 135204 040 040 
21275 135214 040 124 
21276 135245 040 040 
21277 135265 040 124 
21278 135330 040 040 
21279 135365 040 124 
21280 135422 040 040 
21281 135452 040 124 
21282 135500 040 





MACRO YOS.02 


EM71: 
EM72: 
EM73: 
EM74: 
EM75: 
EM76: 
EM77: 


DH1: 


EM100: 
EM101: 
EM102: 
EM103: 
EM104;: 
EM105: 
EM106: 
EM107: 
EM110: 
EM1i11: 
EM1il2: 
EM113: 
EM114: 
EM115: 
EM116: 
EM117: 
EM120: 
EM121: 
EM122: 
EM123: 
EM124: 
EmM1i25: 
EM126: 
EM127: 
EM130: 
EM131: 
EM132: 
EM133: 
EM134: 


Wednesday 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
.ASCITI 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 
-ASCII 
-ASCIZ 


J15 
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SEQ 0398 


/RESET DOESN'T CLEAR LKS<06>/ 

/TIMEOUT READING SLU REGISTERS/ 

ZERROR IN XMIT READY/ 

/RCSR<7> DOESN'T BECOME 1/ 

/WRONG CHARACTER RECEIVED/ 

/RCSR<O7> NOT CLEARED AFTER READING RBUF/ 

7XCSR<O7> NOT SET ON RESET/ 

/RCSR<O7> NOT CLEARED ON RESET/ 

/SLU INTERRUPTS HAPPEN AT 4/ 

/RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 
/TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 
/RECEIVE INTERRUPTS DON’T CLEAR RCSR<07>/ 

/BREAK CONDITION DOES NOT SET RBUF PROPERLY/ 

/RBUF <15-11> WASN'T CLEARED ON NEXT CHARACTER/ 

/SLU INTERRUPTS DON’T HAPPEN/ 

ERROR IN WRITING TO SLU REGISTERS/ 

/FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 
ZOVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/ 
/OVERRUN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 
NERROR ON XCSR<2>\ 

ZERROR IN TAG STORE FROM STANDALONE MODE/ 

/OMA TAG PARITY DOES NOT GENERATE PROPER RESPONSE/ 
/MSER<13>NOT SET IN STANDALONE MODE/ 

/OMA WRITE HITS DON'T INVALIDATE CACHE/ 

7IN BLOCK MODE ON WRITE DMA HITS NOT EVERYTHING IS INVALIDATED/ 
/READ DMA HIT IS WRONG/ 

ZERROR IN Q22BE DMA CYCLES/ 

/PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER Q@ BUS INTERRUPTS/ 
/NO POWER DOWN TRAP TO 24 OCCUR/ 

ZERROR DOING Q22BE INTERRUPTS/ 

ERROR IN OPERATION OF PMG COUNTER/ 

/UNEXPECTED TRAP TO 4/ 

ERROR WRITING TO LKS<6>/ 

ERROR IN MAINTENANCE REGISTER/ 

7EEROM TYPE ERROR/ 

/READ OR WRITE EEROM ERROR/ 


7 TEST ERROR/<15><12> 

4 @ PC/ 

/ TEST ERROR EXPCTED RECEIVED/<15><12> 

4 @ PC DATA DATA/ 

“4 TEST ERROR WHITMIS DATA IN DATA IN/<15><12> 
4 ¢@ PC REG. CACHE MEMORY/ 

“7 TEST ERROR ADDRESS MSER/<15><12> 

4 @ PC ACCESSED/ 

4 TEST ERROR NUMBER/<15><12> 

4 @ PC OF HITS/ 

\ERROR “TZ MSER HIT/MISS\<15><12> 

4 @ / 

/ TEST ERROR INSTRUCTION/<15><12> 

4 ¢@ PC OPCODE/ 

“4 TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 
4 @ PC DATA DATA  LOCATION/ 

/ TEST ERROR ADDRESS ADDRESS/<15><12> 

4 @ PC <21-16> <15-0>/ 

4 TEST ERROR PRIORITY/<15><12> 

4 @ PC LEVEL/ 


mal 


fn 


| COKDADO KDU11-8 CLUSTER DIAG. 
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21283 135516 
21284 135543 


21314 136336 


—_——_ 


K15 
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DH72: 

DH105: 
DH115: 
D0H134; 


-ASCII 
-ASCIZ 
- ASCII 
-ASCIZ 
-ASCII 


/ TEST ERROR ADDRESS/<15><12> 
4% PC FAILED/ 

/ TEST ERROR RBUF/<15><12> 

4 @ PC/ 

/ TEST ERROR MSER  ADDRESS/<15><12> 

4 ¢ PC ACCESSED/ 

/ TEST ERROR # of DATA PCR 
4 ¢@ PC ERRORS PATTERN READ 
$TMP1, $ERRPC,O 

$TMP1, $ERRPC.R1,CCR,O 


$TMP1, $ERRPC,R2,R1,$GDDAT,O 

$TMP1, $ERRPC, $BDADR ,MSER,O 

$TMP1, $ERRPC, $GDDAT, TSTLOC,0O 

$TMP1, $ERRPC, $GDDAT ,RECDAT,O 

$TMP1, $ERRPC,R3,0 
$TMP1, $ERRPC ,MSER,R3,0 

$TMP1, $ERRPC, $GDDAT ,MSER,O 

$TMP1, $ERRPC, $B8DDAT,O 

$TMP1, $ERRPC,R1,RECDAT, $BDADR,O 
$TMP1, $ERRPC ,KIPAR6, $BDADR,O 

$TMP1, $ERRPC,R1,$BDADR,O 

$TMP1, $ERRPC, $GODAT,PCR,O 

$TMP1, $ERRPC, $GDDAT,BCSR,O 

$TMP1, $ERRPC, $GDDAT,LKSFL,O 

$TMP1, $ERRPC, $GDDAT,O 

$TMP1, $ERRPC, $GDDAT, $BDDAT,O 

$TMP1, $ERRPC,RBUF ,O 

$TMP1, $ERRPC, $BDDAT ,KIPARG, $BDADR,O 
$TMP1, $BDADR,O 

$TMP1, $ERRPC,,ERRCNT ,R3, $BDDAT,R4, $BDADR,O 





SEQ 0399 


ADDRESS/<15><12> 
ACCESSED/ 


See ee 











| 21372 136550 000401 BR 10$ 33GO TYPE 


| 
| BL | 
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SEQ 0400 
MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
21316 -SBTTL MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
21317 eee TTI i titi it titi TTT ier t rit TTT TTT TTT TTT 
21318 s*THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
21319 s*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM Tl: “ERROR TABLE” C$ERRTB), 
tert 3*AND REPORTS THE APPROPRIATE INFORMATION CONCERNIN 4E ERROR. 
3* 

21322 s*THE ONLY DIFFERENCE BETWEEN THIS ROUTINE AND THE ORIGINAL “$ERRTYP” FROM | 
21323 s*SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE REGISTERS TO THIS 
21324 s*ROUTINE. THE GENERAL PURPOSE REGISTERS USED ARE TO BE SPECIFIED IN OTs 
staee :*FORMAT. RO SHOULD NOT BE USED. 
21327 136356 ERTYPE: 
21328 136356 005037 001162 CLR $TMP1 3;JUST CLEAR IT 
21329 136362 113737 001102 001162 MOVB $TSTNM, $TMPL ::;STORE TEST NUMBER 
21330 136370 104401 001175 TYPE » $CRLF 3;"CARRIAGE RETURN" € “LINE FEED* 
21331 136374 010046 MOV RO, -CSP) 33;SAVE RO 
21332 136376 005000 CLR RO 3;PICKUP THE ITEM INDEX 
21333 136400 153700 001114 BISB OOS ITEMB,RO 
21334 136404 001004 BNE 1$ 33;IF ITEM NUMBER IS ZERO, JUST 
21335 3sTYPE THE PC OF THE ERROR 
21336 136406 013746 001116 MOV $ERRPC, -CSP) :;SAVE $ERRPC FOR TYPEOUT 
21337 ::ERROR ADDRESS 
21338 136412 104402 TYPOC 3;GO TYPE--OCTAL ASCIICALL DIGITS) 
21339 136414 000426 BR 6$ 33:GET OUT 
21340 136416 005300 1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
21341 136420 006300 ASL RO 23 WORK FOR THE ERROR TABLE 
21342 136422 006300 ASL RO 
21343 136424 006300 ASL RO 
21344 136426 062700 001324 ADD #$ERRTB,RO :;FORM TABLE POINTER 
21345 136432 012037 136442 MOV CRO)+,2$ 3;PICKUP “ERROR MESSAGE” POINTER 
21346 136436 001404 BEQ 3$ :3;SKIP TYPEOUT IF NO POINTER 
21347 136440 104401 TYPE 
21348 136442 000000 2s: .» WORD c¢) 3sERROR MESSAGE POINTER GOES HERE 
21349 136444 104401 001175 TYPE » $CRLF 33:"CARRIAGE RETURN” & "LINE FEED” 
21350 136450 012037 136460 3$: MOV CRO)+,4$ 3sPICKUP "DATA HEADER” POINTER 
21351 136454 001404 BEQ 5$ 33:SKIP TYPEOUT IF 0 
21352 136456 104401 TYPE 3;TYPE THE “DATA HEADER” 
21353 136460 000000 4$: . WORD c¢) 33;"DATA HEADER” POINTER GOES HERE 
21354 136462 104401 001175 TYPE » $CRLF 33 "CARRIAGE RETURN” & "LINE FEED” 
21355 136466 011000 S$: MOV CRO),RO ;;PICKUP "DATA TABLE” POINTER 
21356 136470 001004 BNE 7$ 3:GO TYPE THE DATA 
21357 136472 012600 6$: MOV CSP)+,RO ssRESTORE RO 
21358 136474 104401 001175 TYPE » $CRLF 33;"CARRIAGE RETURN” & “LINE FEED” 
21359 136500 000207 RTS PC 3 ;RETURN 
21360 136502 7$: 
21361 136502 021027 000005 CMP CRO), @5 ;;GENERAL PURPOSE REGISTER? 
21362 136506 101021 BHI 9$ 33;IF NOT, GO TYPE DATA 
21363 136510 042737 000700 136544 BIC oBITS!:BIT7!BIT6,8$ 3;CLEAR BITS FOR SOURCE REGISTER 
21364 136516 011037 001160 MOV CRO), $TMPO 33;SAVE CRO) 
21365 136522 000337 001160 SWAB $TMPO ;;GET REGISTER NUMBER TO HIGH BYTE 
21366 136526 006237 001160 ASR $TMPO 3;GET REGISTER NUMBER TO BITS 8-6 
21367 136532 006237 001160 ASR $TMPO 
21368 136536 053737 001160 136544 BIS $TMPO,8$ 3;SET BITS IN MOV INSTRUCTION 
21369 3:ACCORDING TO REGISTER NUMBER 
21370 136544 010046 8s: MOV RO, -(SP) 3;sMOVE CONTEXT OF REGISTER TO STACK 
21371 136546 005720 TST CRO)- 3 ;ADVANCE POINTER 


a en 




















ies vot. 4 

i 
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sea 0401! 
MODIFIED ERROR MESSAGE TYPEOUT ROUTINE : 

21373 136552 013046 9%: MOV @CRO)+,-CSP) 33:IF NOT GPR, SAVE @(RO)+ FOR TYPEOUT 
21374 136554 104402 108: TYPOC 3;GO0 TYPE --OCTAL ASCI CALL DIGITS) 
21375 136556 005710 TST CRO) 3:1S THERE ANOTHER NUMBER? 
21376 136560 001744 BEQ 6$ 3;BR IF NO 

21377 136562 104401 136570 TYPE »i11$ i TYPE TWOC2) SPACES 

21378 136566 000745 BR 7$ 

21379 136570 040 040 000 11%: -ASCIZ / / 3: TWOC2) SPACES 

21380 .EVEN 

21381 

1382 -SBTTL GLOBAL SUBROUTINES SECTION 

21383 

21384 3° 

21385 3 THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
21386 ; THAT ARE USED IN MORE THAN ONE TEST. 

21387 ie 

1388 

21389 3° 

21390 3 FUNCTIONAL DESCRIPTION: 

pte ry SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 

21393 

21394 3 INPUTS: NONE 

21395 

21396 3; OUTPUTS: NONE 

21397 

21398 3 SUBORDINATE ROUTINES USED: LOAD PARS 

21399 3 LOAD PORS 

21400 

pe) ; FUNCTIONAL SIDE EFFECTS: NONE 

reas ; CALLING SEQUENCE: JSR PC, INITMM 

21405 136574 012701 172240 INITMM: MOV 172240,R1 sBASE ADDRESS OF SIPARS 
21406 136600 004737 136736 JSR PC, LOPARS 
21407 136604 012701 172260 MOV 0172260, Ri ;BASE ADDRESS OF SDPARS 
21408 136610 004737 136736 JSR PC, LOPARS 

21409 136614 012701 172340 MOV 0172340,R1 sBASE ADDRESS OF KIPARS 
21410 136620 004737 136736 JSR PC, LOPARS 
21411 136624 012701 172360 MOV 172360,R1 ;BASE ADDRESS OF KDPARS 
21412 136630 004737 136736 JSR PC, LOPARS 
21413 136634 012701 177640 MOV #177640,R1 ;BASE ADDRESS OF VIPARS 
21414 136640 004737 136736 JSR PC, LOPARS 
21415 136644 012701 177660 MOV #177660,R1 ;BASE ADDRESS OF UDPARS 
21416 136650 004737 136736 JSR PC, LOPARS 
21417 136654 012701 177600 MOV #177600,R1 sBASE ADDRESS OF VUIPORS 
21418 136660 004737 136766 JSR PC, LOPORS 
21419 136664 012701 177620 MOV #177620,R1 sBASE ADDRESS OF UDPORS 
21420 136670 004737 136766 JSR PC, LOPORS 
21421 136674 012701 172300 MOV #172300,R1 ;BASE ADDRESS OF KIPDRS 
21422 136700 004737 136766 JSR PC, LOPORS 
21423 136704 012701 172320 MOV #172320,R1 ;BASE ADDRESS OF KDPDRS 
21424 136710 004737 136766 JSR PC, LOPORS 
21425 136714 012701 172200 MOV 172200,R1 ;BASE ADDRESS OF SIPDRS 
21426 136720 004737 136766 JSR PC, LOPORS 

21427 136724 012701 172220 MOV #172220,R1 sBASE ADDRESS OF SDPORS 
21428 136730 004737 136766 JSR PC, LOPORS 


| 21429 136734 000207 RTS PC sRETURN 








es pe ~ pie 
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GLOBAL SUBROUTINES SECTION 


SEQ 0402 


21431 see 

21432 s FUNCTIONAL DESCRIPTION: 

21433 ; SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS). 
21434 ; THIS ROUTINE WILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS 
21435 ; SUPPLIED BY THE CALLING ROUTINE. PARS 0-S WILL BE MAPPED FROM 
21436 ; ADDRESS 0 TO ADORESS 137777 (0-24K). PAR 6 WILL BE MAPPED FROM 
21437 3 ADDRESS 200000 10 217777 AND PAR 7 WILL BE MAPPED TO THE 1/0 
21438 ; PAGE. 

21439 

21440 s INPUTS: 

pe | ; R1 CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 
21443 s OUTPUTS: NONE 

21444 

one | s SUBORDINATE ROUTINES USED: NONE 

ope s FUNCTIONAL SIDE EFFECTS: NONE 

Sees s CALLING SEQUENCE: JSR PC,LOPARS 

21451 136736 012702 000006 LOPARS: MOV 06, Re sLET LOOP COUNTER = ny FIRST 6 PARS 
21452 136742 005003 CLR R3 sINITIALIZE INDEX V 

21453 136744 010321 1s: MOV R3, (R1)e sLOAD PARS 

21454 136746 062703 000200 ADO #200, R3 sINDEX IN 4K INCREMENTS 

21455 136752 077204 S08 R2, i$ sLOAD FIRST SIX PARS 

21456 136754 012721 002000 MOV #2000, (R1)- sLET PAR6 MAP TO 200000 

21457 136760 012711 177600 MOV #177600, (R1) sLET PAR7 MAP TO I/0 PAGE 
21458 136764 000207 RTS PC sRETURN 


ee 
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SEQ 0403 

GLOBAL SUBROUTINES SECTION 

21460 see 

21461 s FUNCTIONAL DESCRIPTION: 

21462 ; SUBROUTINE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PORS). 

21463 ; THIS ROUTINE WILL INITIALIZE 8 PDRS STARTING AT A BASE ADDRESS 

21464 ; SUPPLIED BY THE CALLING ROUTINE. PORS 0-S WILL BE INITIALIZED TO 

21465 ; 4K READ/WRITE BYPASS AND PORS 6 AND 7 WILL BE INITIALIZED TO 

21466 ; 4K READ/WRITE NO BYPASS. 

21467 ; NOTE: THERE IS NO NEED TO BYPASS ON I/0 PAGE REFERENCES BECAUSE 

eases ; THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 

21470 ; INPUTS: 

Shere ; Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PORS TO BE INITIALIZED 

21473 3 OUTPUTS: NONE 

21474 

pd s SUBORDINATE ROUTINES USED: NONE 

pd ; FUNCTIONAL SIDE EFFECTS: NONE 

eas ; CALLING SEQUENCE: JSR PC,LDOPARS 

21481 136766 012702 000006 LOPDRS: MOV 96, R2 sLET LOOP COUNTER COUNT FIRST 6 PARS 

21482 136772 012721 177406 1$: MOV #177406, (R1)- sLOAD PORS WITH 4K READ/WRITE BYPASS 

21483 136776 077203 SOB. Re, 1$ sLOAD FIRST SIX PDRS 

21484 137000 012721 077406 MOV #77406, (R1)- sLET PAR6 BE 4K READ/WRITE NO BYPASS 

21485 137004 012711 077406 MOV #77406, (R1) sLET PAR7 BE 4K READ/WRITE NO BYPASS ALSO 


21486 137010 000207 RTS PC RETURN 


a 
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21488 
21489 
21490 
21491 


137012 
137016 
137024 
137026 
137030 
137036 
137040 
137042 
137050 
137052 
137054 
137060 
137062 
137066 


137070 
137076 
137100 


137102 
137106 
137114 
137122 
137126 
137132 
137136 


137140 
137144 


011637 
032737 
001401 
104007 
032737 


032737 
001401 
000207 


013701 
012737 
012737 
005037 
012702 
012703 
000404 


062702 
062703 


001122 
000100 


000200 


000040 


177744 
002722 


001000 


177744 


177744 


177744 


177750 


3¢*¢ 





s FUNCTIONAL DESCRIPTION: 
SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS. 


s OUTPUTS: NONE 


INPUTS 


C16 
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MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 


s SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 


RAMPAR : 


3$: 


LKSINT: 


MOV 


CALLING SEQUENCE: CALLED BY PARITY ABORT 
MOV 84114, SLOCOO 
@DSPAR, 90114 


(CACHE PARITY ERROR OCCURS) 


MOV 
BIT 


sSAVE CONTENTS OF PARITY ABORT VECTOR 
sLET VECTOR POINT TO PARITY ABORT ROUTINE 


sSTOR ADDESS TRAPPED 


(SP), $BDADR 

#BITO6, MSER 

i$ 3; THEN 

o7 ;ERROR 

#BITO7, MSER 

2s 3 THE 
;ERROR 


-SBTTL Q22BE SIZE ROUTINE 
sTHIS ROUTINE WILL AUTOSIZE FOR UP TO TWO Q22 BUS EXERCISERS. IF NONE 
sFOUND LOCATIONS CSR1 AND CSR12 WILL BE LEFT ZEROES. 
;ONLY RUN IN NOT UFD MODE. 


Q22SIZ: BIT 
BEQ 


‘ 
; PREPARE TO DO 


3 
1$: 


; 
+ NOW DO ACTUAL 


F 
2$: 


RTS 


ADO 
ADD 


+7 
—— MSER 


3 THE 
;ERROR 


sIF LOW BYTE PARITY ERROR 
s;IF HIGH BYTE PARITY ERROR 
N 


:IF _" PARITY ERROR 


«=, MSER AFTER ERROR 


sRETUR 


s INCREMENT FLAG 


#BITO9, MAIREG 
1$ 


PC 
SIZING 


ERRVEC,R1 
#7$,ERRVEC 


#340 ,ERRVEC+2 


SIZING 


#20,R2 
04,R3 





THIS ROUTINE WILL 


sUNIBUS SYSTEM? 





sIF NOT, ADVANCE TO ROUTINE 


sOTHERWISE, RETURN 


sSTORE TIMEOUT VECTOR 
sPOINT NEW TO PROGRAM 
sAT PRIORITY 7 

sCLEAR Q22BE COUNTER 
sFIRST POSSISLE ADDRESS 
sVECTOR FOR IT 

;TRY THOSE VALUES 


sGET CSR FOR NEXT Q22BE 
;GET VECTOR FOR NEXT ONE 











eee ee 


os D16 
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Q22BE SIZE ROUTINE 
Eahes 137150 005712 3$: TST (R2) ;TRY TO ACCESS CSR 
F 
pod ; IF NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS 
F 
21549 137152 005737 001160 TST $TMPO sFIRST Q22BE FOUND? 
2155C 137156 001010 BNE 4$ ;IF SECOND, BRANCH 
21551 137160 012705 002664 MOV @CSR1,R5 sSTART WITH CSRi FOR iST 
21552 137164 010237 002702 MOV R2,SIMGOA ;SIMULTANEOUS GO 
21553 137170 062737 000016 002702 ADD #16,SIMGOA ; ADDRESS 
21554 137176 000402 BR 5$ sBRANCH TO INITIALISE 
2155S 137200 012705 002704 4$: MOV #CSR12,R5 sSTART WITH CSR1i2 FOR 2ND 
21556 137204 012704 000004 S$: MOV #4 ,R4 sINITIALISE S REGISTERS 
21557 137210 010215 MOV R2,CRS) sINITIALISE CSR1i 
21558 137212 011565 000002 6$: MOV CR5),2CR5) sSTORE TO NEXT ONE 
21559 137216 005725 TST CRS)+ ;GET NEXT ADDRESS 
21560 137220 062715 000002 ADD #2,(RS) ;GET ADDRESS, POINT NEXT 
21561 137224 077406 SOB R4,6$ :D0 FOR NEXT 4 REGISTERS 
21562 137226 010365 000002 MOV R3,2CR5) sSTORE INTERRUPT VECTOR 
21563 137232 010365 000004 MOV R3,4(RS) ;AND PRIORITY 
21564 137236 062765 000002 000004 ADD #2,4(R5) 
21565 137244 005237 001160 INC $TMPO ;COUNT Q22BE'S 
21566 137250 022737 000002 001160 CMP #2, $TMPO ;TWO FOUND? 
21567 137256 001406 BEQ 9$ sIF SO, STOP SIZING 
ceaee 137260 000402 BR 8$ sOTHERWISE, CONTINUE SIZING 
3 
ap dey ; ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 
21571 3 
21572 137262 005726 7$: TST (SP)+ sRESTORE STACK FROM 
21573 137264 005726 TST (SP)+ 3 TIMEOUT 
21574 137266 022702 170160 8$: CMP #170160,R2 ;AT THE LAST POSSIBLE? 
21575 137272 001322 BNE 2s ;IF NOT, BRANCH 
21576 137274 005737 002664 9$: TST CSR1 31 FOUND? 
21577 137300 001402 BEQ 10$ ;IF NONE, BRANCH 
21578 137302 104401 137314 TYPE » ONOQ22 ; TYPE FOUND 
21579 137306 010137 000004 10$: MOV R1,ERRVEC sRESTORE TIMEOUT VECTOR 
psy 137312 000207 . RTS PC ;RETURN 
21581 
21582 137314 012 015 121 — -ASCIZ <12><15>/Q22BE USED DURING TESTING/ 
21583 , 
21584 -SBTTL Q22BE INTERRUPT INITIALISE ROUTINE 
21585 sTHIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (RO)+ 
21586 sAT THE STARTING ADDRESS IN R3. THE TEST HAVE TO SET ACTUAL DONE BIT 
ited ;BY CLEARING GO. 
2158 
21589 137350 005013 Q22INT: CLR C(R3) ;CLEAR TRANSFER TYPE IN CSR1 
21590 137352 052710 000001 BIS #BITOO, CRO) 3ZERO DONE 
21591 137356 011063 000002 MOV CRO), 2CR3) ;SET PRIORITY IN CSR2 
21592 137362 042710 000001 BIC #BITOO, CRO) sPREPARE TO SET DONE 
tty 137366 000207 RTS PC 
21595 .-SBTTL DMATRN DATO CYCLE THRU Q22BE 
21596 sTHIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE FIRST 
21597 sFOUND Q@22BE STARTING AT LOCATION @CSR1. RO HAS O IF ONLY 1 TRANSFER IS 
21598 ;T0 BE PERFORMED. OTHERWISE 16 BLOCK MODE TRANSFERS ARE TO BE PERFORMED. 
croee ;IN THE LATTER CASE ADDRESS AND WORD COUNT HAS TO BE LOADED BEFORE. 


} 21601 137370 012777 012525 043276 DMATRN: MOV #12525, @DATA ;DATA USED 
! 








| 
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DMATRN DATO CYCLE THRU Q22BE 


137376 
137400 
137402 
137410 
137412 
137420 
137426 
137434 
137442 
137446 
137450 


137452 
137460 
137462 
137464 
137472 
137500 
137506 
137510 


137516 
137524 
137532 
137536 
137540 


137550 


137552 
137554 
137556 
137560 
137564 
137570 
137574 
137600 
137604 
137610 
137614 
137620 
137624 
137630 


005700 


012777 


012777 
012777 
105777 
100375 
000207 


011637 
104130 
000002 


010046 
010146 
010246 
012700 
004737 
004737 
004737 
012700 
004737 
004737 
004737 
004737 
004737 
004737 


002740 


001507 
177770 
001001 


001407 


177777 
000001 
043130 


001122 


177600 
137652 
137674 
137674 
172200 
137652 
137674 
137674 
137652 
137674 
137674 
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043210 


043172 
043172 
043160 


043146 


043146 
043134 


1$: 


2s: 
3$: 
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yi 
1 
Se 


#1601, 8CSR1 
@TEMP , aBA 
0177777, AWC 
#BITOO, ACSR2 
acsR2 

2s 

PC 


-SBTTL DMARD DATI THRU Q22BE 
sTHIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE 
sTRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 


DMARD: 


1$: 


2s: 
3$: 


TOUT: 


2 





@TEMP , BA 
RO 


1$ 

#1507,@CSR1 
#177770, AWC 
helenae 
2 

#1407,aCSR1 


#177777, AWC 
#BITOO,aCSR2 
acsRe 

2s 

PC 


(SP), $BDADR 
+130 


sMMU GLOBAL SUBROUTINES 


ROUTINE TO INITIALIZE MEMORY MANAGEMENT 


RO, -(SP) 
R1,-CSP) 
R2,-CSP) 
#177600,RO 
PC,POR 
PC,PAR 
PC,PAR 
#172200,RO0 
PC,POR 
PC,PAR 
PC,PAR 
PC,PDR 
PC,PAR 
PC,PAR 





SEQ 0406 


300 1 WORD? 

;IF YES, BRANCH 

;BLOCK MODE, GO 

sBRANCH TO DO IT 

sRESET LATENCY COUNT,DATO 
sLOAD DMA ADDRESS 

;D0 1 WORD 

3:00 IT 

3DMA DONE? 

sWAIT TILL DONE 

sRETURN FROM SUBROUTINE 


;LOAD DMA ADDRESS 

300 1 WORD? 

sIF YES, BRANCH - 
316 DATIB 

:D0 8 WORD 

sBLOCK MODE GO 

:GO CHECK 

sRESET LATENCY COUNT ,DATI 
sLOAD NEW DATA TO DATA R. 
:D0 1 WORD 


sWAIT TILL DONE 
sRETURN FROM SUBROUTINE 


sSTORE TRAPPED PC 
sUNEXPECTED TRAP 


CONTENTS OF REGISTERS 


AND D USER PDR'S 
USER PAR‘S 
USER PAR'S 


AND D SUP PDR'S 
SUP PAR'S 
SUP PAR'S 
AND D KER POR'S 
KER PAR'S 
KER PAR'S 





——— —--, 
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SEQ 0407 
DMARD DATI THRU Q@22BE 

21660 137634 012737 000027 172516 MOV #27 ,8#172516 ;INIT MMR3 
21661 137642 012602 MOV (SP)+,R2 ;RESTORE REGISTERS 
21662 137644 012601 MOV CSP)+,R1 ; 
21663 137646 012600 MOV (SP)+,RO 3 
cree 137650 000207 RTS PC ;RETURN 

3 
cies? sROUTINE TO INITIALIZE PDR'S 

F 
21668 137652 005002 POR: CLR R2 ;INIT CNTR 
21669 137654 012720 077406 POR1I: MOV #77406, (RO)+ sINIT POR 
21670 137660 062702 000001 ADO #1,R2 ;INCREMENT CNTR 
21671 137664 022702 000020 CMP #16. ,R2 ;ARE WE DONE? 
21672 137670 001371 BNE POR1 ;BRANCH IF NOT 
eth 137672 000207 RTS PC ;RETURN 

3 
tk | sROUTINE TO INITIALIZE PAR'S 

3 
21677 137674 005001 PAR: CLR Ri ;SETUP TO INIT PAR 
21678 137676 010120 PARI: MOV R1,CRO)+ ;INIT PAR 
21679 137700 062701 000200 ADD #200,R1 ;GET READY FOR NEXT PAR 
21680 137704 022701 001600 CMP #1600,R1 ;REACHED A PAR7 
21681 137710 001372 BNE PARI ;BRANCH IF NOT 
21682 137712 012720 177600 MOV #177600, (RO)+ ;INIT PAR7 
21683 137716 000207 RTS PC ;RETURN 
21684 ; 
21685 ;TIME OUT ROUTINE 
21686 3 
21687 137720 005205 ADDTRP: INC RS ; INCREMENT TIME OUT FLAG 
21688 137722 000002 RTI ;RETURN 
21689 3 
21690 3;MMU TRAP ROUTINE 
21691 
21692 137724 023727 003030 000001 MMUTRP: CMP FLAG, #1 ;ARE WE EXPECTING AN ABORT 
21693 137732 001401 BEQ i$ ;YES GO ON 
21694 137734 104002 ERROR +2 sNO GO TO ERROR 
21695 137736 010046 1$ MOV RO,-(CSP) ;SAVE CONTENTS OF REG 0 
21696 137740 013700 177776 MOV 0#177776,RO0 s;SAVE A COPY OF PSW 
21697 137744 072027 177764 ASH #-14,RO ;LOOK AT BITS<15:14> 
21698 137750 020027 000002 CMP RO, #2 ;WAS PS<15:14>=10 
21699 137754 001001 BNE OK :NO GO ON 
21700 137756 000411 BR NOTOK ;YES CHANGE BITS TO 00 
21701 137760 013700 177776 OK MOV 0#177776,RO ;SAVE A COPY OF PSW 
21702 137764 072027 000002 ASH #2,RO ;LOOK AT BITS<13:12> 
21703 137770 072027 177764 ASH #-14,RO0 : 
21704 137774 020027 000002 CMP RO, #2 sWAS PS<13:12>=10 
21705 140000 001002 BNE OK1i ;NO GO ON 
21706 140002 005066 NOTOK: CLR 4(SP) ;CLEAR ILLEGAL MODE FFROM OLD PSW 
21707 140006 013737 177572 003042 OK1i: MOV #177572, SAVMRO ;SAVE A COPY OF MMRO 
21708 140014 013737 177574 003044 MOV #177574, SAVMR1 ;SAVE A COPY OF MMR1 
21709 140022 013737 177576 003046 MOV 8177576, SAVMR2 sSAVE A COPY OF MMR2 
21710 140030 005037 177572 CLR #177572 ;CLEAR ABORT BITS AND TURN MMU OFF 
21711 140034 005037 003030 CLR FLAG ;CLEAR MMU ABORT FLAG 
21712 140040 012600 MOV (SP)+,RO sRESTORE ORIGINAL CONTENTS OF REG O 
21713 140042 000002 RTI ;RETURN 


— 


. ee ee 


COKDADO KDJ11-8 
DMARD DATI THRU 


21717 
21718 
21719 
21720 
21721 
21722 
21723 
21724 
21725 
21726 
21727 
21728 
21729 
21730 
21731 
21732 
21733 
21734 
21735 


140044 
140046 
140050 
140052 


140054 
140056 
140060 


140130 


CLUSTER DIAG. 


Q22BE 


010446 
010146 
012737 
000137 


010446 
010146 
012737 
005337 
001402 
022421 
001773 
012601 
012604 
000207 


000003 
140112 


000005 
003120 


G16 
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003120 


003120 


sFPP COMMON SUBROUTINES 


WLOTRP: MOV (SP)+,RO ;SAVE PC 
MOV CSP)+,R5S ;SAVE STATUS AND RESTORE STACK 
ERROR +3 
JMP CRO) ;GO BACK INLINE 


ERR: RTS R7 


CALLED BY JSR R7,DATVER 


INPUT: (R4)=EXPECTED DATA 
(R1)=RECEIVED DATA 


; 

sTHIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
te FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND R1 ARE NOT 
; . 

sLOCATION “COUNT” , IF NOT EQUAL TO O SIGNIFIES DATA ERROR 

;IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED 

sARE SIMPLY CHECKED FOR ZEROS 

; 


i 
3 
; 
; 
s;SUSROUTINE DATA VERFICATION - 
; 
; 
; 
; 
; 


DATVFR: MOV R4,-CSP) sSAVE R4 
MOV R1,-(CSP) ;SAVE R1 
MOV #3, COUNT ;SET UP ITERATION COUNT 
JMP DAT1 ; 
3 
DATVER: MOV R4,-(SP) sSAVE R4 
MOV R1,-CSP) sSAVE Ri 
MOV #5 , COUNT ;SET UP ITERATION COUNT 
DAT1: DEC COUNT 
BEQ es ;BRANCH IF DONE 
CMP (R4)+,CR1)+ 3 
BEQ DAT1 
2s: MOV (SP)+,R1 sRESTORE Ri 
MOV (SP )+,R4 sRESTORE R4 
RTS R7 3GO BACK TO CALLING ROUTINE 


sIF DATA ERROR, COUNT NE 0 


SEQ 0408 
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SEQ 0409 =! 
DMARD DATI THRU Q22BE 

21765 3 

21766 $$$ 

21767 ; 

sires 3; SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 
; 

21770 ; THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE 

21771 ; FLOATING POINT TESTS. 

21772 ; IT DETERMINES WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION 

21773 ; IS PRESENT ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE. 

21774 ; THIS DETERMINATION IS MADE BASED ON THE "FPA AVAILABLE” FLAG, BIT 8 

21775 s OF THE MAINTENANCE REGISTER AT LOCATION 17777750. IF THE FPA BIT IS SET 

21776 ; THEN THE FLOATING POINT ACCELERATOR CHIP IS INSTALLED ON THE CPU BOARD AND 

21777 ; AN ERROR MESSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR Is 

sire ; DUE TO THIS CHIP. OTHERWISE, THE J11 IS BLAMED FOR THE FLOATING POINT ERROR. 
; 

21780 $$$ 

21781 3 

21782 ; CALLED BY: CALL OeDETFPA ;$$$ 

21783 3 

21784 ; INPUTS: NONE $$$ 

21785 3 

cet ; OUTPUTS: ERROR MESSAGES 3$$$ 

1 3 

21788 140132 032737 000400 177750 DETFPA: BIT #400 , A#MAIREG :IS THE FPA HERE? $$$ 

21789 140140 001007 BNE FPAOPT :YES, BRANCH FPAOPT $$$ 

21790 140142 000240 NOP ;DEBUG AID. $$$ 

21791 140144 032737 000400 177750 BIT #400 , 9#MAIREG sIF NOT, $$$ 

21792 140152 001405 BEQ NOFPA ;BRANCH TO NOFPA $$$ 

21793 140154 000240 NOP ;DEBUG AID. $$$ 

Ei ree 140156 000000 HALT 3; $$$ 

21 3 

21796 140160 104401 140174 FPAOPT: TYPE »FPAFLT 3; $$$ 

21797 140164 000402 BR EXTFPA : $$$ 

21798 140166 104401 140257 NOFPA: TYPE »JLIFLT ; $$$ 

21799 140172 000207 EXTFPA: RTS PC 3s $$$ 

21800 


: 
21801 140174 105 122 122 FPAFLT: .ASCIZ /ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP./ ; $$$ 
; 
21803 140257 105 122 122 J11FLT: .ASCIZ /ERROR DETECTED IN Jil FLOATING POINT PROCESSOR./ ; $$$ 


21804 -EVEN : $$$ 
21805 ; 


tc 


| COKDADO KDU11-8 


21808 
21809 
21810 


21611 


od 


140474 
140474 
140476 
140504 
140512 


CLUSTER DIAG. 
DMARD DATI THRU Q22BE 


032737 


104407 
052737 
032777 
001117 





000100 000052 


126756 
001102 
001164 
001206 
100000 001206 


140457 
001206 


140454 
000042 


377 000 
012 105 


001000 177520 
040000 040426 
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SEQ 0410 =O! 





-SBTTL END OF PASS ROUTINE 

§ REESE ERE EEE EERE EERE EEE E EEE EEEE EES SESE EEEE EEE EEEEEEE EEE ES 
s*INCREMENT THE PASS NUMBER ($PASS) 

s*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s*TYPE “END PASS @XXXXX"“ CWHERE XXXXX IS A DECIMAL NUMBER) 

3*IF THERES A MONITOR GO TO IT 

3#IF THERE ISN'T JUMP TO LOOP 


$EOP: 
BIT #BIT06,a#S52 
BNE $GET42 
jsr r5,vireop 
LR $TSTNM 3;ZERO THE TEST NUMBER 
CLR $TIMES ;;ZERO THE NUMBER OF ITERATIONS 
INC $PASS ;; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS ;;DON'T ALLOW A NEG. NUMBER 
DEC CPC)+ ;;LOOP? 
$EOPCT: .WORD 1 
BGT $DOAGN 33;YES 
MOV CPC)+, aC PC)+ ; ;sRESTORE COUNTER 
$ENDCT: .WORD 1 
$EOPCT 
TYPE » $ENDMG ;:;TYPE “END PASS #” 
MOV $PASS,-(CSP) :;SAVE $PASS FOR TYPEOUT 
TYPDS ;;GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE » $ENULL :;TYPE A NULL CHARACTER 
$GET42: MOV a#42,RO0 ;;GET MONITOR ADDRESS 
BEQ $DOAGN ;;BRANCH IF NO MONITOR 
RESET ;;CLEAR THE WORLD 
$ENDAD: JSR PC,CRO) ;;GO TO MONITOR 
NOP 3;SAVE ROOM 
NOP 33FOR 
NOP 33;ACTiI1 
$DOAGN: 
JMP acPC)+ ; sRETURN 


$RTNAD: .WORD LOOP 

$ENULL: .BYTE -1,-1,0 3sNULL CHARACTER STRING 

$ENDMG: .ASCIZ <15><12>/END PASS #/ 

-SBTTL SCOPE HANDLER ROUTINE 

§ EEE EEE EEE EEE EEE EEE EEEEEEEEEEEEEEEEEEEEEEEES (EERE EEEEEE ORES 
3*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3*AND LOAD THE TEST NUMBERC$TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
;#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

3*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*SW14=1 LOOP ON TEST 

;*SW1l=1 INHIBIT ITERATIONS 

3*SWO9=1 LOOP ON ERROR 

3; *SWO8=1 LOOP ON TEST IN SWR<5:0> 

3 *CALL 

3* SCOPE ; sSCOPE=IOT 

$SCOPE: 
CKSWR 33;TEST FOR CHANGE IN SOFT-SWR 
BIS #1000,B8CSR ;ENABLE 

1$: BIT #BIT14,aSWR ;;LOOP ON PRESENT TEST? 


BNE $OVER ssYES IF SWi4=1 
;@0@G@START OF CODE FOR THE XOR TESTER@HHee 


‘ 
—_ a 








r- 
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21812 


140514 


140516 
140522 
140530 
140534 
140540 
140542 
140544 
140550 
140552 
140552 
140560 
140562 
140566 
140572 
140576 
140600 
140604 
140606 
140614 


000416 
013746 


032777 
001407 
017746 
042716 
122637 
001465 
105737 
001421 
123737 
101015 
032777 
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$XTSTR: BR 


S$: CMP 


B 
6$:;O0000END OF 
040360 8 


2$: TSTB 
001103 
040314 
001106 7$: 

4$: CLRB 


040262 3%: 


001104 


001104 1$: 
001164 
$SVLAD: 


001204 


001115 
040162 


177520 


SOVER: 


RTI 
$MXCNT: 1 





J16 
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6$ 


QPERRVEC , -C SP) 
#5$ , HERRVEC 
80177060 

CSP )+, Q#ERRVEC 
$SVLAD 
(SP)+,(SP)+ 
ne 


+ laa 
@SWR , -C SP) 
#$SWRMK , (SP) 
(SP)+,$TSTNM 
$OVER 

$ERFLG 


3$ 
we 
ne 
$LPERR, $LPADR 
$OVER 

$ERFLG 

$TIMES 


1$ 
+ ehieecehees 


ICNT 

$TIMES, $ICNT 
$OVER 
#1,$ICNT 
$MXCNT, $TIMES 
$TSTNM 
$TSTNM, $TESTN 
(SP), $LPADR 
(SP), $LPERR 
$ESCAPE 

#1, $ERMAX 


$TSTNM, BDISPLAY 


$LPADR, (SP) 


BIC #1000,BCSR ;DISABLE 


-SBTTL ERROR HANDLER ROUTINE 
eee rrr iii ri iiitiitt ttt tite tt ttt t 
s#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;#AND GO TO ERTYPE ON ERROR 
s#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*SWi5=1 
3*SW1i3-=1 
3*SW10=1 





HALT ON ERROR 


33;IF RUNNING ON THE "XOR” TESTER CHANGE 
3s;THIS INSTRUCTION TO A “NOP” (NOP=240) 
3sSAVE THE CONTENTS OF THE ERROR VECTOR 
3sSET FOR TIMEOUT 
ssTIME OUT ON XOR? 
ssRESTORE THE ERROR VECTOR 
33GO TO THE NEXT TEST 
3;CLEAR THE STACK AFTER A TIME OUT 
ssRESTORE THE ERROR VECTOR 

;LOOP ON THE PRESENT TEST 


’ 
CODE FOR THE XOR TESTER##O00 


3;LOOP ON SPEC. TEST? 

;;BR IF NO 

33;SET DESIRED TEST NUM. FROM SWR 
+;STRIP AWAY UNDESIRED BITS 

3;O0N THE RIGHT TEST? 

;;BR IF YES 

ey - ERROR OCCURRED? 


B 
;;MAX. ERRORS FOR THIS TEST OCCURRED? 
;;68R IF NO 

;:LOOP ON ERROR? 

;;BR IF NO 

3;SET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 

;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;;ESCAPE TO THE NEXT TEST 

;:; INHIBIT ITERATIONS? 

;3;BR IF YES 

33;IF FIRST PASS OF PROGRAM 

83 INHIBIT ITERATIONS 

;;INCREMENT ITERATION COUNT 

3;CHECK THE NUMBER OF ITERATIONS MADE 
;;BR IF MORE ITERATION REQUIRED 
;sREINITIALIZE THE ITERATION COUNTER 
3;SET NUMBER OF ITERATIONS TO DO 
;;COUNT TEST NUMBERS 

;;SET TEST NUMBER IN APT MAILBOX 
3s;SAVE SCOPE LOOP ADDRESS 

;;SAVE ERROR LOOP ADDRESS 

;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
+;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
;:DISPLAY TEST NUMBER 

;;FUDGE RETURN ADDRESS 


;sMAX. NUMBER OF ITERATIONS 


INHIBIT ERROR TYPEOUTS 


BELL 9N ERROR 





eee 


SEQ 0411 =! 





a a ae 


— 
i 
K16 
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SEQ 0412 
ERROR HANDLER ROUTINE 
3; *SW09=1 LOOP ON ERROR 
;*CALL 
;* ERROR «oN ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
140776 $ERROR: 
140776 005737 004120 TST UQUIET 3;TEST FOR USER-QUIET MODE 
141002 001403 BEQ 9$ ;;BRANCH IF FIELD-SERVICE MODE 
141004 005000 CLR RO 33IN CASE RO HAS A #3 IN IT (tC) 
teieae 004737 141220 - JSR PC, ABORT 3;TEST FOR ABORT CONDITION 
141012 104407 CKSWR :3TEST FOR CHANGE IN SOFT-SWR 
141014 052737 001000 177520 BIS #1000,BCSR sENABLE HALT ON BREAK 
141022 105237 001103 7$: INCB $ERFLG 3;SET THE ERROR FLAG 
141026 001775 BEQ 7$ ;;D0N'T LET THE FLAG GO TO ZERO 
141030 013777 001102 040104 MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
141036 032777 002000 040074 BIT #BIT10,9SWR ;;BELL ON ERROR? 
141044 001402 BEQ 1$ 3:NO - SKIP 
141046 104401 001170 TYPE » $BELL 3;RING BELL 
141052 005237 001112 1$: INC $ERTTL ;;COUNT THE NUMBER OF ERRORS 
141056 011637 001116 MOV (SP), $ERRPC 3;GET ADDRESS OF ERROR INSTRUCTION 
141062 162737 000002 001116 SuB #2, $ERRPC 
141070 117737 040022 001114 MOVB QSERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
141076 032777 020000 040034 BIT #BIT13,aSWR 3;SKIP TYPEOUT IF SET 
141104 001004 BNE 20$ 3;SKIP TYPEOUTS 
141106 004737 136356 JSR PC,ERTYPE ;;GO TO USER ERROR ROUTINE 
141112 104401 001175 TYPE » $CRLF 
141116 20$: 
141116 122737 000001 001220 CMPB #@APTENV, $ENV :;RUNNING IN APT MODE 
141124 001007 BNE es ;3NO,SKIP APT ERROR REPORT 
141126 113737 001114 141140 MOVB $ITEMB,21$ 3;SET ITEM NUMBER AS ERROR NUMBER 
141134 004737 141376 JSR PC, $ATY4 ;sREPORT FATAL ERROR TO APT 
141140 000 21$: .BYTE 0O 
141141 000 .BYTE c¢) 
141142 000777 22$: BR 22$ 3;APT ERROR LOOP 
141144 005777 037770 2s: TST aSWR ;:HALT ON ERROR 
141150 100002 BPL 3$ 33;SKIP IF CCNTINUE 
141152 000000 HALT ;sHALT ON ERROR! 
141154 104407 CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 
141156 032777 001000 037754 3%: BIT #BITO9, ASWR ;;LOOP ON ERROR SWITCH SET? 
141164 001402 BEQ 4$ ;;BR IF NO 
141166 013716 001110 MOV $LPERR, (SP) 3;FUDGE RETURN FOR LOOPING 
141172 005737 001166 4$: TST $ESCAPE ;;CHECK FOR AN ESCAPE ADDRESS 
141176 001402 BEQ 5$ 3;BR IF NONE 
Keines 013716 001166 - MOV $ESCAPE , (SP) ;;FUDGE RETURN ADDRESS FOR ESCAPE 
141 : 
141204 022737 140440 000042 CMP #$ENDAD , 8042 33ACT-11 AUTO-ACCEPT? 
141212 001001 BNE 6$ ;;BRANCH IF NO 
141214 000000 HALT 73YES 
141216 6$: 
141216 000002 RTI 3 ;sRETURN 
.SBTTL ABORT ROUTINE FOR LCP/ORION UFD MODE 
141220 005737 004116 ABORT: TST UF OFLG ;TEST FOR USER FRIENDLY MODE 
141224 001454 BEQ NOABRT ;=F NOT UFD THEN CONTINUE NORMAL OPERATION | 
141226 020027 000032 CMP RO, #32 31S IT A tZ ? 
141232 001443 BEQ ABORTZ ;JUST GO BACK TO CHAIN IF IT IS (NO ERROR) 
141234 020027 000003 CMP RO, #3 31S IS A tC ? 
141240 001404 BEQ ABORTC 3BR TO LOAD tC ON XXDP+ STACK (NO ERROR) 
141242 005737 004120 TST UQUIET : TEST FOR USER-QUIET MODE 

















ae ——--5 


L16 
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ABORT ROUTINE FOR LCP/ORTON UFD MODE 


141246 001443 BEQ 
141250 000422 BR 
21613 
| 
' 


sea 0413! 


NOABRT ;IF FIELD-SERVICE MODE, CONTINUE NORMAL OPERATION 
; BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 

ABORTE s;SET DRSERR THEN LEAVE 
141252 013737 004112 000030 ABORTC: MOV SAV30,30 sRESTORE EMT LOCATION (30) 
141260 013737 004114 000032 MOV SAV32,32 sRESTORE EMT PRIORITY LOCATION (32) 
141266 104043 EMT +43 sGET XXDP STACK LOC. INTO RO FROM MONITOR 
141270 005720 1$: TST CRO)+ sFIND END OF STACK 
141272 001376 BNE i$ 
141274 112760 000057 177777 MOVB @'7,-1CRO) sLOAD SLASH OVER ZERO 
141302 112720 000136 MOVB @'t,CRO)+ sLOAD UPARROW 
141306 112720 000103 MOVB #'C,CRO)+ sLOAD C 
141312 105010 CLRB (RO) sMAKE NEW END TO STACK 
141314 000412 BR ABORTZ sNOW LEAVE 
141316 013737 004112 000030 ABORTE: MOV SAV30,30 sRESTORE EMT LOCATION (30) 
141324 013737 004114 000032 MOV SAV32, 32 sRESTORE EMT PRIORITY LOCATION (32) 
141332 104042 EMT +42 sGET DCA LOCATION INTO RO FROM MONITOR 
141334 012760 177777 000042 MOV @-1,42(RO) sSET A -1 INTO LOCATION DRSERR IN MONITOR 
141342 013700 000042 ABORTZ: MOV 8042 ,RO 
141346 005037 000042 CLR 9042 sCLEAR MONITOR RETURN FLAG 
141352 000137 140440 JMP $ENDAD sRETURN TO MONITOR-DO NOT PUSH STACK HERE 
141356 000207 NOABRT: RTS PC sIF NOTUFD RETURN TO MAINLINE 

-SBTTL APT COMMUNICATIONS ROUTINE 


FF SSSSSSSSSSSSSESSSESSSSSSSSSESSSSSSSSSSSESSSSSSSSSSSSSEEESSESESESESLESE 


;AND PUT THE MONITOR RETURN ADDRESS IN RO 
141360 112737 000001 141624 ¢$ATY1: MOVB #1,$FFLG 33TO REPORT FATAL ERROR 
141366 112737 000001 141622 ¢$ATY3: MOVB #1, $MFLG 3370 TYPE A MESSAGE 
141374 000403 BR $ATYC 
eet 112737 000001 141624 a MOVB #1,$FFLG 3:70 ONLY REPORT FATAL ERROR 
141 : 
141404 010046 MOV RO, -C(SP) 3;PUSH RO ON STACK 
141406 010146 MOV R1,-(CSP) 33PUSH R1 ON STACK 
141410 105737 141622 TSTB $MFLG 3;SHOULD TYPE A MESSAGE? 
141414 001450 BEQ S$ 33IF NOT: BR 
141416 122737 000001 001220 CMPB @APTENV, SENV ;s;OPERATING UNDER APT? 
141424 001031 NE 3$ 33IF NOT: BR 
141426 132737 000100 001221 BITB @APTSPOOL,$ENVM ;;SHOULD SPOOL MESSAGES? 
141434 001425 BEQ 3$ 33:1F NOT: BR 
141436 017600 000004 MOV @4(SP),RO 33;GET MESSAGE ADDR. 
141442 062766 000002 000004 ADD #2,4(SP) 3;BUMP RETURN ADDR. 
141450 005737 001200. 1$: TST $MSGTYPE 33SEE IF DONE W/ LAST XMISSION? 
141454 001375 BNE i$ 331F NOT: WAIT 
141456 010037 001214 MOV RO, $MSGAD +;PUT ADDR IN MAILBOX 
141462 105720 2s: TSTB CRO)« 33FIND END OF MESSAGE 
141464 001376 BNE 2s 
141466 163700 001214 SUB $MSGAD ,RO ;:SUB START OF MESSAGE 
141472 ASR RO 3;GET MESSAGE LNGTH IN WORDS 
141474 010037 001216 MOV RO, $MSGLGT 33PUT LENGTH IN MAILBOX 
141500 012737 001200 MOV 04, $MSGTYPE 3;TELL APT TO TAKE MSG. 
141506 000413 BR S$ 
141510 017637 000004 141534 3%: MOV a4(SP),4$ 33PUT MSG ADDR IN JSR LINKAGE 
141516 062766 000002 000004 ADD @2,4(SP) 33;BUMP RETURN ADDRESS 
141524 013746 177776 MOV 177776, -(SP) 33PUSH 177776 ON STACK 
141530 004737 141626 JSR PC, $TYPE 3:;CALL TYPE MACRO 
141534 000000 4$ WORD O 
141536 S$ 
141536 105737 141624 10$ TSTB $FFLG 3:SHOULD REPORT FATAL ERROR? 
141542 001416 BEQ 12$ 33:IF NOT: BR 
141544 005737 001220 TST $ENV 3sRUNNING UNDER APT? 


—_ a a 
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21814 


105737 001157 


000002 
000001 


000100 


141676 
141366 


000040 


000002 
122716 000011 


= - 
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SEQ 0414 
BEQ 12$ 33IF NOT: BR 
11%: TST $MSGTYPE 3sFINISHED LAST MESSAGE? 
BNE 11$ 33IF NOT: WAIT 
MOV @4(SP), $FATAL 3;GET ERROR @ 
ADO 62 ,4(SP) :;BUMP RETURN ADDR. 
INC $MSGTYPE 3;TELL APT TO TAKE ERROR 
12%: CLRB $FFLG ;;CLEAR FATAL FLAG 
CLRB $LFLG 3;CLEAR LOG FLAG 
CLRB $MFLG 3sCLEAR MESSAGE FLAG 
MOV (SP)-,R1 33POP STACK INTO Ri 
MOV (SP )+,RO :3POP STACK INTO RO 
RTS PC 3; sRETURN 
$MFLG: .BYTE 9 33:MESSG. FLAG 
$LFLG: .BYTE 0 3;LOG FLAG 
$FFLG: .BYTE O 33;FATAL FLAG 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL = 100 
APTCSUP=040 


001220 
001221 


001221 





-SBTTL TYPE ROUTINE 

js PSCSSSSSSHS SESE SEES SeESeSESeEESESeeeseseseseseseseeeseeeseseses 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
s*#THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


;*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
:*NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3% 
:*CALL: 
3#1) USING A TRAP INSTRUCTION 
os TYPE »MESADR 3:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3% 
3% TYPE 
3% MESADR 
3% 
$TYPE: TSTB $TPFLG 331S THERE A TERMINAL? 
BPL i$ 3;68R IF YES 
HALT ;sHALT HERE IF NO TERMINAL 
BR 3% 3 sLEAVE 
is MOV RO, -(SP) 3sSAVE RO 
MOV @2(SP),RO 33;GET ADDRESS OF ASCIZ STRING 
CMPB OAPTENV, $ENV 3s sRUNNING IN APT MODE 
BNE 62$ 33NO,GO CHECK FOR APT CONSOLE 
BITB @APTSPOOL .SENVM ;:SPOOL MESSAGE TO APT 
BEQ 62$ 33NO,GO CHECK FOR CONSOLE 
MOV RO,61% 33;SETUP MESSAGE ADDRESS FOR APT 
JSR PC, $ATY3 33SPOOL MESSAGE TO APT 
61%: a 0 33:MESSAGE ADDRESS 
62$: BITB @APTCSUP,$ENVM ;;APT CONSOLE SUPPRESSED 
BNE 60$ 33;YES,SKIP TYPE OUT 
2s: MOvB C(RO)+,-C( SP) 33PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE &$ 33;8R IF IT ISN'T THE TERMINATOR 
TST (SP )-« 33IF TERMINATOR POP IT OFF THE STACK 
608%: MOV (SP)-,RO 3sRESTORE RO 
3%: ADD @2,(SP) ::ADJUST RETURN PC 
RTI 3 ;RETURN 
4$: CMPB @OHT (CSP) 3;BRANCH IF <HT> 








— 


‘ 
= —— See Eee 


Bi 
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SEQ 0415 
TYPE ROUTINE 
141732 001430 BEQ 8$ 
141734 122716 000200 CMPB @CRLF , CSP) ;sBRANCH IF NOT <CRLF> 
141740 001006 BNE S$ 
141742 005726 TST CSP )+ 33POP <CR><LF> EQUIV 
141744 104401 TYPE 3sTYPE A CR AND LF 
141746 001175 $CRLF 
141750 105037 142156 CLRB $CHARCNT +s;CLEAR CHARACTER COUNT 
141754 000755 BR 2s 33GET NEXT CHARACTER 
141756 004737 142040 S$: JSR PC, $TYPEC 33GO TYPE THIS CHARACTER 
141762 123726 001156 6$: CMPB $FILLC,(SP)- 3sIS IT TIME FOR FILLER CHARS.? 
141766 001350 BNE 2s 33IF NO GO GET NEXT CHAR. 
141770 013746 001154 MOV $NULL , -( SP) 3;GET @ OF FILLER CHARS. NEEDED 
3sAND THE NULL CHAR. 

141774 105366 000001 7$: DECB 1(SP) 3;D0ES A NULL NEED TO BE TYPED? 
142000 002770 BLT 6$ 33BR IF NO--GO POP THE NULL OFF OF STACK 
142002 004737 142040 JSR PC, $TYPEC 3:;GO TYPE A NULL 
142006 105337 142156 DECB $CHARCNT 33D0 NOT COUNT AS A COUNT 
142012 000770 BR 7$ ; sLOOP 

sHORIZONTAL TAB PROCESSOR 
142014 112716 000040 8$: MOVB @' ,CSP) ssREPLACE TAB WITH SPACE 
142020 004737 142040 9$: JSR PC, $TYPEC 3sTYPE A SPACE 
142024 132737 000007 142156 BITB 07, $CHARCNT ;s;BRANCH IF NOT AT 
142032 001372 BNE $ 33TAB STOP 
142034 005726 TST (SP )+ 3sPOP SPACE OFF STACK 
142036 000724 BR 2s 33GET NEXT CHARACTER 
142040 $TYPEC: 
142040 105777 037100 TSTB asTKS 3;CHAR IN KYBD BUFFER? :MJ0001 
142044 100022 BPL 10$ 336R IF NOT 3MJ0001 
142046 017746 037074 MOV asTKB, -CSP) 33GET CHAR :MJD001 
142052 042716 177600 BIC #177600, (SP) 3s;STRIP EXTRANEOUS BITS sMJD001 
142056 122716 000023 CMPB @$XOFF ,CSP) 3sWAS CHAR XOFF >MJD001 
142062 001012 BNE 102$ 3;B8R IF NOT ;MJD001 
142064 101$: >MJ0001 
142064 105777 037054 TSTB asTKS ;:WAIT FOR CHAR 3MJD001 
142070 100375 BPL 101$ ;MJDO01 
142072 117716 037050 MOVB asTKB, CSP) 3;GET CHAR 3MJD001 
142076 042716 177600 BIC #177600, (SP) 3sSTRIP IT 3MJD001 
142102 122716 000021 CMPB #$XON, (SP) +sWAS IT XON? :MJD001 
142106 001366 BNE 101$ 33BR IF NOT 3MJD001 
142110 102$: 3MJD001 
142110 005726 TST (SP )-+ 33FIX STACK 3MJDO001 
142112 10$: :MJD001 
142112 105777 037032 TSTB asTPS ;;WAIT UNTIL PRINTER IS READY 
142116 100375 BPL 10$ >4J0001 
142120 116677 000002 037024 MOVB 2(SP),a$TPB ;;sLOAD CHAR TO BE TYPED INTO DATA REG. 
142126 122766 000015 000002 CMPB @CR,2(SP) 33IS a A CARRIAGE RETURN? 
142134 001003 BNE 1$ :;BRANCH IF 
142136 105037 142156 CLRB $CHARCNT 33 YES--CLEAR NCHARACTER COUNT 
142142 000406 BR $TYPEX 3sEXIT 
142144 122766 000012 000002 1%: CMPB @LF ,2(SP) 1318 CHARACTER A LINE FEED? 
142152 001402 BEQ $TYPEX ;;BRANCH IF YES 
142154 105227 INCB (PC)+ 3s;COUNT THE CHARACTER 
142156 000000 $CHARCNT: .WORD 0O ssCHARACTER COUNT STORAGE | 
142160 000207 $TYPEX: RTS PC 

21815 -SBTTL BINARY TO OCTAL CASCII) AND TYPE 
f PSHE SESSSESEEEESESSSSEEEEEEESESESSSEREEESE ESSE ESEEEEE EE ESEES 
;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 








ay 


106401 
105337 
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142407 


000006 
142406 
142405 
000012 


142406 
177770 
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s*#OCTAL CASCII) NUMBER AND TYPE IT. 
3*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TY°E 


;*CALL: 

3* MOV NUM, -C SP) ;sNUMBER TO BE TYPED 

3% TYPOS 3;CALL FOR TYPEOUT 

3* BYTE N 33N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3* .BYTE M 33M=1 OR O 

3* 331=TYPE LEADING ZEROS 

3* 3 ;0=SUPPRESS LEADING ZEROS 


;* 
7#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 


3; *CALL: 
3% MOV NUM, -C SP) ;;NUMBER TO BE TYPED 
3% TYPON 3;CALL FOR TYPEOUT 
3% 
ee HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3;* L: 
3* MOV NUM, -C SP) ;;NUMBER TO BE TYPED 
& TYPOC 3;CALL FOR TYPEOUT 
$TYPOS: MOV acSP),-CSP) 3;PICKUP THE MODE 
142405 MOVB 1(SP), $OF ILL 3;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2,(SP) ;:;ADJUST RETURN ADDRESS 
BR $TYPON 
142405 $TYPOC: MOVB #1, $OF ILL ;;SET THE ZERO FILL SWITCH 
142407 MOVB #6, $OMODE+1 3;SET FOR SIX(6) DIGITS 
142404 $TYPON: MOVB #5, $O0CNT 3;SET THE ITERATION COUNT 
MOV R3,-CSP) 3;SAVE R3 
MOV R4,-(SP) 33SAVE R4 
MOV RS,-(SP) 33;SAVE RS 
a + aaa ;;GET THE NUMBER OF DIGITS TO TYPE 
ADD 06 ,R4 :;SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4, $OMODE 3:SAVE IT FOR USE 
MOVB $OFILL ,R4 ;;GET THE ZERO FILL SWITCH 
MOV 12(SP),R5 ;sPICKUP THE INPUT NUMBER 
CLR R3 ;;CLEAR THE OUTPUT WORD 
1$: ROL RS ;sROTATE MSB INTO "C” 
BR 3$ ;:;GO DO MSB 
2$: ROL RS ;;FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV RS,R3 
3$: ROL 3 ;;GET LSB OF THIS DIGIT 
DECB $OMODE 33;TYPE THIS DIGIT? 
BPL 7$ ;;BR IF NO 
BIC #177770,R3 3;GET RID OF JUNK 
BNE 4$ 33TEST FOR O 
TST R4 ;;SUPPRESS THIS 0? 
BEQ S$ ;;BR IF YES 
4$: INC R4 ;;DON'T SUPPRESS ANYMORE 0'S 
BIS #'O,R3 ;;MAKE THIS DIGIT ASCII 
5$: BIS #' ,R3 ;;MAKE ASCII IF NOT ALREADY 
MOVB R3,8$ 3;SAVE FOR TYPING 
TYPE 8$ 3;GO TYPE THIS DIGIT 
7$: DECB $OCNT ;;COUNT BY 1 


———— eel 


me — - 
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SEQ 0417 


142352 003347 BGT 2s ;;BR IF MORE TO DO 

142354 002402 BLT 6$ ;;68R IF DONE 

142356 005204 INC R4 3;INSURE LAST DIGIT ISN’T A BLANK 

142360 000744 BR 2s 33GO DO THE LAST DIGIT 

142362 012605 6$: MOV CSP)+,R5 ;sRESTORE RS 

142364 012604 MOV (SP)+,R4 ;sRESTORE R4 

142366 012603 MOV (SP)+,R3 ;sRESTORE R3 

142370 016666 000002 000004 MOV 2(SP),4(CSP) 33;SET THE STACK FOR RETURNING 

142376 012616 MOV (SP)+,(SP) 

142400 000002 RTI ; sRETURN 

142402 000 8$: BYTE ©O 3:STORAGE FOR ASCII DIGIT 

142403 000 .BYTE O 33 TERMINATOR FOR TYPE ROUTINE 

142404 000 $OCNT: .BYTE O :;OCTAL DIGIT COUNTER 

142405 000 $OFILL: .BYTE 0 :3ZERO FILL SWITCH 

142406 000000 $OMODE: .WORD 0 ;:NUMBER OF DIGITS TO TYPE 

21816 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

WeTiiitiittitititi ti ttititittitttitititi titi t tit l | 
3*#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*#SIGNED DECIMAL CASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*#NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*#REPLACED WITH SPACES. 
;*CALL: 
3* MOV NUM, -C SP) ;;PUT THE BINARY NUMBER ON THE STACK 
x TYPDS ::;GO TO THE ROUTINE 

142410 $TYPDS 

142410 010046 MOV RO,-CSP) 3;PUSH RO ON STACK 

142412 010146 MOV R1,-CSP) :;PUSH R1 ON STACK 

142414 010246 MOV R2,-CSP) ;sPUSH R2 ON STACK 

142416 010346 MOV R3,-CSP) ;3PUSH R3 ON STACK 

142420 010546 MOV RS,-(CSP) ;;PUSH RS ON STACK 

142422 012746 020200 MOV #20200, -( SP) ;;SET BLANK SWITCH AND SIGN 

142426 016605 000020 MOV 20(SP),RS ;;GET THE INPUT NUMBER 

142432 100004 BPL i$ ;;BR IF INPUT IS POS. 

142434 005405 NEG RS ;sMAKE THE BINARY NUMBER POS. 

142436 112766 000055 000001 MOVB #'-,10SP) ;;MAKE THE ASCII NUMBER NEG. 

142444 005000 1$: CLR RO ;;ZERO THE CONSTANTS INDEX 

142446 012703 142624 MOV #$DBLK ,R3 3;SETUP THE OUTPUT POINTER 

142452 112723 000040 MOVB #' ,CR3)-¢ ;;SET THE FIRST CHARACTER TO A BLANK 

142456 005002 2$: CLR R2 ;;CLEAR THE BCD NUMBER 

142460 016001 142614 MOV $OTBLCRO),R1 ;;GET THE CONSTANT 

142464 160105 3$: SUB R1i,R5S ;;FORM THIS BCD DIGIT 

142466 002402 BLT 4$ ;;BR IF DONE 

142470 005202 INC R2 ;;INCREASE THE BCD DIGIT BY 1 

142472 000774 BR 3$ 

142474 060105 4$: ADD R1i,R5S ;:ADD BACK THE CONSTANT 

142476 005702 TST R2 ;;CHECK IF BCD DIGIT=0 

142500 001002 BNE 5$ ;3;FALL THROUGH IF O 

142502 105716 TSTB (SP) ;:STILL DOING LEADING 0'S? 

142504 100407 BMI 7$ ;;B8R IF YES 

142506 106316 S$: ASLB (SP) ;3MSD? 

142510 103003 BCC 6$ ;;68R IF NO 

142512 116663 000001 177777 MO‘/B 1(SP),-1¢€R3) 3;YES--SET THE SIGN 

142520 052702 000060 6$: BIS ‘O,R2 ;sMAKE THE BCD DIGIT ASCII 

142524 052702 000040 7$: BIS #' ,R2 ;sMAKE IT A SPACE IF NOT ALREADY A DIGIT 

142530 110223 MOVB R2,(R3)- 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 

142532 005720 TST CRO)+ 3;JUST INCREMENTING 


‘ 
---- 
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CONVERT BINARY 


21817 


142762 


022737 


000010 


177777 


142624 
000002 


000176 
036274 
036270 
177600 
000007 
001134 
143371 
143376 
000176 


143407 


036212 


036206 
177600 
000025 


143364 
000006 
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CMP RO, #10 
BLT 2$ 
BGT 8$ 
MOV RS,R2 
BR 6$ 
8$: TSTB (SP )+ 
BPL 9$ 
177776 MOVB -1(SP),-2CR3) 
9$: CLRB CR3) 


MOV (SP)+,R5 
MOV (SP)+,R3 


MOV (SP)+,R2 
MOV CSP)+,R1 
MOV (SP)+,RO 
TYPE . $0BLK 
000004 MOV 2(SP),4(SP) 

MOV (SP)+,CSP) 
RTI 

$OTBL: 10000. 
1000. 
100. 
10. 

$OBLK: .BLKW 


4 
-SBTTL TTY INPUT ROUTINE 


3;CHECK THE TABLE INDEX 

3;GO DO THE NEXT DIGIT 

3:;GO TO EXIT 

;;GET THE LSD 

3:GO CHANGE TO ASCII 

;;WAS THE LSD THE FIRST NON-ZERO? 
;;BR IF NO 

3;YES--SET THE SIGN FOR TYPING 
3;SET THE TERMINATOR 

;3POP STACK INTO RS 

3:POP STACK INTO R3 

33POP STACK INTO R2 

3;POP STACK INTO Ri 

;3POP STACK INTO RO 

;;NOW TYPE THE NUMBER 

;;ADJUST THE STACK 


;sRETURN TO USER 


8 FEES SSESESSSSEKERKSESRSESRSE RSE SEES SESS SESS SESE SES ERESERESRESE EEE 


-ENABL LSB 


5 RRR E REESE EEE EE EEE EEE EEE EEE SEES EEEEEEEEEEE SEES EERE EEE ES 
;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
3*WHEN OPERATING IN TTY FLAG MODE. 


001140 $CKSWR: CMP #SWREG, SWR 
BNE 15$ 
TSTB as$TKS 
BPL 15$ 
MOVB a$TKB, -CSP) 
BIC #tC177,(SP) 
CMP #7,(SP)+ 
BNE 15$ 

000001 CMPB $AUTOB, #1 
BEQ 15$ 


TYPE » $CNTLG 


$GTSWR: TYPE . $MSWR 
V SWREG, -( SP) 
TYPOC 
TYPE » $MNEW 
19$: CLR -(SP) 
CLR -(SP) 
7$: TSTB asTKS 
BPL 7$ 


MOVB a$TKB,-CSP) 
BIC #tC177,(SP) 


9$: CMP (SP), #25 
BNE 10$ 
TYPE » $CNTLU 
20%; ADD #6, SP 
BR 19% 


mal 


331S THE SOFT-SWR SELECTED? 
;;BRANCH IF NO 

3;CHAR THERE? 

33IF NO, DON'T WAIT AROUND 
3;SAVE THE CHAR 

3;STRIP-OFF THE ASCII 

3:1S IT A CONTROL G? 

3;NO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 

;;ECHO THE CONTROL-G (tG) 
33TYPE CURRENT CONTENTS 
;;SAVE SWREG FOR TYPEOUT 
3;GO TYPE--OCTAL ASCIICALL DIGITS) 
;;PROMPT FOR NEW SWR 
;;CLEAR COUNTER 

33THE NEW SWR 

3;CHAR THERE? 

33;1F NOT TRY AGAIN 

;;PICK UP CHAR 

;sMAKE IT 7-BIT ASCII 

::IS IT A CONTROL-U? 

; ;BRANCH IF NOT 

33;YES, ECHO CONTROL-U (TU) 
3; IGNORE PREVIOUS INPUT 
;;LET’'S TRY IT AGAIN 





SEQ 0418 


Bistent = 2% 


142764 
142770 
142772 
142776 
143000 
143006 
143012 
143016 
143024 
143026 
143034 
143036 
143042 
143046 
143050 
143054 
143056 
143062 
143066 
143070 
143072 
143074 
143076 
143102 
143106 
143110 
143114 


143116 
143120 
143126 
143132 
143134 
143142 
143150 
143156 
143160 
143164 
143166 
143172 
143176 
143202 
143204 
143206 
143214 
143216 
143224 
143226 
143234 
143236 
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000002 
177776 
001174 


000004 
036012 


036006 
177600 
000004 
035760 
035754 
177600 
000021 
000004 
000004 
000004 
000040 





Fi 


SEQ 0419 


331S IT A <CR>? 

;;BRANCH IF NO 

3;YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 

+;SAVE NEW SWR 

;;CLEAR UP STACK 

;;ECHO <CR> AND <LF> 

3 ;RE-ENABLE TTY KBD INTERRUPTS? 
;;BRANCH IF NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 
3; sRETURN 

;:ECHO CHAR 

3;CHAR < 0? 

;;BRANCH IF YES 

3:CHAR > 7? 

; ;BRANCH IF YES 

3:;STRIP-OFF ASCII 

331S THIS THE FIRST CHAR 

; ;BRANCH IF YES 

3;NO, SHIFT PRESENT 

$3 CHAR OVER TO MAKE 

83 ROOM FOR NEW ONE. 
;;KEEP COUNT OF CHAR 

3;SET IN NEW CHAR 

3;GET THE NEXT ONE 

33 TYPE ?<CR><LF> 
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10$: CMP (SP), #15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
036132 MOV 2(SP),aSWR 
11$: ADD #6 ,SP 
14$: TYPE . $CRLF 
000001 CMPB $INTAG, #1 
BNE 1i5$ 
036110 MOV #100, @$TKS 
15$: RTI 
16$: JSR PC, $TYPEC 
CMP (SP) ,#60 
BLT 18$ 
CMP (SP), #67 
BGT 18$ 
BIC #60, (SP )+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL CSP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP),(SP) 
BR 7$ 
18$: TYPE » $QUES 
20$ 


BR 
-DSABL LSB 


+sSIMULATE CONTROL -U 


5 ERE EERE EERE EERE EEE EEE EE EE EEE EE EEEEEEEEEEEEEEEEEEE EE EEE EEE ED 
s*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


:*CALL: 
3* ROCHR 
3* RETURN HERE 
;* 
Hy 
$RDCHR: MOV CSP),-CSP) 
000002 MOV 4(SP),2¢SP) 
1$ TSTB asTKS 
BPL i$ 
000004 MOVB a$TKB,4¢SP) 
000004 BIC #tC<177>,4(SP) 
000023 CMP 4(SP), #23 
BNE 3$ 
2s: TSTB asTKS 
BPL 2s 
MOVB a$TKB,-CSP) 
BIC #tC177,(SP) 
CMP (SP)+, #21 
BNE 2s 
BR 1$ 
000021 3%: CMP 4(SP),#$X0N 
BEQ 1$ 
000140 CMP 4(SP),#140 
BLT 4$ 
000175 CMP 4(SP),#175 
BGT 4$ 
000004 BIC #40,4(SP) 





+;INPUT A SINGLE CHARACTER FROM THE TTY 
;;CHARACTER IS ON THE STACK 
;sWITH PARITY BIT STRIPPED OFF 


:;PUSH DOWN THE PC 
;3;SAVE THE PS 

;;WAIT FOR 

3:A CHARACTER 

;;READ THE TTY 

;;GET RID OF JUNK IF ANY 
::1S IT A CONTROL-S? 
;;BRANCH IF NO 

;;WAIT FOR A CHARACTER 
;;LOOP UNTIL ITS THERE 
;;GET CHARACTER 

»:MAKE IT 7-BIT ASCII 
::1S IT A CONTROL-Q? 
;3;IF NOT DISCARD IT 
;;YES, RESUME 

3:1S IT A RANDOM XON? 
;;BRANCH IF YES 

:3:31S IT UPPER CASE? 
;;BRANCH IF YES 

331S IT A SPECIAL CHAR? 
;;BRANCH IF YES 

;;MAKE IT UPPER CASE 


;RANOO1 
;RANOO1 





—_— 
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143244 


218618 


143420 
143422 
143430 
143432 
143434 
143436 
143440 
143442 
143444 
143446 
143450 
143452 
143454 
143456 


000002 


011646 
016666 
010046 
010146 
010246 
104411 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 


143354 
143364 


000177 
001174 
143352 
143352 
000015 
177777 
001176 


000004 
143354 


000004 
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SEQ 0420 


4$: RTI ;;GO BACK TO USER 
eetiiititititititititititiitititiitititiiiitititititititiiittit? +. 
at yg ROUTINE WILL INPUT A STRING FROM THE TTY 
+*CALL: 
* RDLIN s7INPUT A STRING FROM THE TTY 
3* RETURN HERE ;:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3* 3; TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3,-CSP) 3;SAVE R3 
i$: MOV #$TTYIN,R3 ;;GET ADDRESS 
2s: CMP #$TTYINe8. ,R3 ; ;BUFFER FULL? 
BLOS 4$ ;;BR IF YES 
ROCHR ;;GO READ ONE CHARACTER FROM THE TTY 
MOVB CSP)+,CR3) ;;GET CHARACTER 
10$: CMPB #177,CR3) 3:1S IT A RUBOUT 
BNE 3$ 3;SKIP IF NOT 
4$: TYPE » $QUES 33 TYPE A ‘'?! 
BR 1$ ;;CLEAR THE BUFFER AND LOOP 
3$: MOVB CR3),9$ 3;ECHO THE CHARACTER 
TYPE .9$ 
CMPB #15,(R3)+ 3;CHECK FOR RETURN 
BNE 2$ ;;LOOP IF NOT RETURN 
CLRB -1¢€R3) ;;CLEAR RETURN CTHE 15) 
TYPE , LF 3;TYPE A LINE FEED 
MOV CSP)+,R3 ;;RESTORE R3 
MOV CSP),-CSP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
000002 MOV 4(SP),2(SP) 33 FIRST ASCII CHARACTER ON IT 
000004 MOV #$TTYIN, 4(SP) 
RTI ; sRETURN 
9$: .BYTE ie) ;;STORAGE FOR ASCII CHAR. TO TYPE 
BYTE O 3; TERMINATOR 
$TTYIN: .BLKB 8. ;;sRESERVE 8 BYTES FOR TTY INPUT 
015 $CNTLU: .ASCIZ /tU/<15><12> ;;CONTROL “U" 
015 $CNTLG: .ASCIZ /tG/<15><12> ;;CONTROL "G" 
123 $MSWR: .ASCIZ <15><12>/SWR = / 
116 $MNEW: .ASCIZ / NEW = / 
.SBTTL READ AN OCTAL NUMBER FROM THE TTY 
Wert titiititiititiititiititiitiiiiititititiititittittttt ttt tt ttt 
;*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 
;*CALL: 
;* RDOCT ;;READ AN OCTAL NUMBER 
:* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
* ;:HIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV (SP),-CSP) ;;PROVIDE SPACE FOR THE 
000002 MOV 4(SP),2¢SP) ;;INPUT NUMBER 
MOV RO, -CSP) ;;PUSH RO ON STACK 
MOV R1,-CSP) 3;PUSH R1 ON STACK 
MOV R2,-CSP) ;;PUSH R2 ON STACK 
1$: RDLIN ;;READ AN ASCIZ LINE 
MOV (SP)+,RO 3:;GET ADDRESS OF 1ST CHARACTER 
CLR Ri ;;CLEAR DATA WORD 
CLR R2 
2s: MOVB CRO)+,-CSP) 3;PICKUP THIS CHARACTER 
BEQ 3$ 33;IF ZERO GET OUT 
ASL R1 33*2 
ROL Re 
ASL R1 3344 


A 





Hi 
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ao eee 


SEQ 0421 
READ AN OCTAL NUMBER FROM THE TTY 
143460 006102 ROL R2 
143462 006301 ASL Ri 33*6 
143464 006102 ROL Re 
143466 042716 177770 BIC #tC7,(SP) 3;STRIP THE ASCII JUNK 
143472 062601 ADD (SP)+,R1 3;ADD IN THIS DIGIT 
143474 000764 BR 2s ; sLOOP 
143476 005726 3$: TST CSP )+ ;;CLEAN TERMINATOR FROM STACK 
143500 010166 000012 MOV R1,12CSP) 3;SAVE THE RESULT 
143504 010237 143520 MOV R2, $HIOCT 
143510 012602 MOV (SP)+,R2 ;sPOP STACK INTO R2 
143512 012601 MOV (SP)+,R1 3sPOP STACK INTO Ri 
143514 012600 MOV (SP)+,RO 3sPOP STACK INTO RO 
143516 000002 RTI ; sRETURN 
143520 000000 $HIOCT: .WORD 0 ;sHIGH ORDER BITS GO HERE 
21819 -SBTTL TRAP DECODER 
5 RRR REE EERE EERE EEE EEE EEE EEE SEES EE EEEEEEEEEEEEEEEEE ESE EES 
s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE. 
143522 010046 $TRAP: MOV RO, -CSP) +sSAVE RO 
143524 016600 000002 MOV 2(SP),RO ;;GET TRAP ADDRESS 
143530 005740 TST -CRO) ;+sBACKUP BY 2 
143532 111000 MOVB CRO),RO ;;GET RIGHT BYTE OF TRAP 
143534 006300 ASL RO ssPOSITION FOR INDEXING 
143536 016000 143556 MOV $TRPADCRO),RO ;;INDEX TO TABLE 
143542 000200 RTS RO 33GO TO ROUTINE 
+sTHIS IS USE TO HANDLE THE “GETPRI” MACRO 
143544 011646 $TRAP2: MOV (SP),-CSP) +sMOVE THE PC DOWN 
143546 016666 000004 000002 MOV 4(SP),2CSP> +;MOVE THE PSW DOWN 
143554 000002 RTI ;sRESTORE THE PSW 
-SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
143556 143544 $TRPAD: .WORD $TRAP2 
143560 141626 $TYPE ;;CALL=TYPE TRAP+1(0104401) TTY TYPEOUT ROUTINE 
143562 142206 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
143564 142162 $TYPOS ;;CALL=TYPOS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
143566 142222 $TYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER CAS PER LAST CALL) 
143570 142410 $TYPDS ;;CALL=TYPDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 
143572 142704 $GTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 
143574 142634 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
143576 143116 $RDCHR ;;CALL=RDCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
143600 143246 $ROLIN ;;CALL=ROLIN TRAP+110104411) TTY TYPEIN STRING ROUTINE 
143602 143420 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
21820 -SBTTL POWER DOWN AND UP ROUTINES 


5 EERE EERE E EEE RARER EEE SEES EE EEE EEE SEEEEEEEEERESEEE SEER EERE ES 
s;POWER DOWN ROUTINE 


143604 012737 143744 000024 $PWRDN: MOV @$ILLUP,@#PWRVEC ;;SET FOR FAST UP 
143612 012737 000340 000026 MOV #340, 9@PWRVEC+2 ;;PRIO:7 

143620 010046 MOV RO, -CSP) 3sPUSH RO ON STACK 
143622 010146 MOV R1,-CSP) 3;PUSH R1 ON STACK 
143624 010246 MOV R2,-CSP) ;sPUSH R2 ON STACK 
143626 010346 MOV R3,-CSP) 33PUSH R3 ON STACK 


143630 010446 MOV R4,-C(SP) 3s:PUSH R4& ON STACK 


eee aR 








_—~ 
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POWER DOWN AND UP ROUTINES 


143752 
21822 


010546 
017746 
010637 
012737 


000000 
000776 


012737 


035300 
143750 
143656 


143744 
143750 
143750 
143750 


035232 


143604 
000340 


012 


000024 


000024 


000024 
000026 


120 
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SEQ 0422 
RS,-CSP) ;;PUSH RS ON STACK 
@SWR , - CSP) 3;PUSH @SWR ON STACK 
SP, $SAVR6 :3SAVE SP 
#$PWRUP ,A@#PWRVEC ;;SET UP VECTOR 
--2 3 ;HANG UP 


5 RRR EEREEEE EERE EEE EEE EEE EE EEEEEEEEE SEES EES EEEEEEEEEEEEEEEEEEEES 
sPOWER UP ROUTINE 


$PWRUP: MOV 


1$: INC 


$SAVR6: 

$POWER: .ASCIZ 
EVEN 
- END 


#$ILLUP,@#PWRVEC ;;SET FOR FAST DOWN 


$SAVR6,SP 3;GET SP 

$SAVR6 ;;WAIT LOOP FOR THE TTY 
$SAVR6 ;;WAIT FOR THE INC 

1$ ;;0F WORD 

(SP)+,a3SWR 3;POP STACK INTO @SWR 
(SP)+,R5S ;:POP STACK INTO RS 
CSP)+,R4 3;POP STACK INTO R4 
CSP )+,R3 3;POP STACK INTO R3 
CSP)+,R2 ;:POP STACK INTO R2 
(SP)+,Ri ::POP STACK INTO R1 
CSP)+,RO 3:POP STACK INTO RO 


@$PWRON,@#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
9340, A#PWRVEC+2 ;;PRIO:7 
sREPORT THE POWER FAILURE 


$POWER ;sPOWER FAIL MESSAGE POINTER 
3;THE POWER UP SEQUENCE WAS STARTED 
--2 3; BEFORE THE POWER DOWN WAS COMPLETE 


;;PUT THE SP HERE 
<15><12>"PGWER” 


i 

| 
COKDADO KDJ11-B CLUSTER DIAG. 
Symbol teble 
ABASE = 000000 AMADR3= 
ABOEXT 111314 AMADR4= 
ABORT 141220 AMAMS1= 
ABORTC 141252 AMAMS2= 
ABORTE 141316 AMAMS3= 
ABORTI 107634 AMAMS4= 
ABORTR 107676 AMSGAD= 
ABORTZ 141342 AMSGLG= 
ABORTC 044016 AMSGTY= 
ABORT7 044204 AMTYPi= 
ABROUT 111146 AMTYP2= 
ACOW1 = 000000 AMTYP3= 
ACOW2 = 000000 AMTYP4= 
ACPUOP= 000000 APASS = 
ACTCHS 002724 APRIOR= 
ACO = = #000000 APTCSU= 
ACL #8000001 APTENV= 
AC2 #=#000002 APTSIZ= 
AC3 =#000003 APTSPO= 
AC4 #000004 ASWREG= 
ACS #8000005 ATESTN= 
AC6 #8000006 AUNIT = 
AC? = 7 AUSWR = 
ADOLSB 114154 AVECTi= 
ADDT 052264 AVECT2= 
ADOTRP 137720 A126 
ADDWO = 000000 
ADDW1 = 000000 BACDAT 
ADDW10= 000000 BA2 
ADDW1ii= 000000 BCR = 
ADDW1i2= 000000 BCSR = 
ADDW13= 000000 BDR = 
ADDW14= 000000 BFA 
ADDW1S= 000000 BFAC1 
ADDW2 = 000000 BFAC2 
ADDW3 = 000000 BFAC3 
ADDW4 = 000000 BFAC4 
ADDWS = 000000 BFACS 
ADDW6 = 000000 BF AE 
ADDW7 = 000000 BFB 
ADDWS = 000000 BGNTLP 
ADDW9 = 000000 BITO = 
ADEVCT= 000000 BITOO = 
ADEVM = 000000 BITO1 = 
AENV = 000000 BITO2 = 
AENVM = 000000 BITO3 = 
AFATAL= 000000 BITO4 = 
ALLCTR 003152 BITOS = 
ALLEND 125304 BITO6 = 
ALROTS 021532 BITO7 = 
ALRiTS 021610 BITOS = 
ALR2TS 021666 BITO9 = 
ALR3TS 021744 BITl = 
ALR4TS 022022 BIT10 = 
ALRSTS 022100 BIT1il = 
AMADR1= 000000 BIT12 = 
wane 000000 BIT13 = 


= --- 
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124574 
125124 
140100 
140062 


052740 
052742 


ee  — 





127050 


SEQ 0423 








te K1 
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jEXBAD 114124 GPR3TS 005316 KIPAR3S= 172346 MBTB 032750 MIALL 033320 


SEQ 0424 =! 

Symbol teble 

EM30 130207 EXBAD2 115266 GPR4TS 005374 KIPAR4= 172350 MBTCC 015614 
EM31 130261 EXITST 114134 GPRSTS 005452 KIPARS= 172352 MBTD 032760 
EM32 130306 EXPBDT 111126 GPR6TS 005530 KIPAR6= 172354 MBTE 051712 
—M33 130347 EXPDAT 114146 GTSWR = 104406 KIPAR7= 172356 MBTF 032770 
EM34 130411 EXPIR1 034344 HITMIS= 177752 KIPDRO= 172300 MBTO 033002 
EM35 130451 EXPTBL 105634 HMPARR 105404 KIPDR1= 172302 MBTOA 033032 
EM36 130477 EXPWOT 111116 HOP10 067506 KIPDR2= 172304 MBTOB 033034 
—M37 130543 EXTFPA 140172 HOP11 070500 KIPDR3= 172306 MBTOC 033046 
EM4 127062 FINNOP 021252 HOP 12 071536 KIPDR4= 172310 MBTOD 033072 
EM40 130605 FINI 052444 HOP13 072564 KIPDRS= 172312 MBTOE 033074 
EM41 130652 FIN1O 054114 HOP 14 073660 KIPDOR6= 172314 MBTOF 033106 
EM42 130736 FINi1 054220 HOP15 075354 KIPDR7= 172316 MBT1 051140 
EM43 130764 FIN116 022742 HOP16 075670 KMCR = 177734 MBT2 051142 
—M44 131015 FIN117 023056 HOP17 076352 LASTCH 116110 MBT2A 051154 
—EM4S 131055 FINi20 023200 HOP18 100612 LCDSUB 101102 MBTS 051370 
EM46 131137 FINI21 023574 HOP19 101230 LCFSUB 100464 MBT8A 051424 
EM47 131227 FINi22 024044 HOP20 102650 LOPARS 136736 MBT8B 051452 
EMS 127122 FINI25S 025206 HOP21 103734 LOPDRS 136766 MBTSC 051500 
EMSO 131314 FINI26 026246 HOP22 104376 LEDS 123016 MBT8D 051526 
EMS1 131337 FIN127 026706 HOP44 066324 LF = 000012 MBT8E 051556 
EMS2 131371 FINi3 054434 HT = 000011 LKS = 177546 MBT8F 051606 
EMS3 131427 FINi30 027576 ILAOA 030760 LKSFL 002722 MBT8FG 051622 
—EMS4 131463 FINI4 054604 ILB0B 030766 LKSINT 137062 MBT8I 051646 
EMSS 131521 FINiS 055022 ILL 053230 Loop 004740 MB66 011770 
EMS6 131555 FINI6 055212 ILLBOA 031054 LOOPIN 003154 MCB44 011634 
—EM57 131601 FINi7 055424 ILLBOB 031062 LOST 052424 MCLRD 076416 
EM6 127155 FIN2 052544 ILLOPi 053030 LOWADD 003016 MCLRI 076504 
EM60 131633 FIN20 055622 ILLOP2 053124 LSTADD 114166 MCMPD 066014 
EM61 131701 FIN21 056042 INITMM 136574 LXPSUB 102400 MCTSCC 016066 
EM62 131730 FIN22 056226 INQ@22 125446 MACCC 016216 MDAO 010406 
EM63 132001 FIN23 056362 INTERR 110106 MACE 051322 MDCCC 016004 
EM64 132032 FIN24 056562 INTRPC 110052 MACO 051212 MDDSUB 075054 
EM65 132071 FIN26 057316 IOTOA 030366 MACOA 051216 MDFSUB 073350 
EM66 132141 FIN27 057660 IOTOB 030374 MACL 051226 MDIVD 067506 
EM67 132200 FIN3O 060224 IOTVEC= 000020 MAC2 051242 MDIVF 066324 
EM7 127220 FIN31 060364 IOXXX 033520 MAC3 051256 MDMO 010362 
EM70 132235 FIN32 060656 J1IFLT 140257 MAC4 051272 MOM27 010472 
EM71 132266 FIN33 061152 KDPARO= 172360 MACS 051306 MDSO 010436 
—EM72 132322 FING 053134 KDPARI= 172362 MADCC 016142 MEMK 123434 
EM73 132360 FINS 053240 KDPAR2= 172364 MAIREG= 177750 MEMQ 123464 
—EM74 132404 FIN6 053440 KDPAR3= 172366 MALCC 016770 MEMTO 030420 
—EM75 132435 FIN7 053664 KDPAR4= 172370 MARCC 017050 MET 032442 
EM76 132466 FLAG 003030 KDPARS= 172372 MASK 003160 META 032500 
—M77 132536 FLO 003062 KDPAR6= 172374 MALL 011010 METB 032510 
ENDHRT 105576 FLOAT 003052 KDPAR7= 172376 MASS 011714 METD 032520 
ENDLUP 114110 FMPARR 105214 KDPDRO= 172320 MBB11 011106 METF 032530 
ENDMOV 114172 FPAFLT 140174 KDPDRi= 172322 MBB22 011370 METO 032550 
ENDTAG 115314 FPAOPT 140160 KDPDR2= 172324 MBCCC 015664 METOA 032614 
ENDTLP 114060 FPVEC = 000244 KDPDR3= 172326 MBCOO 010612 METOB 032624 
ERR 140060 FRSTST 004742 KDPDR4= 172330 MBC11 011166 METOC 032636 
ERRCNT 003022 FSTADD 114164 KDPDRS= 172332 MBC22 011456 METOD 032662 
ERRFP 140056 FWOSEQ 114152 KDPDR6= 172334 MBIOO 010532 METOE 032672 
ERROR = 104000 GOODAD 003020 KDPDR7= 172336 MBPTO 030614 METOF 032704 
ERROUT 104536 GPROTS 005104 KIPARO= 172340 MBSCC 015736 MFA 051714 
ERRVEC= 000004 GPRITS 005162 KIPARI= 172342 MBT 032724 MFACU 051712 
ERTYPE 136356 GPR2TS 005240 KIPAR2= 172344 MBTA 032746 MFSRCM 061154 


—-— 
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014776 
033400 
033432 
033434 
033446 
033472 
033474 
033506 
013716 
014034 
014200 
014346 
014036 
014050 
014074 
013754 
013766 
014012 
014202 
014214 
014240 
014116 
014130 
014154 
014350 
014362 
014406 
014264 
014276 
014322 
014432 
014444 
014470 
012772 
013004 
012734 
012746 
012756 
013016 
013030 
013040 
013112 
013124 
013136 
013052 
013064 
013076 
013152 
013164 
013204 
013216 
012770 
013150 
013200 
100612 
077760 
065376 


— 
esnenkt 


077644 
061240 
061342 
061476 
061616 
061722 
062016 
062120 
072322 
071274 
076550 
076662 
076774 
077124 
077240 
077370 
077510 
101230 
017554 
073660 
072564 
012452 
177572 
177574 
177576 
172516 
137552 
071536 
070500 
137724 
015550 





MRTB 
MRTE 


031550 
031560 
031570 
031602 
031632 


010144 
010176 








010240 
010306 
012614 
104076 
017302 
017140 
011046 
011320 
011550 
012040 
031720 
032122 


Symbol 


teble 
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SDPAR4= 
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172270 





Wednesday 


SDOPARS= 
SOPAR6= 
SOPAR7= 
SOPDRO= 


M1 


27-Feb-85 17:55 Page 
172272 SWO1 
172274 Swo2 
172276 SWO3 
172220 SWO4 
172222 SWOS 
172224 SWO6 
172226 SwO7 
172230 SWO8 
172232 Swo9 
172234 SW1 
172236 SW10 
003072 SW1i1 
075550 SwWwi2 
002702 $wi3 
172240 Swi4 
172242 swis 
172244 SW2 
172246 SW3 
172250 SW4 
172252 SW5 
172254 SW6 
172256 SW7 
172200 SW8 
172202 SW9 
172204 SXPSUB 
172206 TAB1 
172210 TAB10O 
172212 TAB1I1 
172214 TAB11A 
172216 TAB12 
115460 TAB13 
122620 TAB13B 
003012 TAB14 
003014 TAB1IS 
027614 TAB16 
027636 TAB17 
027656 TAB18 
027702 TAB2 
027716 TAB21 
027734 TAB22 
003074 TAB23 
003076 TAB24 
177572 TAB25 
177574 TAB26 
177576 TAB27 
172516 TAB28 
001100 TAB29 
004024 TAB29A 
001000 TABS 
177774 TAB30 
113326 TAB31 
114450 TAB32 
052232 TAB33 
001140 TAB34 
000176 TAB4 
000001 TAB40 
000001 TAB41 





72-16 
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teble 
025254 TSFPS 053134 TST1i3. 107044 TS14 047134 
025730 TSFP6 053240 TSTi4 107360 TSisS 050020 
026246 TSFP7 053440 TST1i5 107524 TS16 051024 
TSF10 054054 TST1i6 107752 TSi16A 051016 
026710 TSF13 054424 TST1i7 110156 TS$1822 
027166 TSF14 054574 TsT2 104376 TS2600 057236 
021230 TSFiS 055012 TST20 110402 TS2601 057246 
021240 TSF16 055202 TST21 111150 TS2602 057256 
115726 TSF17 055414 TST22 111360 TS2603 057266 
021250 TSF2 052514 TSsT23 111600 TS2604 057276 
120602 TSF20 055612 TST24 112136 TS2605 057306 
053114 TSF21 056032 TST25 112714 TS2700 057600 
TSF22 056216 TST26 113056 TS2701 057610 
000060 TSF23 056352 TST27 114172 TS27D2 057620 
050534 TSF24 056552 TST3 104542 TS2703 057630 
050414 TSF31 060354 TST30 115314 TS2704 057640 
TSF6 053430 TST31 115466 TS270S 057650 
050474 TSF7 053624 TST32 115734 TS30D00 660144 
050524 TSLOOP 114556 TST33 116254 TS3001 060154 
050526 TSMA 043116 TST34 116406 TS30D2 060164 
051120 TSMB 043136 TST35 116772 TS3003 060174 
137542 TSMC 043146 TST36 117156 TS3004 060204 
000064 TSMMUO 015056 TST37 117464 TS3005 060214 
000034 TSMMU1L 035152 TST4 104642 TS32D0 060576 
140054 TSMMU2 035236 TST40 117632 TS$32D1 
030562 TSMMU3 036436 TST41 120134 TS32D03 060626 
030570 TSMMU4 036736 TST42 120302 TS3204 060636 
000014 TSMMUS 037666 TST43 120612 TS3205 060646 
030126 TSMMU6 040020 TST44 120652 TS3300 061072 
030160 TSMMU7 042524 TST45 120750 TS3301 061102 
030206 TSMMUB 043152 TST46 121032 TS3302 061112 
060252 TSMMU9 043354 TST47 121246 TS3303 061122 
115276 TSMM10 044254 TSTS 105226 TS3304 061132 
052356 TSMM11 044636 TSTSO 121300 TS3305 061142 
53664 TSMM1i2 045074 TSTS1 121644 TS6DA 053410 
054114 TSMM13 045462 TST52 122112 TS6DAT 053420 
054220 TSMM14 046530 TST53 122402 TS7 042774 
054270 TSMM15 047654 TSTS4 122620 TS7DA1 05363¢ 
0 TSMM16 050174 TSTSS 123142 TS7DA2 053644 
054606 TSMM6A 040126 TSTS6 123516 TS7DA4 053654 
055024 TSMM6B 040564 TSTS7 123764 TS7FIN 043150 
055214 TSMM6C 041324 TST6 105412 TSOFIN 044252 
052446 T 042024 TST60 124136 TYPDS = 104405 
055426 TSM16A 050270 TST61 124336 TYPE = 104401 
055624 TSM16B 050316 TST62 125304 TYPOC = 104402 
i?) TSM1i6C 050342 TST63 125562 TYPON = 104404 
056230 TSM16D 050406 TST64 125746 TYPOS = 104403 
056364 TSM7 043104 TST65 126046 TIOFIN 044636 
056564 TSM9 043510 TST66 126230 TIIFIN 045074 
056722 TSTADD 003024 TST7 105652 7114 021146 
057320 TSTEND 116770 TS10 044554 T7116 022612 
052544 TSTLOC 003162 TS1001 054064 T1I2FIN 045460 
057662 TSTLUP 113410 TSi0D2 054074 T122A 023672 
060226 TSTi 004740 TS1004 054104 T1228 024024 
060366 TST10 106126 TS11 044754 T123A 024230 
060660 TSTil 106370 T$1101 054210 71238 024240 

















Be 
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SEQ 0428 

Symbol teble 

V@BE2 002716 $00W10 001310 $ETEND 001324 $MSGTY 001200 $TIMES 001164 
V@PR1 002700 $00Wi1l 001312 $FATAL 001202 $MSWR 143376 $TKB 001146 
V@PR2 002720 $D00W1i2 001314 $FFLG 141624 $MTYP1 001231 $TKS 001144 
wc 002672 $D0W13 001316 $FILLC 001156 $MTYP2 001235 $TMPO ©001160 
wc2 002712 $00W14 001320 $FILLS 001155 $MTYP3 001241 $TMP1 001162 
WLOTRP 140044 $00WiS 001322 $GDADR 001120 $MTYP4 001245 $TN = 000067 
XBUF = 177566 $0DW2 001270 $GDDAT 001124 $MXCNT 140774 $TPB 001152 
xCBIT 016710 $00W3 001272 $GET42 140430 $NULL 001154 $TPFLG 001157 
XxCSR = 177564 $D0W4 001274 $GTSWR 142704 $NWTST= 000000 $TPS 001150 
XME100 017714 $00W5 001276 $HD = 000001 $OCNT 142404 $TRAP 143522 
AME101 017736 $DDW6 001300 $HIBTS 000232 $OMODE 142406 $TRAP2 143544 
$APTHD 000232 $00W7 001302 $HIOCT 143520 $OVER 140752 $TRP = 000013 
$ATYC 141404 $D00W8 001304 $ICNT 001104 $PASS 001206 $TRPAD 143556 
$ATY1 141360 $00W9 001306 $ILLUP 143744 $PASTM 000240 $TSTM 000236 
$ATY3 141366 $DEVCT 001210 $INTAG 001135 $POWER 143752 $TSTNM 001102 
$ATY4 141376 $DEVM 001256 $ITEMB 001114 $PWRON 143604 $TTYIN 143354 
$AUTOB 001134 $DOAGN 140450 $LF 001176 $PWRMG 143740 $TYPDS 142410 
$BASE 001254 $OTBL 142614 $LFLG 141623 $PWRUP 143656 $TYPE 141626 
$BDADR 001122 $ENDAD 140440 $LPADR 001106 $QUES 001174 $TYPEC 142040 
$BDDAT 001126 $ENDCT 140406 $LPERR 001110 $ROCHR 143116 $TYPEX 142160 
$BELL 001170 $ENDMG 140457 $MADR1 001232 $RDLIN 143246 $TYPOC 142206 
$COW1 001260 $ENULL 140454 $MADR2 001236 $RDOCT 143420 $TYPON 142222 
$COW2 001262 $ENV 001220 $MADR3 001242 $RDSZ = 000010 $TYPOS 142162 
$CHARC 142156 $ENVM 001221 $MADR4 001246 $RTNAD 140452 $UNIT 001212 
$CKSWR 142634 $E0P 140340 $MAIL 001200 $SAVR6 143750 $UNITM 000242 
$CMTAG 001100 $EOPCT 140400 $MAMS1 001230 $SCOPE 140474 $USWR 001224 
$CM3 = 000000 $ERFLG 001103 $MAMS2 001234 $SETUP= 000137 $VECT1 001250 
$CM4 = 000002 $ERMAX 001115 $MAMS3 001240 $STUP = 177777 $VECT2 001252 
$CNTLG 143371 $ERROR 140776 $MAMS4 001244 $SVLAD 140716 $XOFF = 000023 
$CNTLU 143364 $ERRPC 001116 $MBADR 000234 $SVPC = 000232 $XON = 000021 
$CPUOP 001226 $ERRTB 001324 $MFLG 141622 $SWR = 167400 $XTSTR 140514 
$CRLF 001175 $ERTTL 001112 $MNEW 143407 $SWREG 001222 $$GET4= 000000 
$DBLK 142624 $ESCAP 001166 $MSGAD 001214 $SWRMK= 000300 $OFILL 142405 
$0DWO 001264 $ETABL 001220 $MSGLG 001216 $TESTN 001204 . $X = 000232 


- ABS. 143762 000 CRW,1,GBL,ABS,OVR) 
000000 001 CRW,I,LCL,REL,CON) 
Errors detected: 10 


eee Assembler statistics =~ 


Work file reads: 471 

Work file writes: 403 

Size of work file: 63968 Words ( 250 Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elepsed time: 00:09:05.30 
COKDADO , COKDADO/NL : TOC/-SP=ORION.MLB/ML , COKDADO.MAC/DS : GBL 





